tarih toplama

[sako]

arkadaşlar mesela 01/01/2010 ile 22/09/2014 tarihleri arasında delphi ile gün ay yıl olarak hesaplama yapıyorum. Şöyle anlatayım.

İlk tarih : 01/01/2010
son tarih : 22/09/2014
sonuç : 4 yıl 8 ay 21 gün

işlemin EXCEL de yapılmış hali aşağıdaki gibidir. Aynısını döngü halinde delphiye uyarlamak istiyorum. ama genel toplam alma işini çözemedim.

[barisatalay]

Misal toplam gün sayısını hesaplat.

Bunu if ler ile ay yıl olarak hesapla

[omurolmez]

DateDiff

[sako]

DateDiff

Hocam iki tarih arasındaki gün ay yılı zaten hesaplıyorum. Ben bu gün ay yılları toplayıp toplamda gün ay yıl olarak yazmak istiyorum...

[SimaWB]

Bence de Sn.barisatalay'ın dediği gibi toplam gün sayısını bulup bunu yıl, ay, gün'e dönüştürün.
İki tarih arasındaki gün sayısını bulmak için DaysBetween kullanabilirsiniz.

Toplam gün sayısı bulunduktan sonra:

Kod: Tümünü seç

var
  yil, ay, gun: Integer;
begin
  yil := ToplamGunSayisi div 360;//Excel'de bir yıl 360 gün sayılıyor sanırım
  ay  := (ToplamGunSayisi mod 360) div 30;//bir ay da 30 gün
  gun := ToplamGunSayisi mod 30;