请帮我找出两个日期之间的天数。
我有两个对象TDBDateEdit date1和date2。
procedure Torder_form.date2Click(Sender: TObject);
var d3: TDateTime;
begin
d3:=date2.date - date1.date;
showmessage(datetostr(d3));
end.
我设置了 date1 = 2015年7月10日
和 date2 = 2015年11月15日
结果应该是:39
但程序给出的结果是:1900年2月7日
我发现了DaysBetween函数,然后我更改了我的代码:
procedure Torder_form.date2Click(Sender: TObject);
var d3: TDateTime;
begin
d3:=DaysBetween(date2.date,date1.date);
showmessage(datetostr(d3));
end.
但程序显示结果为:
1900年7月2日
。