iki tarih ve saat arasındaki ay gün ve saat farkı

[erdogan]

Arkadaşlar,

İki tarih arasındaki ay gün saat farkını nasıl çıkartabilirim ?

"01.12.2017 11:00:00" - "20.12.2017 12:30:00"
"Kalan Zaman : 20 Gün 1 Saat 30 Dakika"
Bu sonucu nasıl alabilirim ?

Çeçitli konular baktım ama somut bir örnek bulamadım
aşağıdaki kod ile sadece gün farkını veriyor 
Teşekkürler.

var
     Tarih1, Tarih2: Tdate;
     Yil, Ay, Gun: Integer;
begin
       Tarih1 := QRY1.FieldByName('BASLANGIC').Value;
       Tarih2 := QRY1.FieldByName('BITIS').Value;
       Yil := YearsBetween(Tarih2, Tarih1);

       Tarih2 := IncYear(Tarih2, - Yil);

       Ay := MonthsBetween(Tarih2, tarih1);
       Tarih2 := IncMonth(Tarih2, - Ay);
       Gun := DaysBetween(Tarih2, Tarih1);
       
       QRY1.FieldByName('KALAN_ZAMAN').Text:=Format('%d Yıl. %d Ay. %d Gün', [Yil, Ay, Gun]);

[Halil Han BADEM]

Bu örneği incelemenizi tavsiye ediyorum.

[adelphiforumz]

aşağıdaki konudan FarkZaman fonksiyonunu değiştirerek istediğini elde edebilirsin.

http://www.delphican.com/bazi-ceviri-fon...syasi.html