怎样用delphi语句求出两日期相减的差？

Question

怎样用delphi语句求出两日期相减的差？
比如：（2004-3-22）- （2004-1-22）=？请各位帮忙。谢谢。。

Answer 1

decodedate(date1,y1,m1,d1);
decodedate(date2,y2,m2,d2);
相差日数:=(y1-y2)*365+(m1-m2)*30( or 31,28,29)+d1-d2
应该是这样吧！！

Answer 2

只是求天数用DaysBetween，uses DateUtils

Answer 3

你想得到身麼樣的返回值?
如果是要日期返回值就直接相減;
否則有daysbetween,monthof,yearof等函數可用;

Answer 4

var
date1,date2:TDate;
begin
date1:=StrToDate('2004-03-22');
date2:=StrToDate('2003-03-22');
showmessage(FloatToStr(date1-date2));
end;

Answer 5

求日期之间的差！
用函数DaysBetween

Answer 6

Unit
DateUtilsfunction DaysBetween(const ANow, AThen: TDateTime): Integer;

Answer 7

uses DateUtilsfunction YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;
////////////////////////////////////////////////////////
直接相减得到的是天数，结果取整于DaysBetween的结果相同

Answer 8

trunc(datetofloat(date1.date-date2.date)+1)