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

ilikenba

uses DateUtils;

1 \! c/ l# {4 @# n, i- A

YearsBetween(); //年 MonthsBetween(); //月 DaysBetween(); //日 HoursBetwen(); //时 MinutesBetween();//分 SecondsBetween();//秒

如：

2 T8 X; R4 E' l$ F' L: z

uses DateUtils;

5 c' z# G2 z e. ?3 ?) s5 F

procedure TForm1.Button1Click(Sender: TObject); 4 w. k0 E( X" X' D, M( H# F: f6 Jvar time1,time2:TDateTime; . \6 I4 K% D/ Y, l& R/ J: s' R" K% Dbegin : V) |7 y0 H" ~ Z9 I time1 := strtodatetime('2004-09-01 20:20:05'); time2 := strtodatetime('2004-09-07 15:27:02'); % D2 g3 D5 B0 E% z* Q1 T5 ~ ShowMessage(IntToStr(MinutesBetween(time1, time2))); $ P' q" d! v+ ^4 ?; F8 W4 H% I* ^end;

xShandow

Delphi自带的？

maerlin

谢谢

还有好的吗？

用delphi数据库功能怎么样

ilikenba

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

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

惊瞥孤鸿影

红AHJKGSUOGBJDGWQOWJ

xiang1990

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