İki tarih arasındaki saat farkını almak..

[KoPilot]

Herkese Merhaba;

Veritabanımda kayıtlı tarih ve saat ile (ki o alan "timestamp") şimdiki zaman (now) arasındaki saat farkını almak istiyorum. Yani aradan geçen zamanı (bir günden fazla ise 24+n olacak şekilde) bulmaya çalışıyorum.

Kod: Tümünü seç

DateTimeToJulianDate(Now);
JulianDateToDateTime(StrToFloat(Label1.Caption));

bu fonksiyonlarını kullanıyorum fakat bir türlü beceremedim.

İyi günler;

NOT : Acelesi yok konuyu diğer yöntemlerle hallettim dateutils içinde daha kolay bir yöntemi var mı diye merak ettim...

[csunguray]

Normal bir çıkarma işlemi yaparak bulabilirsiniz.

Kod: Tümünü seç

var
  Saat1, Saat2, Fark: TDateTime;
  Yil, Ay, Gun, Saat, Dakika, Saniye, Salise: Word;
begin
  Fark := Saat2 - Saat1;
  DecodeDateTime(Fark, Yil, Ay, Gun, Saat, Dakika, Salise);
end;

[KoPilot]

@csunguray hocam cevap için teşekkür ederim. Ben zaten bahsettiğiniz yönteme benzer bir yöntemle çözdüm ama benim alanım firebirdde "timestamp" yani tarih ve saati birlikte barındırıyor. Ayrıca mesela dateutils'de

Kod: Tümünü seç

daysbeetwen(1.tarih,2.tarih)

iki tarih arasındaki gün farkını veriyor. Acaba bu şekilde saat farkını veren (ama tarihide hesaba katarak) bir fonksiyon varmı diye merak ettim.

[conari]

Kod: Tümünü seç

MinutesBetween()
MinuteSpan()

[KoPilot]

Teşekkür ederim cevaplar için.

çözümü şöyle buldum

Kod: Tümünü seç

fark:=minutesbeetwen(tarih1,tarih2);

gun:=fark div 1440;
saat:=fark div 60 mod 24;
dakika:=fark mod 60; 

Herkese teşekkürler...