F
FreeKen
Unregistered / Unconfirmed
GUEST, unregistred user!
请问在DELPHI中有没有计算两个给定日期间间隔天数的函数?如无,有计算上有什么
简便的方法? 谢谢了!!!!
简便的方法? 谢谢了!!!!
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
T
tinytao
Unregistered / Unconfirmed
GUEST, unregistred user!
两个日期相减，再取整就是啦。
T
tinytao
Unregistered / Unconfirmed
GUEST, unregistred user!
加一句，日期型就是浮点型。
陈
陈晨
Unregistered / Unconfirmed
GUEST, unregistred user!
date1:=now();
date2:=date1+21;
label1.Caption:=datetostr(date2);
date2:=date1+21;
label1.Caption:=datetostr(date2);
陈
陈晨
Unregistered / Unconfirmed
GUEST, unregistred user!
type TDateTime = type Double;
P
PFans
Unregistered / Unconfirmed
GUEST, unregistred user!
var
d1,d2:TDateTime;
value:integer;
begin
d1:=StrToDate('01-11-15');
d2:=date();
value:=Trunc(d1-d2);
end;
d1,d2:TDateTime;
value:integer;
begin
d1:=StrToDate('01-11-15');
d2:=date();
value:=Trunc(d1-d2);
end;
Z
zhihuali
Unregistered / Unconfirmed
GUEST, unregistred user!
function GetDates(D1,D2:TDate):Integer;
begin
Result:=Trunc(D2-D1);
end;
begin
Result:=Trunc(D2-D1);
end;
S
saellen
Unregistered / Unconfirmed
GUEST, unregistred user!
function GetDates(D1,D2:TDate):Integer;
begin
Result:=Trunc(D2-D1);
end;
begin
Result:=Trunc(D2-D1);
end;
H
hustchen
Unregistered / Unconfirmed
GUEST, unregistred user!
两个日期型的变量直接相减就行了，
日期型本来就是浮点型的。
日期型本来就是浮点型的。
U
ugvanxk
Unregistered / Unconfirmed
GUEST, unregistred user!
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.
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.
L
lq_jeffer
Unregistered / Unconfirmed
GUEST, unregistred user!
是否存在平年，闰年的问题
P
powersun
Unregistered / Unconfirmed
GUEST, unregistred user!
取整后相减
P
powersun
Unregistered / Unconfirmed
GUEST, unregistred user!
To :是否存在平年，闰年的问题
不会
不会
H
hustchen
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi自己会区分的，你可以试一下。
T
terry_lzs
Unregistered / Unconfirmed
GUEST, unregistred user!
你不用担心那么多，日期型其实是浮点型的，你将大的日期减去小的日期得到的浮点数进1
取整就是它们之间相差的天数了。
取整就是它们之间相差的天数了。
双
双流星
Unregistered / Unconfirmed
GUEST, unregistred user!
救是！
D
DELPHI鸟
Unregistered / Unconfirmed
GUEST, unregistred user!
var
Date1,Date2:TDateTime;
i:real;
begin
...
Date1:=Now;
Date2:=StrToDate('2001-11-10');
i:=Int(Date1-Date2);//i就是2个时间差的天数
showmessage(floatToStr(i));
end;
Date1,Date2:TDateTime;
i:real;
begin
...
Date1:=Now;
Date2:=StrToDate('2001-11-10');
i:=Int(Date1-Date2);//i就是2个时间差的天数
showmessage(floatToStr(i));
end;
白
白海森
Unregistered / Unconfirmed
GUEST, unregistred user!
日期型是浮点型。有一个时间基数，整数部分表示从基数到现在的天数，不足一天的部分用小数表示
以毫秒为单位，delphi的帮助中说日期型的基数为12/30/1899。
以毫秒为单位，delphi的帮助中说日期型的基数为12/30/1899。
Z
zyy04
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。