【结】日期加减**

wj0623

var systemdate:TDateTime;lasttime:TDateTime;a:TDateTime;
   systemdate:=Business.System.SysUtils.date;
   lasttime:= DataSetBroker1.DataSet.FieldByName('RQ').AsDateTime;
   a:=systemdate - lasttime;
   label3.Caption:=SysUtils.DateTimeToStr(a);
定义了两个变量   想把日期做一个差  显示结果完全不对呢

zfang

procedure TMainForm.Button1Click(Sender: TObject);
var
  lStr : String;
begin
  lStr := SysUtils.IntToStr(Business.System.DateUtils.DaysBetween(d2.Date , d1.Date));
  jsDialogs.ShowMsg(lStr,'');
end;

返回的是天数。

Akon

楼主,还有问题不?

alang

两个日期类型变量相减是这两个日期之间的天数，结果是浮点数，不是日期了
所以不能用DateTimeToStr函数，应该用FloatToStr

wj0623

问题解决了 结贴