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

本文提供了一段Delphi源码,用于将PE文件中的TimeDateStamp字段值从秒数转换为日期时间格式。代码详细展示了如何考虑闰年的影响来准确计算出文件的创建日期和时间。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

最近在写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;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值