Wie kann ich Integer zeit:= 80 sec --->00:01:20(DATEFORM

[bundy]

Wie kann ich Integer zeit:= 80 sec --->00:01:20(DATEFORMAT) convertieren .


danke

[Stanlay Hanks]

Delphi-Quellcode:

var
  MyTime: TDateTime;
  Min, Sec   : Integer;
begin
  Min := 80 div 60;
  Sec := 80 mod 60;
  MyTime := EncodeTime(0, Min, sec, 7);
  Label1.Caption := TimeToStr(MyTime);
end;

Du musst eben erst 80 Sekunden aufteilen in Minuten und Sekunden.
Man liest sich, Stanlay

[r_kerber]

Delphi-Quellcode:

var
  tTime: TDateTime;
  sTime: String;
begin
  tTime:= 80;
  tTime := tTime / (3600*24); 
  sTime:= FormatDateTime ('hh:nn:ss', tTime); 
end;

[Stanlay Hanks]

Muss es nicht FormatDateTime heißen?

[r_kerber]

Natürlich. Asche auf mein Haupt.

[bundy]

DANKE geht einwandfrei mein Timer..........Super.


DANKE DANKE DANKE

[Stanlay Hanks]

Zitat von r_kerber:

Natürlich. Asche auf mein Haupt.

Nana ... Deine Lösung is trotzdem einwandfrei die bessere. (vor allem vollständig)

[r_kerber]

Danke für die Blumen