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

ilikenba

uses DateUtils;

YearsBetween(); //年 MonthsBetween(); //月 DaysBetween(); //日 3 e1 S: |) C- E' d _7 THoursBetwen(); //时 MinutesBetween();//分 SecondsBetween();//秒

6 y) h* z) v- w* O

如：

uses DateUtils;

9 k( I% i {* e& ]# i

procedure TForm1.Button1Click(Sender: TObject); var time1,time2:TDateTime; * O( R D4 A+ h1 B" Vbegin ) M" q& g3 n8 X1 M5 V- e time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); % O3 s. S2 `1 o- E0 p* e d5 o8 n ShowMessage(IntToStr(MinutesBetween(time1, time2))); 4 N0 ~* N* c6 f! N( `end;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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