28-10-2013, 01:34 PM
في هدا الكود يعطيك عدد الايام و يمكنك عمال الطرح على النتيجة
بالتوفيق
بالتوفيق
كود :
uses
DateUtils;
var
Date1, Date2 : TDateTime;
Diff : Extended;
Day1, Month1, year1 : Word;
day2, Month2, year2 : Word;
begin
Date1 := EncodeDate(Year1, Month1, Day1);
Date2 := EncodeDate(year2, Month2, Day2);
Diff := DaysBetween(Date2, Date1);
end;