怎么计算某年某月某日到系统日期之间得天数??(50分)

B

bigery

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么计算某年某月某日到系统日期之间得天数??比如计算:2002-06-17到2002-08-22之间的天数,该怎么办呢?谢谢各位
 
shortdateformat:='YYYY-MM-DD';
edit1.text:=floattostr(strtodate('2002-06-17')-strtodate('2002-08-22'));

edit显示为-66
 
日期类型的数据可以进行加减运算的.直接进行运算就可以了!
 
有函数的,在DateUtils单元
DaysBetween(const ANow, AThen: TDateTime): Integer;

 
Delphi5的按QuickSilver的计算就可以了,因为日期型数据在内存里其实也是用浮点型
来表示的。至于Delphi6,它有Door2000所说的函数,直接用函数算就可以了。
 
Round('2002-08-22'-'2002-06-17',0)
 
直接作相减运算就可以了!
 
顶部