İki tarih arasındaki farkı ay ve gün olarak bulma

[Ali Erdoğan]

Merhaba Arkadaşlar

iki tarih arasındaki farkı ay ve gün cinsinden bulmak istiyorum.Ancak

Kod: Tümünü seç

(tarih1-tarih2) div 30

Kodu bazı ayların 31 bazılarının 30 bazılarınında 28-29 olmasından dolayı tam olarak doğru sonucu vermiyor.Ancak ben tam olarak şu kadar ay şu kadar gün şeklinde elde etmek istiyorum.

Bunu yapabileceğim delphi veya sql server için hazır bir fonksiyon var mı?Yoksa sancılı yoldan mı yapmam gerekiyor.

[fduman]

bkz. DaysBetween MonthsBetween

[menderes]

[quote="Ali Erdoğan"]Merhaba Arkadaşlar

iki tarih arasındaki farkı ay ve gün cinsinden bulmak istiyorum.Ancak

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
Lst:TListItem;
t1,t2:TDate;
i:integer;
begin
 Li2.Items.Clear;
t1:=StrToDate(Edit1.Text);
t2:=StrToDate(Edit9.Text);
i:=0;
while i<=DaysBetween(t1,t2) do
begin
  Lst:=Li2.Items.Add();
  Lst.Caption:=DateToStr(t1);
 t1:=(t1+1) ;
i:=i+1;
   end;
 Label4.Caption:=IntToStr(Li2.Items.Count);
end;

Ben bu şekilde yapayım dedim t1: 01.09.2005 - t2 i ise 29.09.2005 -- aldım ilk 15 günü alıyor sonrasını almıyor...yani eksik listeliyor. Bunun daha pratik nasıl yapabiliriz acaba..?