difference entre 2 dates et heures
bonjour
j'ai essayé d'appliquer le module donné par microsoft (ici ) pour calculer la différence entre 2 dates et heure du style
01/01/08 12:30 et 03/01/08 01:00
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| '------------------------------------------------------------------
' This function calculates the elapsed time between two values and
' formats the result in four different ways.
'
' The function accepts interval arguments such as the following:
'
' #5/12/95 6:00:00AM# - #5/11/95 10:00:00PM#
'
' -or-
'
' [End Time]-[Start Time]
'------------------------------------------------------------------
Function ElapsedTime (Interval)
Dim x
x = Int(CSng(Interval * 24 * 3600)) & " Seconds"
Debug.Print x
x = Int(CSng(Interval * 24 * 60)) & ":" & Format(Interval, "ss") _
& " Minutes:Seconds"
Debug.Print x
x = Int(CSng(Interval * 24)) & ":" & Format(Interval, "nn:ss") _
& " Hours:Minutes:Seconds"
Debug.Print x
x = Int(CSng(Interval)) & " days " & Format(Interval, "hh") _
& " Hours " & Format(Interval, "nn") & " Minutes " & _
Format(Interval, "ss") & " Seconds"
Debug.Print x
End Function |
Ca marche si la différence est dans la même journée mais par s'il existe plusieurs jours d'écart.
voilà le résultat de l'exemple que je vous ai donné plus haut
? ElapsedTime(#03/01/08 01:00#-#01/01/08 12:30#)
5142600 Seconds
85710:00 Minutes:Seconds
1428:30:00 Hours:Minutes:Seconds
59 days 12 Hours 30 Minutes 00 Seconds
Je pense qu'il n'y a pas 59 jours entre ces 2 dates !
Pouvez-vous m'aider ?
Merci d'avance
