关于时间差值的问题.....

Question

大家好!  
        我的问题是这样编写一个关于时间差的问题...比如2003年5月9日和2004年6月16日的时间差...请给帮助...谢谢..

Answer 1

procedure TForm1.Button1Click(Sender: TObject); 
var 
v1,v2:TDate; 
begin 
ShortDateFormat:='y/m/d'; 
DateSeparator := '-'; 
v1:=StrToDate('1998-12-26'); 
v2:=StrToDate('1997-11-2'); 
MessageDlg('相差天数为:'+IntToStr(Trunc(v1-v2)),mtInformation,[mbOK],0); 
end; 

Answer 2

直接减就可以，查一下帮助，最关键的一句话
type TDateTime = type Double;
就是double型，所以可以随便加减了，出来的是天1.5就是一天半....

Answer 3

在dateUtils单元中
i:=YearsBetween(t1,t2);
  MonthsBetween();
  DaysBetween();
  WeeksBetween();
  HoursBetween();
  MinutesBetween();
  SecondsBetween();
  MilliSecondsBetween();
求两个日期间的？差，随便求