Discussion :

[agh]

Bonsoir à tous,

J'ai :
TotalMs : Integer ;
TotalMs := 12345675

Comment convertir le plus simplement possible TotalMs (qui sont, vous l'aurez deviné, des millisecondes) en une chaîne de forme : hh:mm:ss

Merci beaucoup.
Que ne ferai-je sans vous ?

[rotule]

Convertir en TDateTime en utilisant la constante MSecsPerDay (dans l'unité SysUtils).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
   TotalMs: Integer;
   dt: TDateTime;
   s: string;
begin
  TotalMs := 12345675;
  dt := TotalMs / MSecsPerDay;
  s := FormatDateTime('hh:nn:ss', dt);
  ShowMessage(s);
end;

[agh]

Merci, ça marche impecable !