Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] 将Delphi的TDateTime日期格式转换成Unix时间戳 →→→→→进入此内容的聊天室

来自 , 2020-12-25, 写在 Delphi (Object Pascal), 查看 103 次.
URL http://www.code666.cn/view/7900770a
  1. function DateTimeToUnixDate(const ADate: TDateTime): Longint;
  2. const
  3.   cUnixStartDate: TDateTime = 25569.0; // 1970/01/01
  4. begin
  5.   Result := Round((ADate - cUnixStartDate) * 86400);
  6. end;

回复 "将Delphi的TDateTime日期格式转换成Unix时间戳"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666