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

  • 主题发起人 主题发起人 bigery
  • 开始时间 开始时间
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)
 
直接作相减运算就可以了!
 

Similar threads

回复
0
查看
848
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部