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

ilikenba

uses DateUtils;

YearsBetween(); //年 MonthsBetween(); //月 + h6 ?3 Z* z# B6 g( G: e Q# u/ ]DaysBetween(); //日 HoursBetwen(); //时 3 h- _8 D7 U4 [. c1 p; zMinutesBetween();//分 5 C% q8 r: l$ HSecondsBetween();//秒

如：

! M% n3 h6 {. ~) t

uses DateUtils;

5 W: w9 G( c* p! A A

procedure TForm1.Button1Click(Sender: TObject); var % o8 S2 m' @! G. \6 J time1,time2:TDateTime; ( d T# k$ f3 R1 c( k' g1 W8 W8 b! lbegin time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); 9 i0 u' G4 s( J; \" a- N$ u; \6 G ShowMessage(IntToStr(MinutesBetween(time1, time2))); * v, h B; @$ B. k5 Y$ U: Xend;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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