阿开
2021-05-20
16:51:09
13268
0
0
0
0
本文爲轉帖，原文鏈接如下，如有侵權，請聯繫我們，我們會及時刪除
原文鏈接：https://blog.csdn.net/I_have_a_date/article/details/102951665 Tag: Delphi 时间戳 日期时间
Delphi中获取时间戳通常使用GetTickCount函数，但是在该函数在毫秒级别是非连续的，通常会间隔15-16毫秒进行跳跃。
例如以下代码：
procedure TForm1.btn2Click(Sender: TObject);
var
i: Cardinal;
LastTime, CurTime: Cardinal;
begin
i := 0;
LastTime := GetTickCount;
while True do
begin
if i > 10 then
Break;
CurTime := GetTickCount;
if CurTime <> LastTime then
begin
LastTime := CurTime;
Inc(i);
mmo1.Lines.Add('CurTime' + IntToStr(CurTime));
end;
end;
end;
输出如下：
CurTime268143831
CurTime268143847
CurTime268143862
CurTime268143878
CurTime268143894
CurTime268143909
CurTime268143925
CurTime268143940
CurTime268143956
CurTime268143972
CurTime268143987
所以在比较小的时间控制之下，使用GetTickCount是不合适的。
一种其他的解决办法是使用now函数。
procedure TForm1.btn1Click(Sender: TObject);
var
i: Cardinal;
LastTime, CurTime: TDateTime;
time: TTimeStamp;
begin
i := 0;
LastTime := Now;
while True do
begin
if i > 10 then
Break;
CurTime := now;
if CurTime <> LastTime then
begin
LastTime := CurTime;
time := DateTimeToTimeStamp(CurTime);
Inc(i);
mmo1.Lines.Add('CurTime' + FormatDateTime('yyyy-mm-dd hh:mm:ss:zzz', CurTime) + ' [' + IntToStr(time.Time) + ']');
end;
end;
即使用TTimeStamp时，非跨天可以直接使用TTimeStamp.Time直接判断。
总结：
mmo1.Lines.Add(FormatDateTime('yyyymmddhhnnss',Now));
mmo1.Lines.Add(DateTimeToStr(now));
mmo1.Lines.Add(FormatDateTime('',Now));
mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd hh:mm:ss:zzz',Now()));
输出：
20210520171653
2021/05/20 17:16:53
2021/05/20 17:16:53
2021-05-20 17:16:53:294
end
【版權聲明】本文爲轉帖，原文鏈接如下，如有侵權，請聯繫我們，我們會及時刪除
原文鏈接：https://blog.csdn.net/I_have_a_date/article/details/102951665 Tag: Delphi 时间戳 日期时间
評論
