日期加减

Question

2009-04-20 01:12:12 - 2009-04-20 00:34:12   = 分钟?求这样的结果.

Answer 1

TDatetime可以直接相加减的.var     
time1,time2,time3:TDatetime;   
h,m,s:integer;    
begin    
  time3:=time1-time2;    
  decodetime(time3,h,m,s);     
  result:=h*3600+m*60+s;     
end

Answer 2

MinutesBetween(Date1,Date2)

Answer 3

顶，DateUtils单元提供了很多关于时间类型的函数，值得看看

Answer 4

Uses DateUtilsMinutesBetween(Date1,Date2)

Answer 5

var
T: TDateTime;
begin
T := StrToTime('01:12:12 ') - StrToTime('00:34:12 ');
ShowMessage(TimeToStr(T));
end;

Answer 6

对于日期时间的操作，Delphi的DateUtils单元中提供了一系统的函数，楼可以参考。
对于楼主的要求，可以使用
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
或是
function MinuteSpan(const ANow, AThen: TDateTime): Double;这两个函数的区别就不用我多说了吧，看其函数声明就可以知道了。