Fonction de conversion de millisecondes en hh:mm:ss:mmm

Commenter

Contenu du snippet

Bonjour, c'est mon premier code source, une petite fonction toute simple qui permettra pour certains de ne pas se casser la tête sur la conversion de millisecondes utile pour les players sous Delphi.
L'algorithme peut être utilisé dans d'autres languages.

Source / Exemple : 


function affichagetemps (temps : integer):string;
  var mili1 : integer;
  var mili2 : integer;
  var seconde1 : integer;
  var minute11 : integer;
  var minute21 : integer;
  var heure1 : integer;
  begin
    mili1 := (temps) mod 1000;
    mili2 :=  temps - mili1;
    seconde1 := (mili2 div 1000) mod 60;
    minute11 := ((mili2 div 1000) - seconde1) div 60;
    minute21 :=  minute11 mod 60;
    heure1 := (minute11 - minute21) div 60;
    result := inttostr(heure1)+':'+inttostr(minute21)+':'+inttostr(seconde1)+':'+inttostr(mili1);
  end;

Conclusion :


Si vous trouvez une optimisation possible, je suis preneur car je débute dans le domaine.

A voir également

S'inscrire maintenant

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.