przeliczanie sekund na godziny minuty i sekundy

szukalem na forum i nieznalazlem :( chodzi o to zeby przeliczyc np 225s. na godziny : minuty : sekundy... poprosil bym o funkcje :-| aha niepowiem do czego mi to bo sie beda czepiac ze sie chwale :-/

var
sek, min, hours:integer;

BEGIN
sek:= //iles tam;

min:=sek div 60

hours:=sek div 3600

END;

Panie DETROX:
Co to jest projekt jakiś tam ??
Bez obrazy, bo mi się takie projekty podobają !!

[...]Co to jest projekt jakiś tam ??
Bez obrazy, bo mi się takie projekty podobają !!

NSP, to projekt nowego notatnika, tak dla programmer'ów jak chcesz brać w nim udział to musisz być naprawdę dobry programmer.

Aktualny sqad to:
Detox, Johnny_Bit, Ktos, Drajwer, Sebek i o ile się nie myle jeszcze Faszczu

(kolejność losowa)

Oto podział na sekundy, minuty i godziny, jeśli dane są sekundy:

var
h, m, s, suma:interger;
BEGIN
suma:= // tutaj suma sekund
h:=suma div 3600;
m:=(suma mod 3600) div 60;
s:=(suma mod 3600) mod 60;
END;

Z mojego programiku

// SekundyToMinuty, zwraca w formacie mm:ss z poprzedzającymi zerami
function SToM(Sekundy: Integer): String;
var
S,M: String;
begin
M:=IntToStr(Sekundy div 60);
if Length(M)=1 then M:='0'+M;
S:=IntToStr(Sekundy mod 60);
if Length(S)=1 then S:='0'+S;
Result:=M+':'+S;
end;

nooooooooooooo mysle ze zadziala ;p

PS. Dziękuje badzo [hurra]