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

ilikenba

uses DateUtils;

1 [+ l1 h% M0 E

YearsBetween(); //年 MonthsBetween(); //月 DaysBetween(); //日 - w0 P5 E) y: m$ Y: f* NHoursBetwen(); //时 MinutesBetween();//分 SecondsBetween();//秒

, j4 w9 f# |9 `9 Q. ~& Q

如：

- ^# g3 Y3 x# P4 y5 m' J, L2 ]

uses DateUtils;

% ^, b. E/ W6 t4 A# L) j8 Xprocedure TForm1.Button1Click(Sender: TObject); 9 P9 m1 Y" y& R W) ?: |/ f/ I- Wvar 0 v9 Y2 Y. o' d time1,time2:TDateTime; 4 }$ ]- `; h0 Z4 Z: t" m: h$ ibegin / B4 h7 v4 P, B; p time1 := strtodatetime('2004-09-01 20:20:05'); 3 O# P, V7 @6 c8 v: g j. @1 y time2 := strtodatetime('2004-09-07 15:27:02'); ShowMessage(IntToStr(MinutesBetween(time1, time2))); / m( E8 o8 t5 l, Bend;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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