İki tarih farkını gün olarak nasıl alıyorduk

[naile]

İki tarih arasındaki gün farkını delphide alabiliyormuyduk? Alınıyordu da sanırım nasıldı hatırlayamadım

Yani;

15.05.04 ile 01.06.04 arasında "16 gün" var.

[TRSoft]

@naile hanım ikiside date tipindeyse birbirinden çıkartmanız yeterli sanırım.

[fahrettin]

evet doğru date tipindeki değişkenleri birbirinde çıkartıp bir tamsayı değişkene atayabilirsiniz....

[mussimsek]

DateUtils'de hazır fonksiyonlarda var. Bkz : Site -> Makaleler

Kolay gelsin.

[naile]

DaysBetween fonksiyonu tam olarak işimi gördü, teşekkürler..

[shadowmann]

fonk.siyonumuz
function Tarih(Tarih1, Tarih2: TDateTime): string;
var gun: integer;
difference: real;
begin
if Tarih2 > Tarih1 Then //Tarih, sistem Tarihinden kücükse
difference:=Tarih2-Tarih1;
if Tarih2 < Tarih1 Then //Tarih, sistem Tarihinden Büyükse
difference:=Tarih1-Tarih2;
Gun:=round(difference-Frac(difference));
difference:=Frac(difference)*24;
result:=IntToStr(Gun)+' Gün';
end;


fonk.çağırma
procedure TForm1.Button4Click(Sender: TObject);
var
Tarihgun, Bugun: TDateTime;
// Diff: real;
begin
Edit3.Text := DateToStr(Date);
Tarihgun := StrTODate(Edit4.Text);
Bugun := Date;
// Tarih hesaplama
Label1.Caption := Tarih(Tarihgun,Bugun); //Tarih Fonksionunu cagirir
end;

[okurtdiken]

daysbetween ile date1-date2 yapmak arasında bir fark var.

daysbetween ile iki tarihin farkını aldığınız zaman hiç bir şekilde (-) sonuç çıkmaz.

Örneğin:

date1:=01.01.2004;

date2:=05.01.2004;

sonuc:=date1-date2; // sonuc = -4

sonuc:=daysbetween(date1,date2); // sonuc = 4

sonuc:=daysbetween(date2,date1); // sonuc = 4

kolay gelsin...