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

ilikenba

uses DateUtils;

7 J) }0 C! n+ Y4 G% v( d* m7 M4 Y# W

YearsBetween(); //年 ; v0 z1 Q0 R0 [& p) rMonthsBetween(); //月 DaysBetween(); //日 HoursBetwen(); //时 MinutesBetween();//分 SecondsBetween();//秒

如：

uses DateUtils;

1 W; W* k0 ?# ~7 e: k, T* D' K

procedure TForm1.Button1Click(Sender: TObject); - F3 K3 ]2 z+ I5 y/ Jvar time1,time2:TDateTime; - @9 I! J; C2 c3 D* J, nbegin 8 i9 q( w- L8 U' I, @7 L time1 := strtodatetime('2004-09-01 20:20:05'); % Y6 M4 j9 r' T/ T& V time2 := strtodatetime('2004-09-07 15:27:02'); 6 S* L% U# I6 p ShowMessage(IntToStr(MinutesBetween(time1, time2))); 1 |# q$ f3 }; P8 W. ~end;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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