Discussion :

[Fabiani]

Dans les innombrables fonctions des routines date/heure je n'ai pas réussi a trouvé celle qu'il me faut pour convertir une heure en millisecondes:
j'ai un label qui représente un compteur avec comme caption:'00:05:00' (5 minutes),je décrémente les secondes avec:
PB:=lblPendule.caption;
lblPendule.caption:= timetostr(IncSecond(strtotime(PB),-1));
J'aimerais convertir '00:05:00' (ou autres)en millisecondes, donc obtenir 300 000 millisecondes pour le comparer avec GetTickCount.Merci.

[Nono40]

Avec une simple multiplication :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function Millis(DateHeure:TDateTime):Int64;
Begin
  Result:=Round(DateHeure*24*60*60*1000);
End;

Attention au dessus de 49,7 jours, cette fonction repasse à 0. ( Comme GetTickCount )

[Fabiani]

Merci pour ta réponse mais je viens de trouver la fonction prédéfinie:

Temps:TDateTime;
TS:TTimeStamp;

Temps:=strtotime(lblPendule.caption);
TS:=DateTimeToTimeStamp(Temps);
et je récupère les millisecondes avec TS.Time
mais ton code est plus 'classe' et plus court.