delphi时间戳(10位)
procedure TForm1.btn4Click(Sender: TObject);
var Str :String; D :tDatetime;
a:Double;
function DateTimeToUnixDate(const ADate: TDateTime): Longint;
const
cUnixStartDate: TDateTime = 25569.333; // 1970/01/01
begin
Result := Round((ADate - cUnixStartDate) * 86400);
end;
begin
// D := StrToDateTime('2019-11-26 17:18:53');
// a := D-18226.3881134;
// ShowMessage(FloatToStr(a));
Str := IntToStr(DateTimeToTimeStamp(Now).Date) + '' + IntToStr(DateTimeToTimeStamp(now).time);
//Str := IntToStr(DateTimeToTimeStamp(now).Date);
ShowMessage(InttoStr(DateTimeToUnixDate(now)));
end;
撸起袖子加油干。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步