Bonjour ,
Je cherche à supprimer les indications d'heure d'une date time.
exemple 24/12/2005 16:18:25 ->24/12/2005 00:00:00
Je n'ai pas trouvé de fonction toute faite, donc j'en ai fait deux.
Laquelle préférez vous?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Public Function TronqueDate(ByVal DtmATronquer As Date) As Date
TronqueDate = CDate(DateSerial(Year(DtmATronquer), Month(DtmATronquer), Day(DtmATronquer)))
End Function
Ou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Public Function TronqueDate1(ByVal DtmATronquer As Date) As Date
TronqueDate1 = CDate(Int(DtmATronquer))
End Function
Si vous avez mieux à proposer, faites donc!

Merci
Soazig