Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi描述转换成TDateTime →→→→→进入此内容的聊天室

来自 , 2021-03-03, 写在 Delphi (Object Pascal), 查看 113 次.
URL http://www.code666.cn/view/06ccc6fa
  1. function SecondsToTime(const ASeconds: Cardinal): TDateTime;
  2. const
  3.   MSecsPerSec = 1000;  // ms per day: not defined in Delphi 6 and earlier
  4. begin
  5.   Result := ASeconds / SysUtils.MSecsPerDay * MSecsPerSec;
  6. end;
  7. //delphi/2183

回复 "Delphi描述转换成TDateTime"

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

captcha

贴代码片段 - Code666