如何计算两个日期之间的天数，急！！！

Question

var    
    Days:Double;  
begin  
    Days  :=  StrToDate('2001-2-02')-StrToDate('1999-12-25');  
end;

Answer 1

var
  Date1: TDatetime;
  Date2: TDatetime;
  DiffDate: Integer;
begin
  Date1 := StrToDateTime('2003-3-24'); 
  Date2 := StrToDateTime('2001-1-3');
  DiffDate := Round(Date1 - Date2);  //日期差!!!!end;如果不是StrTodateTime函数的话那应该是StrToDate，
自己试试看,致于是用Round还是Trunc自己看着办

Answer 2

回复人： CoolSlob(■■■■■□□□) (  ) 信誉：100  2002-3-25 16:13:22  得分:0  
 
 
  var
  Date1: TDatetime;
  Date2: TDatetime;
  DiffDate: Integer;
begin
  Date1 := StrToDateTime('2003-3-24'); 
  Date2 := StrToDateTime('2001-1-3');
  DiffDate := Round(Date1 - Date2);  //日期差!!!!end;如果不是StrTodateTime函数的话那应该是StrToDate，
自己试试看,致于是用Round还是Trunc自己看着办 
 
这样应该没错

Answer 3

var  
  Days:Double;
begin
   Days  :=  StrToDate('2001-2-02')-StrToDate('1999-12-25');
end; 
 
 

Answer 4

var    
    Days:integer;      
begin  
    Days  :=  trunc(StrToDate('2001-2-02')-StrToDate('1999-12-25'));
   
  
end;
 

Answer 5

Days:=FormatFloat(DateTime1-DateTime2)//DateTime1,DateTime2:DateTime

Answer 6

var  
  nDay:Double;
begin
   nDay  :=  StrToDate(D1)-StrToDate(D2);
end; 

Answer 7

写一个函数：对两个时间分别调用DatetimeToSystemtime函数，然后比较两个TSystemTime类型的变量各域的大小，可以得到相差的天数。