URGENT :Convertir une durée au format "octet" au format "nn:ss" ??

Question

Bonjour à tous,

Je développe actuellement une petite base de gestion de cd audio.

J'ai écrit un petit bout de code me permettant de lister automatiquement les tracks du cd présent dans le lecteur; et ça marche !

Mon soucis est le suivant :
Je récupère la durée des tracks sous la forme : "1286355" (c'est un exemple) .
Je voudrait convertir cette données sous la forme "nn:ss" (soit minutes : secondes); et là je ne sais pas comment faire.

Si quelqu'un peut m'apporter une réponse...

Merci beaucoup

 :shy)  VinyDev

cs_rene38 · Answer

et ta durée "1286355" correspond à quoi en secondes ?

VinyDev · Answer

C'est justement ce que j'aimerais savoir...

J'utilise le control : MMControl
et j'obtient cet entier avec le code : txt_Durée= Me.MMControl1.TrackLength

Seulement je ne sais convertir ce dernier !!

 :shy)  VinyDev

cs_rene38 · Answer

Alors, voila :

Dim Durée As Long, Minutes As Integer, Secondes As Single
MMControl1.TimeFormat = mciFormatMilliseconds
Durée = MMControl1.TrackLength
Minutes = Durée \ 60000
Secondes = (Durée Mod 60000) / 1000
MsgBox Minutes & ":" & Secondes

Tu obtiendras un truc du genre   5:22,601
soit 5 minutes 22 secondes 601 millisecondes 
Si tu veux seulement minutes:secondes, tu remplaces
Secondes = (Durée Mod 60000) / 1000  
par
Secondes = CInt((Durée Mod 60000) / 1000)
et tu obtiens 5:23 au lieu de 5:22,601

VinyDev · Answer

René,

Je tiens à te remercier car tu m'a bien dépanné, merci encore !

 :shy)  VinyDev