tarih aralığı bulma

[kubra_21]

s.a arkadaşlar ben bir kütüphane programı yapıyorum. şöyle bir sistem oluşturmaya çalışıyorum. ben bir kitap verdiğim zaman kişiye o kişi kitabı iade etmesi gereken günden sonra getirirse her geciktirdiği gün için 1 ytl alacağım bu zman aralığını nasıl hesaplayıp ücreti çıkarabilirim. yardımcı olacak arkadaşlara rica etsem bana yardım edebilirler mi.......



selam ve dua ile..

[ofenX]

Merhaba,
Sanırım aşağıdaki gibi bir yöntem kullanabilirsiniz.

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var

  tbas,tson:tdate;
        fark:double;
  begin

       tbas:=strtodate('01.10.2006');
       tson:=strtodate('10.10.2006') ;
       fark:=tson-tbas;
       showmessage(floattostr(fark));

end;

yukarıdakine göre sonuç 9 oluyor.
Kolay gelsin.

[kubra_21]

ofenX kardeş teşekürler..Allah razı olsun az çok birşeyler yaptım...

[hdayi]

DaysBetween de kullanabilirsin. DaysBetween(suankitarih, eskitarih);
suankitarih ve eskitarih TDate türünde olmalı.

Kod: Tümünü seç

showmessage(IntToStr(DaysBetween(tson,tbas)));

Ayrıca benzeri fonksiyonlar:
WeeksBetween() iki Tarih arasındaki haftalar
MonthsBetween() iki Tarih arasındaki aylar
YearsBetween() iki Tarih arasındaki yıllar
HoursBetween() iki zaman arasındaki saatler
MinutesBetween dakikalar
SecondsBetween saniyeler
ve hatta
MilliSecondsBetween mili saniyeleri verir.

Kolay Gelsin...

[Ancestor]

Ayrıca tarihler arası fark yazıyoruz ve bu işlem ile alakalı bir sürü yazı elde ediyoruz.

[vedatkaba]

http://www.delphiturkiye.com/index.php? ... tetime.htm

[kubra_21]

s.a vedat kaba arkadaş bi link yollamış. bu linkteki fonksiyonları ekledim ama bu seferde dateutils.dcu dosyasını bulamıyorum diye hata veriyo ve gidip uses kısmına eklediğim dateutils in üzerine konumlanıyo . bu durumda ne yapabilirim. yada bu unite sahip olan varsa bana gönderebilirmi acilen.şimdiden teşekkürler arkadaşlar.....

[vedatkaba]

dateutils'i diğer kütüphanelerin olduğu yere eklemeyi deneyin...

[kubra_21]

vedat hocam bu dateutils unitini yukarıyada denedim ama aynı hata. baska ne yapabileceğim hakkında bir fikriniz var mı?

[ofenX]

Merhaba,

vedat hocam bu dateutils unitini yukarıyada denedim ama aynı hata. baska ne yapabileceğim hakkında bir fikriniz var mı?

Eğer Delphi 5 kullanıyorsanız bu kütüphane yok diye biliyorum. Boşuna uğraşmayın diyeceğim.
Yoksa diğer unitler neredeyse onu oraya kopyalamaya çalışın.
Bende delphi7\lib klasöründe bulunuyor ve çalışıyor.

Kolay gelsin.

[kubra_21]

s. a hocam evet maalesef delphi 5 kullanıyorum peki bana yollayabilirmisiniz o uniti