Diferences entre deux times
ahmedarous312
Messages postés
21
Date d'inscription
dimanche 30 mars 2003
Statut
Membre
Dernière intervention
22 décembre 2012
-
28 avril 2006 à 14:52
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 29 avril 2006 à 09:35
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 29 avril 2006 à 09:35
A voir également:
- Diferences entre deux times
- Ephemeride entre deux dates - Forum Visual Basic 6
- Sql entre deux dates ✓ - Forum SQL
- Syntaxe requête sql pour recherche entre deux dates ✓ - Forum VB.NET
- Comment calculer le nombre de mois séparant deux dates ? ✓ - Forum Delphi / Pascal
- Différence entre deux dates sql oracle - Forum SQL
4 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
28 avril 2006 à 15:02
28 avril 2006 à 15:02
En précisant le langage sa serait plus pratique si tu veux de l'aide.
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
28 avril 2006 à 15:23
28 avril 2006 à 15:23
et en cherchant avant çà serait plus rapide...
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
28 avril 2006 à 15:25
28 avril 2006 à 15:25
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
29 avril 2006 à 09:35
29 avril 2006 à 09:35
Bonjour,
Comme le préconise "mcs2006", exemple détaillé ci-dessous avec DateDiff.
Dim Saisie, DateEntree, DateSortie, Msg, n, hh, mn
Saisie = InputBox(vbCrLf&vbCrLf&vbCrLf&vbCrLf&"Saisir votre date sous la forme:"_
&vbCrLf&vbCrLf&"jj/mm/aaaa hh:mm - jj/mm/aaaa hh:mm"&vbCrLf&"Remplacer les 5 derniers caractères hh:mm",_
"Calcul d'intervalle de temps en minutes", Left(Now, 16) & " - " & Left(Now, 10) & " 00:15")
DateEntree = Mid(Saisie, 1, 16) & ":00"
DateSortie = Mid(Saisie, 20, 16) & ":00"
' y = DateDiff("yyyy", DateSortie, DateEntree) ' aaaa
' m = DateDiff("m", DateSortie, DateEntree) ' mm
' d = DateDiff("y", DateSortie, DateEntree) ' jj
' h = DateDiff("h", DateSortie, DateEntree) ' hh
' n = DateDiff("n", DateSortie, DateEntree) ' mn
' s = DateDiff("s", DateSortie, DateEntree) ' ss
n = DateDiff("n" , DateSortie, DateEntree)
Temps = n * 60 'temps en secondes
hh = Temps / 3600
mn = (hh - Int(hh)) * 60
If hh >= 24 Then
jj = Int(hh / 24)
hh = hh - jj * 24
End If
Conversion = Int(jj) & " j " & Int(hh) & " h " & CInt(mn) & " mn"
Msg = "Comparaison de dates du " & DateSortie & " au " & DateEntree &vbCrLf&vbCrLf
Msg = Msg & "La différence entre les 2 dates est : " &vbCrLf&vbCrL
Msg Msg & "Nombre total en minutes " & n &vbCrLf&vbCrLf
MsgBox s & " " & Msg &vbCrLf& " soit: " & Conversion,_
vbApplicationModal + vbDefaultButton1 + vbInformation + vbOKOnly, "Résultat"
If n =0 Then
MsgBox "Les dates à comparer sont identhiques"
InputBox Saisie , "Calcul d'intervalle de temps en minutes", Left(Now, 16) &" - " & Left(Now, 11) & " 00:00"', Left(Now, 16) & " - " & Left(Now, 10) & " 00:00", "Calcul d'intervalle de temps en minutes", Left(Now, 16) & " - " & Left(Now, 11) & " 00:00"
Else
Msg = "Comparaison de dates du " & DateSortie & " au " & DateEntree &vbCrLf&vbCrLf
Msg = Msg & "La différence entre les 2 dates est : " &vbCrLf&vbCrLf
Msg Msg & "Nombre total en minutes " & n &vbCrLf&vbCrLf
Msg Msg & "Nombre de jours " & Int(jj)&vbCrLf&vbCrLf
Msg Msg & "Nombre de heures " & Int(hh)&vbCrLf&vbCrLf
Msg Msg & "Nombre de minutes " & CInt(mn)
MsgBox Msg '& "La différence entre les 2 dates est : " &vbCrLf&vbCrLf& Msg
End If
jean-marc
Comme le préconise "mcs2006", exemple détaillé ci-dessous avec DateDiff.
Dim Saisie, DateEntree, DateSortie, Msg, n, hh, mn
Saisie = InputBox(vbCrLf&vbCrLf&vbCrLf&vbCrLf&"Saisir votre date sous la forme:"_
&vbCrLf&vbCrLf&"jj/mm/aaaa hh:mm - jj/mm/aaaa hh:mm"&vbCrLf&"Remplacer les 5 derniers caractères hh:mm",_
"Calcul d'intervalle de temps en minutes", Left(Now, 16) & " - " & Left(Now, 10) & " 00:15")
DateEntree = Mid(Saisie, 1, 16) & ":00"
DateSortie = Mid(Saisie, 20, 16) & ":00"
' y = DateDiff("yyyy", DateSortie, DateEntree) ' aaaa
' m = DateDiff("m", DateSortie, DateEntree) ' mm
' d = DateDiff("y", DateSortie, DateEntree) ' jj
' h = DateDiff("h", DateSortie, DateEntree) ' hh
' n = DateDiff("n", DateSortie, DateEntree) ' mn
' s = DateDiff("s", DateSortie, DateEntree) ' ss
n = DateDiff("n" , DateSortie, DateEntree)
Temps = n * 60 'temps en secondes
hh = Temps / 3600
mn = (hh - Int(hh)) * 60
If hh >= 24 Then
jj = Int(hh / 24)
hh = hh - jj * 24
End If
Conversion = Int(jj) & " j " & Int(hh) & " h " & CInt(mn) & " mn"
Msg = "Comparaison de dates du " & DateSortie & " au " & DateEntree &vbCrLf&vbCrLf
Msg = Msg & "La différence entre les 2 dates est : " &vbCrLf&vbCrL
Msg Msg & "Nombre total en minutes " & n &vbCrLf&vbCrLf
MsgBox s & " " & Msg &vbCrLf& " soit: " & Conversion,_
vbApplicationModal + vbDefaultButton1 + vbInformation + vbOKOnly, "Résultat"
If n =0 Then
MsgBox "Les dates à comparer sont identhiques"
InputBox Saisie , "Calcul d'intervalle de temps en minutes", Left(Now, 16) &" - " & Left(Now, 11) & " 00:00"', Left(Now, 16) & " - " & Left(Now, 10) & " 00:00", "Calcul d'intervalle de temps en minutes", Left(Now, 16) & " - " & Left(Now, 11) & " 00:00"
Else
Msg = "Comparaison de dates du " & DateSortie & " au " & DateEntree &vbCrLf&vbCrLf
Msg = Msg & "La différence entre les 2 dates est : " &vbCrLf&vbCrLf
Msg Msg & "Nombre total en minutes " & n &vbCrLf&vbCrLf
Msg Msg & "Nombre de jours " & Int(jj)&vbCrLf&vbCrLf
Msg Msg & "Nombre de heures " & Int(hh)&vbCrLf&vbCrLf
Msg Msg & "Nombre de minutes " & CInt(mn)
MsgBox Msg '& "La différence entre les 2 dates est : " &vbCrLf&vbCrLf& Msg
End If
jean-marc
