unixtime.rfi

来自「反汇编delphi的.dcu文件至汇编代码的工具的所有源代码, 用delphi/」· RFI 代码 · 共 13 行

const
  Days1970=DateToDays(1970,1,1);
  DaySec=24*60*60;

type
//TTimeStamp /*TFileTime*/DWORD
TTimeStamp enum ulong ():displ=(INT(DaysToDay(Days1970+@ div DaySec)),'.',
  INT(DaysToMonth(Days1970+@ div DaySec)),'.',
  INT(DaysToYear(Days1970+@ div DaySec)),' ',
  INT((@ div (60*60))mod 24),':',INT((@ div 60)mod 60),'''',
  INT(@ mod 60),'"')