Convertit en jours / heures / minutes le temps entre 2 dates & heures
Contenu du snippet
Public Function NewDateDiff(ByVal DateDebut As String, ByVal DateFin As String) As String
Dim d As Date
d = DateAdd("s", DateDiff("s", DateDebut, DateFin), "01-01-2000")
NewDateDiff = Format(d, "yyyy") - 2000 & " ans " & Format(d, "m") - 1 & " mois " & _
Format(d, "d") - 1 & " jours " & Format(d, "hh:mm:ss")
End Function
Sub EXEMPLE()
MsgBox NewDateDiff("27-02-2007 10:03:05", "31-03-2009 11:00:00")
' resultat : 2 ans 1 mois 1 jours 00:56:55
End Sub
Compatibilité : VB6, VBA
Disponible dans d'autres langages :
A voir également
- Convertit en jours / heures / minutes le temps entre 2 dates & heures
- 161 minutes en heures ✓ - Forum VB.NET
- Conversion secondes --> Minutes, heures. - Forum Visual Basic
- Convertion de minute en heure:minute ? ✓ - Forum ASP / ASP3
- Afficher heures, minutes, secondes sur l'axe des abscisses - Forum Delphi / Pascal
- 164 minutes en heures - Forum VB.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.