FONCTION DE CONVERSION DE MILLISECONDES EN HH:MM:SS:MMM
Bacterius
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
-
17 mars 2010 à 10:50
AMINE-SUBZERO Messages postés 9 Date d'inscription dimanche 18 mai 2014 Statut Membre Dernière intervention 3 septembre 2015 - 22 mai 2014 à 17:21
AMINE-SUBZERO Messages postés 9 Date d'inscription dimanche 18 mai 2014 Statut Membre Dernière intervention 3 septembre 2015 - 22 mai 2014 à 17:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/51456-fonction-de-conversion-de-millisecondes-en-hh-mm-ss-mmm
https://codes-sources.commentcamarche.net/source/51456-fonction-de-conversion-de-millisecondes-en-hh-mm-ss-mmm
22 mai 2014 à 17:21
20:33:01 ------- 21:03:55
et mrc d'avance
26 mars 2010 à 20:09
23 mars 2010 à 18:50
Voici une fonction pour convertir les MilliSec on Jour/HH:MM:SS.MSS:
function MSecToTime(mSec: Int64): string;
var
dt : TDateTime;
begin
dt := mSec / MSecsPerSec / SecsPerDay;
Result := Format('%d jours, %s', [Trunc(dt), FormatDateTime('hh:nn:ss.z', Frac(dt))]) ;
end;
18 mars 2010 à 14:34
17 mars 2010 à 23:00
function affichageTemps(temps : LongWord):string;
var Z, S, M, H : LongWord;
begin
Z := Temps mod 1000;
S := (Temps div 1000) mod 60;
M := (Temps div 60000) mod 60;
H := (Temps div 3600000);
result := format('%.d:%.2d:%.2d.%.3d',[H,M,S,Z]);
end;
17 mars 2010 à 15:32
Je vais essayer d'appliquer tes conseils.
17 mars 2010 à 10:50
une optimisation ? Tu peux déjà utiliser la fonction Format pour la dernière ligne de formatage. Et tu peux également te débarasser d'une poignée de variables, il est possible d'effectuer ta conversion avec seulement trois variables (secondes, minutes, heures) en plus de "temps".
Toutefois je vois mal l'intérêt d'afficher les millisecondes à part ralentir la fonction, de toute façon ça passe tellement vite qu'on a pas tellement le temps de voir les millisecondes passer :p
Cordialement, Bacterius !