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

ilikenba

uses DateUtils;

YearsBetween(); //年 MonthsBetween(); //月 DaysBetween(); //日 4 m3 V% [% A! T8 E0 @HoursBetwen(); //时 5 ?8 s, N5 o0 i% J0 fMinutesBetween();//分 / H6 T4 D4 y$ p4 o3 O; q4 GSecondsBetween();//秒

2 p- C- Y. I+ o" A) {

如：

uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject); ! n* M M$ D; L A# K7 e* B5 Wvar time1,time2:TDateTime; begin 2 [1 H) d- r+ r! u; h$ H. [! F time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); ShowMessage(IntToStr(MinutesBetween(time1, time2))); end;

xiang1990

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

ilikenba

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

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

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

xShandow

Delphi自带的？