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

ilikenba

uses DateUtils;

$ K& C! d% z, T3 y6 i9 ]

YearsBetween(); //年 MonthsBetween(); //月 5 \% a, {1 { p0 |1 d" U, C. M7 bDaysBetween(); //日 " M' N7 Z' _" \, U8 o/ K2 d! } o9 PHoursBetwen(); //时 MinutesBetween();//分 ; m# w4 |4 e& f! _# _SecondsBetween();//秒

如：

3 v. J" `" X6 h! j* q

uses DateUtils;

5 L. P4 Q9 Q6 `" N

procedure TForm1.Button1Click(Sender: TObject); var time1,time2:TDateTime; 6 i% f& s" c$ xbegin % _6 p" w d& s time1 := strtodatetime('2004-09-01 20:20:05'); 1 X! F* L0 f# z8 Y* ` time2 := strtodatetime('2004-09-07 15:27:02'); ShowMessage(IntToStr(MinutesBetween(time1, time2))); 7 p2 u9 |/ u' |' Iend;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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