救救我

[Ray]

请问如何取两日期相隔的数值（整数如相隔秒，分，时，日，月，年）

[kxy]

两个TDatetime相减=天数.

[hexz]

DATEDIFF()!

[sky__horse]

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);
//将两日期相隔数显示出来

[barton]

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;

[barton]

错了，应该是procedure :-(

[Firing_Sky]

我同意kxy的意见