ilikenba 发表于 2004-10-26 20:11

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

<P>uses DateUtils;</P>
<P>YearsBetween();  //年
MonthsBetween(); //月
DaysBetween();     //日
HoursBetwen();   //时
MinutesBetween();//分
SecondsBetween();//秒</P>
<P>如：</P>
<P>uses DateUtils;</P>
<P>
procedure TForm1.Button1Click(Sender: TObject);
var
  time1,time2:TDateTime;
begin
  time1 := strtodatetime('2004-09-01 20:20:05');
  time2 := strtodatetime('2004-09-07 15:27:02');
  ShowMessage(IntToStr(MinutesBetween(time1, time2)));
end;</P>

xShandow 发表于 2004-10-27 13:42

<P>Delphi自带的？</P>

maerlin 发表于 2004-10-27 14:42

<P>谢谢</P><P>还有好的吗？</P><P>用delphi数据库功能怎么样</P>

ilikenba 发表于 2004-10-27 18:27

<P>是Delphi自带的！可以用数据库的函数，例如：DateDiff函数！</P><P>另外在BCB中对于日期时间型的变量可以直接用+或-号处理！因为已经重载了这两个运算符！</P>

惊瞥孤鸿影 发表于 2012-6-22 16:39

红AHJKGSUOGBJDGWQOWJ

xiang1990 发表于 2012-6-30 15:32

建议，下一次发一点作图程序，各种规则图形作图
页: [1]
查看完整版本: 几个用来计算时间差的函数！