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

ilikenba

uses DateUtils;

YearsBetween(); //年 + p: L" O7 {! w9 x) J6 AMonthsBetween(); //月 , j( q/ W9 O0 B8 u! GDaysBetween(); //日 $ V( \ M6 Y aHoursBetwen(); //时 4 t; Y$ x1 o2 r; A# i7 B8 i- B( XMinutesBetween();//分 * z8 O3 C6 b) K( \5 LSecondsBetween();//秒

如：

uses DateUtils;

- x- a7 A1 c6 ]' h$ _procedure TForm1.Button1Click(Sender: TObject); var time1,time2:TDateTime; : {7 i- u) F0 m3 O9 o. fbegin 2 g* C" a% Q) P time1 := strtodatetime('2004-09-01 20:20:05'); : a3 g: P& }. t time2 := strtodatetime('2004-09-07 15:27:02'); 6 y/ W2 I# m" j% T- j5 \ ShowMessage(IntToStr(MinutesBetween(time1, time2))); 7 _9 q" R# w0 g- h5 q+ i/ eend;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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