Delphi生成时间戳（秒级、毫秒级)

川长思鸟来 2023-10-04 18:42 78阅读 0赞

网上的引用DateTimeToTimeStamp生成毫秒级时间戳基本都是错误的：

现提供两种方法，算出的确认跟JAVA ，C++一样的

#### 秒级： ####

Edit2.Text:=IntToStr(DateTimeToUnix(Now));
       Edit3.Text:=IntToStr(DateTimeToUnix(Now)-8*60*60);

#### 毫秒级 ： ####

function GetTimeStampMilliseconds:string;
    var
      SysTime:TsystemTime;
      timen,time2:TDateTime;
      ss2,ss3:int64;
      str2:string;
    
    begin
      GetLocalTime(SysTime);
      timen:= SystemTimeToDateTime(SysTime);
      time2 := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );
    
      ss2 := 28800000;
      ss3 := MilliSecondsBetween( timen, time2 );
      ss3 :=ss3- ss2;
    
      str2 := IntToStr(ss3);
      result:=str2;
    end;
    
    function GetMillisecondTimeStamp: Int64;
    var
      st: TDateTime;
    begin
      st := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );
      Result := MilliSecondsBetween( Now, st )-8*60*60*1000;
    end;

#### 效果截图 ####

秒级：

![efb611b9062a42a7977a2171c973136b.png][]

毫秒级

![d4ebaa008b084550a5743606d12a0b27.png][]

[efb611b9062a42a7977a2171c973136b.png]: https://img-blog.csdnimg.cn/efb611b9062a42a7977a2171c973136b.png
[d4ebaa008b084550a5743606d12a0b27.png]: https://img-blog.csdnimg.cn/d4ebaa008b084550a5743606d12a0b27.png

发表评论取消回复

表情：

评论列表（有 0 条评论，78人围观）

还没有评论，来说两句吧...

相关阅读

相关 Oracle中获取毫秒级时间戳

Oracle中获取毫秒级时间戳 -- 取时间戳 Select (SYSDATE - TO_DATE('1970-1-1 8', 'YYYY-MM-D

￡神魔★判官ぃ/ 2024年03月16日 18:00/ 0 赞/ 71 阅读

相关 Delphi生成时间戳（秒级、毫秒级)

网上的引用DateTimeToTimeStamp生成毫秒级时间戳基本都是错误的：现提供两种方法，算出的确认跟JAVA ，C++一样的秒级： Edit2.T

川长思鸟来/ 2023年10月04日 18:42/ 0 赞/ 79 阅读

相关 Python获取秒级时间戳与毫秒级时间戳

1、获取秒级时间戳与毫秒级时间戳、微秒级时间戳 import time import datetime t = time.time()

桃扇骨/ 2023年07月09日 02:26/ 0 赞/ 2 阅读

相关 Python获取秒级时间戳与毫秒级时间戳

1、获取秒级时间戳与毫秒级时间戳、微秒级时间戳 import time import datetime t = time.time()

╰半橙微兮°/ 2023年05月31日 07:58/ 0 赞/ 32 阅读

相关 Java8 LocalDateTime 转时间戳秒、毫秒

Java 8 中 LocalDateTime 类型的时间转秒和毫秒的方法，简单记录一下。 private static final ZoneId ZONE_ID

悠悠/ 2023年01月23日 13:57/ 0 赞/ 44 阅读

相关 Python实现毫秒级时间戳

-- coding: utf-8 -- import calendar import numpy as np from dateti

痛定思痛。/ 2023年01月13日 04:10/ 0 赞/ 220 阅读

相关 [Java]-------java时间戳(毫秒级) 转成时间戳(秒级)实例代码

public static String fnTimeTempMillisecondToSecond(String time){ BigInte

╰半橙微兮°/ 2023年01月05日 12:46/ 0 赞/ 181 阅读

相关 mysql存入毫秒级的时间

--存入毫秒级的时间 --删除表 drop table learn; --创建表 create table learn(id

た入场券/ 2022年10月26日 14:16/ 0 赞/ 208 阅读

相关 DELPHI高精度计时方法,取毫秒级时间精度

//取毫秒级时间精度(方法一)：　　var 　　t1,t2:int64; 　　r1:int64; 　　begin 　　t1:=GetTickCount;/

心已赠人/ 2022年03月28日 03:56/ 0 赞/ 305 阅读

相关 PHP 毫秒级时间戳生成

> 做消息队列时发现在 Redis 的 ZSet 中，Score 数字只能设置到 17 位，我想让 Score 唯一，就尝试了几种时间戳 + 随机数的组合，于是得出一些答案

女爷i/ 2021年09月15日 13:18/ 0 赞/ 486 阅读