Question

请问在DELPHI中，两个日期型变量怎么能么才能得到它们相隔的小时数？相减吗？

Answer 1

function Hours(Date1,Date2:TDateTime;):Integer;var 说了半天你照样不明白! hh1,hh2,mm,ss,ms:Word; tempDate :TDateTime;begin if Date1<Date2 then begin TempDate:=Date1; Date2:=Date1; end; Date1:=Date2; Result:=24*(Trunc(Date1)-Trunc(Data2)); // 日期相差的天数＊24 DecodeTime(date1,hh1,mm,ss,ms); DecodeTimd(Date2,hh2,mm,ss,ms); Result:=Result+(hh1-hh2); // 加上小时相差部分；end;

Answer 2

日期相减后照样日孚型吗？？？好象不克不及用DECODETIEM。

Answer 3

用DecodeDate(Date: TDateTime; var Year, Month, Day: Word);DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);对日期进行解码,然后用变参返回的值进行减法运算！

Answer 4

Musicwind(吾爱是Yaya!)　高/