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

ilikenba

uses DateUtils;

YearsBetween(); //年 $ v: _: h' T. E9 r- q9 }! {MonthsBetween(); //月 DaysBetween(); //日 9 D& [: |3 ~" d" FHoursBetwen(); //时 9 R1 F6 ]2 r& ?2 ^) b+ c2 uMinutesBetween();//分 SecondsBetween();//秒

; A7 d, x; x7 `- r3 V

如：

6 ? L) n3 A/ W! Z7 r1 i6 {5 V

uses DateUtils;

: t. W1 m0 w) Z, ~) |procedure TForm1.Button1Click(Sender: TObject); 6 z; a0 m& C) q5 k" K6 b8 evar time1,time2:TDateTime; $ O; m/ W G- e* r! J, Lbegin 9 d; J4 t" H$ Z$ `- w' k) i' d time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); 6 m# f" y. n4 v: r. F7 T ShowMessage(IntToStr(MinutesBetween(time1, time2))); end;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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