救救我

Question

var 
datetime1, datetime2:     Tdatetime;
year,month,day,h,m,s,ms:  word ;
begin... ...decodedate(datetime2-datetime1,year,month,day);  
//将两日期相隔数的年月日分离出来
decodetime(datetime2-datetime1,h,m,s,ms);
//将两日期相隔数的时分秒、毫秒分离出来
caption:=datetimetostr(datetime2-datetime1);
//将两日期相隔数显示出来

Answer 1

function DateTimeDiff(DateTime1, DateTime2: TDateTime;
  var Y, M, D, H, Mi, S, Ms: Word);
var
  DateTime3: TDateTime;
begin
  DateTime3 := Abs(DateTime1 - DateTime2);
  DecodeDate(DateTime3, Y, M, D);
  DecodeTime(DateTime3, H, Mi, S, Ms);
end;