求救!一个关于计算天数的问题,急!!!(10分)

  • 主题发起人 主题发起人 duron
  • 开始时间 开始时间
D

duron

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi 6里我用了两个DateTimePicker控件,来显示日期,可是我想知道两个日期间相差多少
天呢?用什么方法.例如:一个是2002年1月1日,一个是2003年1月1日.两者相差365天,如何计算
的出
 
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.
 
DateTimePicker2.date-DateTimePicker1.date
 
直接减,然后取整数
Caption:=IntToStr(Trunc(StrToDate('2003-2-2')-StrToDate('2002-2-2')));
 
接受答案了.
 
一个函数搞定daysdetween
 
delphi里日期使用浮点数保存的,整数部分保存的是年月日,小数部分保存的是小时分钟秒,
所以用第一个的data属性减第二个就行了,至于日期型具体的定义参见delphi help
 
后退
顶部