Bonjour,
Après multiples recherches, je n'ai malheuresement pas trouvé mon bonheur sur le sujet.
Je cherche à avoir un format de date en minute:seconde soit "mm:ss"
Explication :
J'ai deux dates malheuresement au format "jour heure:minute:seconde", soit "jj/mm/aaaa hh:mm:ss". A ces deux dates, je désire en réaliser la différence. Je sais que cette différence ne sera pas suppérieur à 60 minutes, c'est pourquoi je voudrais le résultat en mm:ss.
J'ai cependant trouver une parade mais le résultat est une chaine de caractère et non un format date. La conversion au format date me donne des heures et non des minutes (décalage)
voici le code :
Dim heure1 AsDateDim heure2 AsDateDim resultat AsDateDim inter1 AsIntegerDim resultString AsStringDim difference AsLongheure1 =
CDate("12/05/2008 12:10:0")heure2 =
CDate("12/05/2008 12:25:25")difference = DateAndTime.DateDiff(DateInterval.Second, heure1, heure2)
'le résultat ne dépasse pas une heureinter1 = difference \ 60
difference = difference - (inter1 * 60)
resultat =
CDate("00:" & CStr(inter1) & ":" & CStr(difference))resultString =
CStr(resultat)resultat = Format(resultat,
"mm:ss")MsgBox(resultString & vbTab &
CStr(resultat))Affichage : 00:15:25 15:25:00
Hic : si le temps d'écart est supérieur à 24minutes.
Je pense qu'il y a beacoup plus simple et c'est pourquoi je m'adresse à vous.
En entrée : deux dates (le format de ces dates peut être changer)
En sortie : la différence de ces dates au format date("minutes:secondes")
Merci d'avance, Cordialement,
Xpmich