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
-
6 mars 2002 à 16:40
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
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
https://codes-sources.commentcamarche.net/source/11792-transformer-des-millisecondes-integer-en-format-hh-mm-ss-ccc-string
22 mars 2003 à 22:57
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 !!!!
7 mars 2002 à 16:47
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/
6 mars 2002 à 18:21
Mais comment fait-ton pour avoir les millisecondes ???
Merci @+
6 mars 2002 à 16:40
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;