关于Delphi中TimeStamp的转换(200分)

T

tanneng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #1

现将一整数（自1970年1月1日起到现在累加的秒数）以 4 byte 存储，现要将其转换成当前日期和时间。
在C 语言中是通过GMTIME函数转换的，但不知DELPHI中如何转换？

 

L

liuge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #2

设 整数=x

var
s:TDateTime;
begin
s:=strtodatetime('1970-1-1 0:0:0')+x /(3600*24);
end;

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #3

function StampToDateTime(X: DWord): TDateTime;
begin
Result := X / (24 * 60 * 60) + 25569;
end;

 

T

tanneng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #4

接受答案了.