文档章节

时间与相关类型(2) - TDate、TTime、TTimeStamp

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 417
阅读 9
收藏 0

精选30+云产品,助力企业轻松上云!>>>

//相关函数:
SysUtils.DateTimeToTimeStamp();
SysUtils.TimeStampToDateTime();

SysUtils.TimeStampToMSecs();
SysUtils.MSecsToTimeStamp();

Windows.GetTickCount;
Windows.GetCurrentTime; {GetCurrentTime 和 GetTickCount 一样, 是调用了 GetTickCount.}

 
 
 
 
 

 

 

  

TDate、TTime 与 TDateTime 的尺寸是一样的, 互相转换也不会损失数据; 存在的意义也只是便于理解.

比较有意思的是 TTimeStamp 结构:
TTimeStamp = record
  Time: Integer;      { "毫秒" 表示的时间, 自: 0:0:0:0 }
  Date: Integer;      { "天" 表示的日期, 自: 1/1/0001 }
end;

 
 
 
 
 

 

 

  

{TDateTime 与 TTimeStamp 互相转换的例子} var T: TDateTime; TS: TTimeStamp; begin T := EncodeDateTime(2009, 5, 22, 11, 22, 33, 999); TS := DateTimeToTimeStamp(T); ShowMessage(IntToStr(TS.Time)); //40953999; 当日已逝去了 40953999 毫秒 ShowMessage(IntToStr(TS.Date)); //733549; 自 0001-1-1 的第 733549 天 T := TimeStampToDateTime(TS); ShowMessage(FormatDateTime('yyyy-m-d h:m:s:z', T)); //2009-5-22 11:22:33:999 end;

假如我们要想知道自 0001-1 0:0:0:0 到 2009-5-22 11:22:33:999 总的毫秒数, 根据上面的结果不难算出:
733549*24*60*60*1000 + 40953999 = 63378674553999.

不过这有现成的函数: TimeStampToMSecs、MSecsToTimeStamp.

{TimeStampToMSecs、MSecsToTimeStamp 示例:} 
var
  T: TDateTime;
  TS: TTimeStamp;
  ms: Comp; {这是 TimeStampToMSecs 返回的类型}
begin
  T := EncodeDateTime(2009, 5, 22, 11, 22, 33, 999);
  TS := DateTimeToTimeStamp(T);

  ms := TimeStampToMSecs(TS);
  ShowMessage(FloatToStr(ms)); //63378674553999

  TS := MSecsToTimeStamp(ms);
  T := TimeStampToDateTime(TS);
  ShowMessage(FormatDateTime('yyyy-m-d h:m:s:z', T)); //2009-5-22 11:22:33:999
end;

 
 
 
 
 

 

 

  

另外: GetTickCount 函数可获取从开机时间到当前时间的毫秒数, 结合上面, 可以算出开机时间:

{获取开机时间的例子}
var
  T1: Int64;
  T2,T3: Comp;
  T4: TDateTime;
begin
  T1 := GetTickCount;                               {从开机到现在的毫秒数}
  T2 := TimeStampToMSecs(DateTimeToTimeStamp(Now)); {从 0001-1-1 到当前时间的毫秒数}
  T3 := T2 - T1;                                    {从 0001-1-1 到开机时刻的毫秒数}
  T4 := TimeStampToDateTime(MSecsToTimeStamp(T3));  {从 0001-1-1 到开机时刻的时间}
  ShowMessage(DateTimeToStr(T4));                   {显示开机时间}
end;

 
 
 
 
 

 

 

  

涂孟超
粉丝 13
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
加载中
请先登录后再评论。

暂无文章

生日悖论是啥?我用它省了上百G的内存

生日悖论: 是指在不少于 23 个人中至少有两人生日相同的概率大于 50%。例如在一个 30 人的小学班级中,存在两人生日相同的概率为 70%。对于 60 人的大班,这种概率要大于 99%。从引起逻辑矛盾...

osc_i2zebhtf
45分钟前
9
0
【蓝桥杯】2018年第九届蓝桥杯C/C++B组省赛——C题 承压计算

题目 标题:承压计算X星球的高科技实验室中整齐地堆放着某批珍贵金属原料。每块金属原料的外形、尺寸完全一致,但重量不同。金属材料被严格地堆放成金字塔形。 ...

osc_knx03fpr
47分钟前
14
0
node.js/npm升级正确操作(windows和linux均有)

原文地址:https://www.wjcms.net/archives/nodejsnpm升级正确操作windows和linux均有 今天我们总结一下node.js以及npm升级的正确操作方法。 小编亲身经历可以用以下几步解决node版本问题及跳...

osc_7ac8o6u9
48分钟前
7
0
使用IDEA实现SSM整合(Maven+Spring+Mybatis+SpringMvc)

我是阿福,公众号「阿福聊编程」作者,一个在后端技术路上摸盘滚打的程序员,在进阶的路上,共勉! 文章已收录在 JavaSharing 中,包含Java技术文章,面试指南,资源分享。 本文是基于Maven...

阿福聊编程
48分钟前
9
0
手把手教你使用Python抓取QQ音乐数据(第四弹)

【一、项目目标】 通过手把手教你使用Python抓取QQ音乐数据(第一弹)我们实现了获取 QQ 音乐指定歌手单曲排行指定页数的歌曲的歌名、专辑名、播放链接。 通过手把手教你使用Python抓取QQ音乐...

osc_9na1lmr9
50分钟前
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部