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

ilikenba

uses DateUtils;

6 }7 _8 N D, {4 s( @

YearsBetween(); //年 MonthsBetween(); //月 5 `. Y8 N0 r; Q; R0 B( U' |- d: @DaysBetween(); //日 HoursBetwen(); //时 MinutesBetween();//分 $ A h0 z( Q) w& q9 k+ c) t: DSecondsBetween();//秒

如：

0 E4 D# O) f. r d/ M# i5 n4 U* T" ]

uses DateUtils;

" O1 \) r4 n3 o% t' k- uprocedure TForm1.Button1Click(Sender: TObject); - E! u7 w0 }% v) u1 Yvar , @* W1 r" N$ D8 D0 A% ^ time1,time2:TDateTime; begin 9 s1 ^: S# N( R' B8 `5 R time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); ShowMessage(IntToStr(MinutesBetween(time1, time2))); end;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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