M MicroZeng Unregistered / Unconfirmed GUEST, unregistred user! 1998-12-26 #1 ; 例如要知道'1998-12-26'与'1997-11-2'之间相差多少天, 请问要怎么做比较好呢? 我用的是Delphi4 .
O O_O Unregistered / Unconfirmed GUEST, unregistred user! 1998-12-26 #2 二个TDate减一下不就行了吗? 下面是一个小例子: procedure TForm1.Button1Click(Sender: TObject); var v1,v2:TDate; begin ShortDateFormat:='y/m/d'; DateSeparator := '-'; v1:=StrToDate('1998-12-26'); v2:=StrToDate('1997-11-2'); MessageDlg('相差天数为:'+IntToStr(Trunc(v1-v2)),mtInformation,[mbOK],0); end;
二个TDate减一下不就行了吗? 下面是一个小例子: procedure TForm1.Button1Click(Sender: TObject); var v1,v2:TDate; begin ShortDateFormat:='y/m/d'; DateSeparator := '-'; v1:=StrToDate('1998-12-26'); v2:=StrToDate('1997-11-2'); MessageDlg('相差天数为:'+IntToStr(Trunc(v1-v2)),mtInformation,[mbOK],0); end;
C CJ Unregistered / Unconfirmed GUEST, unregistred user! 1998-12-26 #4 you could simply use Date1 - Date2
H huizhang Unregistered / Unconfirmed GUEST, unregistred user! 1998-12-27 #5 TDateTime 是一个 Double 类型, 整数部分表示年月日, 小数部分表示时间. TData 是一个 TDataTime 类型, 小数部分全为零, 因此 Date1-Date2是天数差
H huhuhu Unregistered / Unconfirmed GUEST, unregistred user! 1998-12-27 #6 TDateTime是Double类型，整数部分表示从12/30/1899 12:00 am到现在的 天数，小数部分表示现在时间占一天时间的比例，所以想算天数，如下即可： var DayCount : Integer; begin DayCount := Trunc(DateTime1 - DateTime2); end;
TDateTime是Double类型，整数部分表示从12/30/1899 12:00 am到现在的 天数，小数部分表示现在时间占一天时间的比例，所以想算天数，如下即可： var DayCount : Integer; begin DayCount := Trunc(DateTime1 - DateTime2); end;
