Convertir un temps exprimé en ms en min:sec.

Commenter

Contenu du snippet 

 Z = millième de seconde
 C = centième de seconde
 D = dixième de seconde
 S = seconde
 M = minute
 H = heure
 
  
 Z en centieme de seconde :
 C := (Z mod 1000) div 10;
 
  
 Z en dixieme de seconde :
 D := (Z mod 1000) div 100;
 
  
 Z en secondes :
 S := Z div 1000;
 
  
 Z en minutes :
 M := Z div 60000;
 
  
 Z en heures :
 H := Z div 3600000;
 
  
 Z en secondes et minutes :
  S := (Z div 1000) mod 60;
 M := (Z div 60000);
 Z := Z mod 1000;
 
 affichage :
 format('%.2d:%.2d',[M,S]); // = 00:00 
 format('%.2d:%.2d.%.3d',[M,S,Z]); // = 00:00.000 
 
  
 Z en secondes, minutes et heures :
  S := (Z div 1000) mod 60;
 M := (Z div 60000) mod 60;
 H := (Z div 3600000);
 Z := Z mod 1000;
 
 affichage :
 format('%.2d:%.2d:%.2d',[H,M,S]); // = 00:00:00 
 format('%.2d:%.2d:%.2d.%.3d',[H,M,S,Z]); // = 00:00:00.000

Compatibilité : Delphi 5

Disponible dans d'autres langages :

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.

Du même auteur (CortoHHasur)