关于时间转换求助

Question

我现在用一个厂家的设备做通讯，其中对方有个DLL可以直接操作通讯的读写，里面有个变量是时间的，是当前时间距1970 年 1 月 1 日 0点0分0秒以秒为单位的数值，现在我想把它转换成年月日时分秒的格式，D里有函数可以直接转换吗，我找了没找到，如果不能直接转换应该怎么处理？

Answer 1

大概要用到以下几个函数
StrToDateTime
DateTimeToSysTemTime
SystemTimeToFileTime
calc
FiletimeToSysteme

Answer 2

TDatetime是一个从1899年12月30日算起的一个小数，可以直接加减procedure TForm1.Button1Click(Sender: TObject);
var a,b:TDatetime;
    c:double;
begin
   a:=strtodatetime('1970-1-1 0:0:0');
   c:= 31.25;//得到的数值，整数部分是天，小数部分是时间，0.5表示12个小时
   b:=a+C;
   showmessage(datetimetostr(b));
end;