Zeitfunktionen in Delphi

[HuxXx]

Mhmm..., deine Funktion, die du dir vorstellst würde so aussehen:

Delphi-Quellcode:

function TimeToStr(Time: TDateTime): string;
var min, std, sec:Integer;
begin
min:= DateUtils.MinuteOf(now);
std:= DateUtils.HourOf(now);
sec:= DateUtils.SecondOf(now);
result:=IntToStr(std)+':'+IntToStr(min)+':'+IntToStr(sec);
end;

--> Gibt die eine Uhrzeit (TDateTime) als String aus. (Form: hh:mm:ss)


äääh...., du meinst der Parameter ist die Anzahl der Sekunden?...
ok, dann halt so:

Delphi-Quellcode:

function TimeToStr(secs:integer): string;
var min, std, sec:Integer;
begin
min:= secs div 60;
std:= secs div 3600;
sec:= secs mod 60;
result:=IntToStr(std)+':'+IntToStr(min)+':'+IntToStr(sec);
end;

-> Rückgabewert ist ein String (Form: hh:mm:ss).
-> Es erwartet als Paramter die Anzahl der Sekunden.

Hoffe dass ich helfen konnte..

Greetz by Hux

//editz:

Zitat von brsx:

procedure TimeToStr(Time: TDateTime): string;
var a:real;
begin
edit1.text:=strtotime(a);
???????

end;

Äähhmm..., seitwann gibt procedure einen Wert zurück....?
Du meinst wohl function