Iki tarih arasinda kac gun kac ay.

[rahim_azeri]

Merhaba arkadaslar,mesela ben 1 iscinin ise basladiqi gunden bu gune kadarki maashini nasil hesablaya bilirim...Iscinin ise baslama tarixi 14.05.2012 bu gun ku tarix 25.09.2012 iscinin ayliq maashi 800 dollar.Lutfen yardim edin. Onceden oz tesekkurumu bilidiriem.

[ikra]

DateFiff ve DaysBetween fonksyonlarini bir arastir.

Uses kismina DateUtils eklemeyi unutma.

[Lost Soul]

Şöyle bir kullanım da yapılabilir.

Kod: Tümünü seç

uses DateUtils,Dialogs

Kod: Tümünü seç

var
  aNow, aThen,aDiff : TDateTime;
  Gun,Ay,Yil : Word;
begin
  aNow := EncodeDate(2012,9,25);
  aThen := EncodeDate(2012,5,14);
  aDiff := aNow- aThen;
  DecodeDate(aDiff,Yil,Ay,Gun);
  ShowMessage(Format('Fark = %d Yıl %d Ay %d Gün',[Yil-1900,Ay,Gun]));

Sonuç

Kod: Tümünü seç

[Window Title]
Project571

[Content]
Fark = 0 Yıl 5 Ay 13 Gün

[OK]

[SimaWB]

Sonuç

Kod: Tümünü seç

[Window Title]
Project571

[Content]
Fark = 0 Yıl 5 Ay 13 Gün

[OK]

Ama bu sonuç yanlış değil mi?

[Lost Soul]

İş ortasında jimnastik olsun diye çok fazla üzerinde durmadan yazdım.
Sanırım varsayılan tarih 1.1.1900..
[Yil-1900,Ay,Gun] deyiminde Yıldan 1900 çıkardığım gibi ay ve günden de 1 çıkarmak gerekiyor muhtemelen.
Yani [Yil-1900,Ay-1,Gun-1] şeklinde.