几个用来计算时间差的函数！

ilikenba

uses DateUtils;

1 q$ m$ ?/ r# \: {" d p0 l1 K# {* R

YearsBetween(); //年 MonthsBetween(); //月 DaysBetween(); //日 " W/ ]5 E3 H* \8 ]! fHoursBetwen(); //时 / U- T6 b/ j0 X0 H; v+ ~& dMinutesBetween();//分 / J& U( g; ^( E0 \3 _5 tSecondsBetween();//秒

) R$ r! D, H ?% D$ v

如：

uses DateUtils;

6 e1 o# O+ k: X% ?* C: t

' _. j2 p4 K! k* h$ ]3 mprocedure TForm1.Button1Click(Sender: TObject); 4 ^- j9 J% g( k( m9 d% R4 f, P# Kvar 4 s# z5 r4 q5 K$ o# W time1,time2:TDateTime; 3 a$ R6 F) b' y& p; z4 T) U4 x lbegin 4 E( c' z: o0 O3 ] time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); ShowMessage(IntToStr(MinutesBetween(time1, time2))); % ^8 N( @4 h, J: d! s& Oend;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

是Delphi自带的！可以用数据库的函数，例如：DateDiff函数！

另外在BCB中对于日期时间型的变量可以直接用+或-号处理！因为已经重载了这两个运算符！

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

建议，下一次发一点作图程序，各种规则图形作图