轉換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;