Saniye'yi saat:dakika:saniye cinsine çevirme

[DelphiMania]

selamlar
Saniye'yi saat:dakika:saniye cinsine nasıl çevirebilirim.Örneğin 600 saniyeyi saat:dakika:saniye cinsine çevirmek istiyorum..

[naile]

Matematikteki mod u kullanarak bunu yapabilirsin(yani bölmede oluşan kalan ile). Delphide de mod olarak geçiyor. Bölümü bulmak için de div i kullanacaksın. Gerisi artık senin programcılığına kalmış. Böl, parçala sonra birleştir

[rsimsek]

Yani;

Kod: Tümünü seç

var
  Saat, Dakika, Saniye: integer;
begin
  Saat := trunc(Verilen_Saniye/3600);
  Dakika := trunc(Verilen_Saniye - (Saat * 3600) / 60);
  Saniye := Verilen_Saniye - (Saat * 3600 + Dakika * 60);
//...
end;

gibi

[Mustafa_Ucar]

Selam.

Buraya cevap göndermenize gerek yok.
Arkadaşla sorunu MSN'de çözdük.
Kodları göndermesini söylemiştim.
Kodlar onda olduğu için ben gönderemiyorum.

[DelphiMania]

Selamlar
Yeni girebildim siteye.Evet codder1989 ile çözmüştük msnde.

Kod: Tümünü seç

function cevir(sayi:string): String;
var
 z:Longword;
 sf,df,snf:string;
begin
 z:=strtoint(sayi);
 sf:=IntToStr(z div 3600);
 z:=z mod 3600;
 df:=IntToStr(z div 60);
 z:=z mod 60;
 snf:=IntToStr(z );
 If Length(df)=1 Then df:='0'+df;
If Length(sf)=1 Then sf:='0'+sf;
If Length(snf)=1 Then snf:='0'+snf;
Result:=sf+':'+df+':'+snf;
end;