'pour tester la fonction, coller ce code dans une forme.
Private Sub Form_Load()
Dim DDép As String, HDép As String
Dim Drét As Date, Hrét As Date
Dim Récup As Double
'La date et l'heure doivent êtres entrées dans le mode par défaut de l'ordinateur.
DDép = "23/11/2007"
HDép = "20:58:51"
Récup = Transpose_Date_Heure(DDép, HDép)
'au retour Récup = 39409,8742013889 (nombre universel représentant date et heure
'dans les systèmes windows)
Stop 'pour tester les retours
'sur PC Francais...
Drét = Récup 'au retour Drét= 23/11/2007 20:58:51
Drét = Fix(Récup) 'au retour Drét= 23/11/2007
Drét = Récup - Fix(Récup) 'au retour Drét= 20:58:51
'sur PC US...
Drét = Récup 'au retour Drét= 11/23/2007 08:58:51 PM
Drét = Fix(Récup) 'au retour Drét= 11/23/2007
Drét = Récup - Fix(Récup) 'au retour Drét= 08:58:51 PM
End Sub
'-----------------------------------------------------------------------
'cette fonction permet de mémoriser date et heure dans une seule variable de type
'double, peut servir dans fichier ou BD
'Cette variable serra retraduite dans le mode du PC FR/US ou autre...
'
'l'heure n'est pas obligatoire
Function Transpose_Date_Heure(D As String, Optional H As String) As Double
Transpose_Date_Heure = DateSerial(Year(D), Month(D), Day(D))
If H <> "" Then
Transpose_Date_Heure = Transpose_Date_Heure _
+ TimeSerial(Hour(H), Minute(H), Second(H))
End If
End Function