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 AsDate

Dim heure2 AsDate

Dim resultat AsDate

Dim inter1 AsInteger

Dim resultString AsString

Dim difference AsLong

heure1 =

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 heure

inter1 = 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

je valide ta réponse car les deux choix sont tout à fait correcte. cependant, je préfère le TimeSerial() qui est plus "propre".

Mais je n'ais toujours pas de format date : "mmm:ss" mais "hh:mm:ss" mais je demande peut être l'impossible.
Une solution, passer en string?
Merci d'avance
Xpimch

Salut,

    Dim heure1 As Date
    Dim heure2 As Date
    Dim Diff As TimeSpan= heure2 - heure1
    MsgBox("La différence est de " & Diff.Minutes & " minutes et " & Diff.Seconds & " secondes.")