TRANSFORMER DES MILLISECONDES(INTEGER) EN FORMAT HH:MM:SS:CCC (STRING)

Messages postés
54
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
20 juillet 2006
- - Dernière réponse : garfieldfr
Messages postés
1
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
22 mars 2003
- 22 mars 2003 à 22:57
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/11792-transformer-des-millisecondes-integer-en-format-hh-mm-ss-ccc-string

PhGORMAND
Messages postés
54
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
20 juillet 2006
-
Salut. Que penses tu de ce code ?

Function MilisecondesToTime( M : Integer) : String;
Var
T : TDateTime;

Begin
T:=D /86400000;
Result := TimeToStr(T);
End;


// Exemple
procedure TForm1.Button1lick(Sender : TObject);
Var
T : Integer;
begin
T:=GetTickCount;
Caption:= MilisecondesToTime(T);
end;
fabiin
Messages postés
338
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6 -
Wé !!! c cool ton code !!!
Mais comment fait-ton pour avoir les millisecondes ???

Merci @+
PhGORMAND
Messages postés
54
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
20 juillet 2006
-
Tu fais comme ça, pour avoir les milisecondes.

Function MilisecondesToTime(D : Integer) : String;
Var
T : TDateTime;
F : Double;
Begin
F := (Frac(D / 1000)) * 1000;
T := D / 86400000;
Result := TimeToStr(T) + ':' + IntTostr(Round(F));
End;


Au fait : http://philippe.gormand.free.fr/
garfieldfr
Messages postés
1
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
22 mars 2003
-
ou comment se compliquer la vie :
Il existe un type TTimeStamp:
TTimeStamp =record
Time:Integer;
Date:Integer;
end;

donc le code :
var T:TTimeStamp;
D:TDateTime;
begin
T.time := 1254586; //millisecondes
D:=TimestampToDateTime(T);
...et plein d'autre fonction ....
end;

en gros, vous reinventez la roue .... il faut lire la doc !!!!