delphide iki tarih arası fark
kodları
var
tarih1, tarih2: tdate;
yil, ay, gun: Integer
begin
tarih1 := StrToDate(Edit1.Text);
Tarih2 := Date + 1;
Yil := YearsBetween(Tarih2, Tarih1);
Tarih2 := IncYear(Tarih2, - Yil);
Tarih
Ay := MonthsBetween(Tarih2, tarih1);
Tarih2 := IncMonth(Tarih2, - Ay);
Gun := DaysBetween(Tarih2, Tarih1);
caption := Format('%d Yıl. %d Ay. %d Gun', [Yil, Ay, Gun]);
end;
__________________