转换GMT秒数为日期时间格式-Delphi源码。

最近在写PE分析工具的时候，需要转换TimeDateStamp字段值为日期时间格式，这是Delphi的源码。 

//把GMT时间的秒数转换成日期时间格式
function GetGMTDateTime(Value:Int64):TDateTime;
var
  Year,Month,Day:Word;
  Hour,Min,Sec,MSec:Word;
  iYear,iDay:Word;
  iHour,iMin,iSec:Word;
  RInt,i:Integer;
  TempDate,TempTime:TDateTime;
begin
  //GMT是从1970年1月1日开始计算的，所以把它作为初值
  Year:=1970; Month:=1; Day:=1;
  Hour:=0; Min:=0; Sec:=0; MSec:=0;
  //计算文件创建的年份
  iYear:=Value div (365*24*60*60);
  Year:=Year+iYear;
  //计算文件除创建整年份以外还有多少天
  iDay:=(Value mod (365*24*60*60)) div (24*60*60);
  //把闰年的年份数计算出来
  RInt:=0;
  for i:=1970 to Year-1 do
    begin
      if (i mod 4)=0 then
        RInt:=RInt+1;
    end;

  //计算文件创建的时间(几时)
  iHour:=((Value mod (365*24*60*60)) mod (24*60*60)) div (60*60);
  Hour:=Hour+iHour;
  //计算文件创建的时间(几分)
  iMin:=(((Value mod (365*24*60*60)) mod (24*60*60)) mod (60*60)) div 60;
  Min:=Min+iMin;
  //计算文件创建的时间(几秒)
  iSec:=(((Value mod (365*24*60*60)) mod (24*60*60)) mod (60*60)) mod 60;
  Sec:=Sec+iSec;
  //合并日期和时间
  TempDate:=EncodeDate(Year,Month,Day);
  TempTime:=EncodeTime(Hour,Min,Sec,MSec);
  //由于闰年的二月份有29天,闰年年份一年有366年天,而平年一年有365天,上面
  //是用365计算的,所以要减去闰年年份多出来的一天
  //最后返回值合并日期和时间到TDateTime类型中
  Result:=(TempDate+iDay-RInt)+TempTime;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Temp:TDateTime;
begin
  //708992537为秒数
  Temp:=GetGMTDateTime(708992537);
  //取出日期
  Edit1.Text:=DateToStr(Temp);
  //取出时间
  Edit2.Text:=TimeToStr(Temp);
end;