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

ilikenba

uses DateUtils;

YearsBetween(); //年 / T8 v. M: N: Y) C* E" r% FMonthsBetween(); //月 DaysBetween(); //日 HoursBetwen(); //时 . H# c. p) S" y* G' Z+ p8 D# e9 mMinutesBetween();//分 1 T$ b/ G& Z5 `% T: m( LSecondsBetween();//秒

r) S8 o, v. z; p) o

如：

uses DateUtils;

) `" b$ Y& \% u: s5 _0 T

procedure TForm1.Button1Click(Sender: TObject); % R7 G. l# \: k- D9 f& X6 S8 cvar ; l6 M' D A7 l s( U time1,time2:TDateTime; 9 N1 Z+ T2 ~ o" ^3 S* Z, D7 Xbegin ( o1 t3 q# G. @3 x$ m time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); ShowMessage(IntToStr(MinutesBetween(time1, time2))); ) e& A8 {& |* \- S& Y; |* Send;

xiang1990

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

ilikenba

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

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

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

xShandow

Delphi自带的？