TDLIB > Delphi
Delphi毫秒级时间戳
山炮   ·  2021.0520 16:51:09
Stat:145v. 0r. 0u. 0d. 0f 
#0. (Normal)

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

【Copyright Notice】
This article is repost, the original url as follows, If there is infringement, please contact us, we will delete it in time!
Original url:https://blog.csdn.net/I_have_a_date/article/details/102951665

Tag:   Delphi   时间戳   日期时间   
Next
【Related content】
Top     1/1 
You are not logged in, please [Register] or [Login]
(Register in one minute!)
Copyright ©TDLIB, All Rights Reserved.
Powered by TYCMS Version 1002