如何用日期与日期相减，得到天数?(50分)

dcsdcs · 2001-09-11

如何用日期与日期相减，得到天数?

sunwb · 2001-09-11

直接减就得到天数了

dcsdcs · 2001-09-11

直接减得到的是日期

dittw · 2001-09-11

我同意sunwb的看法。直接相减就可以了

antic_ant · 2001-09-11

前面有人回答过了，你查一下

delphi_lsl · 2001-09-11

直接减得到的确实是日期！

ugvanxk · 2001-09-11

delphi 6 新增加函数
Returns the number of whole days between two specified TDateTime values.
Unit
DateUtils
Category
date/time routines
function DaysBetween(const ANow, Athen
: TDateTime): Integer;
Description
Call DaysBetween to obtain the difference, in days, between two TDateTime values.
DaysBetween counts only whole days that have elapsed. Thus, DaysBetween reports the difference between Dec 31, 1999 11:59 PM and Jan 1, 2000 11:58 PM as 0 because the difference is one minute short of an entire day.

sally0303 · 2001-09-12

直接相减不一定得到，例如9.1-8.3这样，不过找他们的数学关系就行了！

abcool · 2001-09-12

用sql的datadiff

delphi_lsl · 2001-09-13

var date1,date2:tdate;
t:integer;
begin
date1:=strtodate('01-09-08');
date2:=strtodate('01-08-04');
t:=trunc(date1-date2);
showmessage(inttostr(t));
end;
怎么样，得到相减的日期了吧！注：tdate是一种特殊类型，可以用实型表示！
以1899-12-30为0。

dcsdcs · 2001-09-17

谢谢楼上的解决根本问题

sdbear · 2003-08-19

询问：我用DatePicker取时间相减发现。例如：（2000-9-27） - （2000-9-27）=0
而（2000-9-28） - （2000-9-27）=0
为什么？？？？？？？是使用trunc的。

kirinma · 2003-09-03

还没有试过，不知道行不行

无头骑士 · 2003-09-03

var date1,date2:tdate;
t:integer;
begin
date1:=strtodate('2000-9-28');
date2:=strtodate('2000-9-27');

t:=trunc(date1-date2);
showmessage(inttostr(t));
end;
不是0，而是1。

如何用日期与日期相减，得到天数?(50分)

dcsdcs

Unregistered / Unconfirmed

sunwb

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

dittw

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

delphi_lsl

Unregistered / Unconfirmed

ugvanxk

Unregistered / Unconfirmed

sally0303

Unregistered / Unconfirmed

abcool

Unregistered / Unconfirmed

delphi_lsl

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

sdbear

Unregistered / Unconfirmed

kirinma

Unregistered / Unconfirmed

无头骑士

Unregistered / Unconfirmed

Similar threads