告急！delphi5怎样的到两个date值之间的完整的天数，要求返回整数，在线等！！

Question

告急！delphi5怎样的到两个date值之间的完整的天数，要求返回整数，在线等！！

Answer 1

trunc(dataset.fieldbyName('enddate').AsDateTime-dataset.fieldbyName('beginDate').AsDateTime

Answer 2

var
   y1,m1,d1,y2,m2,d2: Word;
begin
   DeCodeDate(Date1, y1, m1, d1);//Date1,Date2为TDateTime
   DeCodeDate(Date2, y2, m2, d2);
   showmessage(inttostr(y2-y1));
end;

Answer 3

Returns the number of whole days between two specified TDateTime values.UnitDateUtilsCategorydate/time routinesfunction DaysBetween(const ANow, AThen: TDateTime): Integer;DescriptionCall DaysBetween to obtain the difference, in days, between two TDateTime values.DaysBetween counts only whole days. Thus, DaysBetween reports the difference between Dec 31, 1999 11:59 PM and Jan 1, 2000 11:58 PM as 0 because the difference is one minute short of an entire day.

Answer 4

不好意思,前面搞错了showmessage(FloatToStr(Date2 - Date1));