tamtam64

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    'transforme une date time sans la date
Function DateWithoutTime(ByVal Dat As Date) As Date
    DateWithoutTime = Int(Dat) + Hour(Date) / 24
End Function