Tarih Saat Hesaplama

[cmkare]

Merhaba arkadaşlar. en aşağıdaki kodda saniyeyi alamıyor. nasıl alabilirm acaba?

edt1'de yazılı olan değer : 11.08.2010 09:20:20
edt1'de yazılı olan değer : 13.08.2010 15:39:49
edt3'e yazılan değer : 3259

procedure TForm1.btn2Click(Sender: TObject); // butonda yazılı olan kod
begin
edt3.Text:=floattostr(MinutesBetween(StrtoDatetime(edt1.text),(strtodatetime(edt2.Text))));
end;

BURAYA KADAR SORUN YOK
SORUN AŞAĞIDA SON SATIRDA

procedure TForm1.btn1Click(Sender: TObject);
var
k:Integer;
begin
k:=StrToInt(edt3.Text);
lbl8.Caption:=(IntToStr(((k div 59) div 24))); /// GÜNÜ AKTARIYOR
lbl4.Caption:=(IntToStr(((k div 60) mod 24))); /// SAATİ AKTARIYOR
lbl5.caption:=(IntToStr((k mod 60))); /// DAKİKAYI AKTARIYOR
lbl12.caption:= /// BURAYADA SANİYEYİ AKTARACAK
end;

lbl12ye saniyeyi aktaramıyorum. sorun bu. nasıl yapabilirim.

[conari]

bizim sitede vardır illaki ama yakınımdaydı bu link.

Kod: Tümünü seç

http://docwiki.embarcadero.com/CodeSamples/en/DateTimeCompare_(Delphi)

[cmkare]

bu gönderdiğim kodun üzerine devam edilemezmi? sadece saniye alanı eklenecek

[emin_as]

Minutesbetween kullanma, secondsbetween kullan.
Ayrıca floattostr degil inttostr kullanmalısın. Her iki fonksiyonda int sonuç döndürür.

[cmkare]

ok. secondsbetweenle oldu.


procedure TForm1.btn2Click(Sender: TObject); // butonda yazılı olan kod
begin
edt3.Text:=floattostr(secondsbetween(StrtoDatetime(edt1.text),(strtodatetime(edt2.Text))));
end;

procedure TForm1.btn1Click(Sender: TObject);
var
k:Integer;
begin
k:=StrToInt(edt3.Text);
edt4.Text:=(IntToStr(((((k div 60)div 60) div 24)))+' Gün '+IntToStr(((k div 60)div 60)mod 24)+' Saat '+IntToStr((k div 60)mod 60)+' Dk '+IntToStr(((k mod 60)mod 60))+' Sn ');
lbl8.Caption:=(IntToStr(((k div 60) div 60)div 24)); //gün
lbl10.Caption:=(IntToStr((((k div 60)div 60)mod 24))); //saat
lbl4.Caption:=(IntToStr((((k div 60)mod 60)))); //dakika
lbl5.caption:=(IntToStr(((k mod 60)mod 60))); //saniye
end;



Teşekkürler