Delphi中关于时间的处理

举报
走在那条路上 发表于 2023/11/29 18:50:27 2023/11/29
【摘要】 为什么我的眼里常含泪水,因为我对这土地爱得深沉...1、系统格式全局设置    1)系统单元文件System.SysUtils中有FormatSettings: TFormatSettings;    2)代码段: FormatSettings.ShortDateFormat := 'YYYY-MM-DD'; FormatSettings.LongTimeFormat := 'HH:MM...

为什么我的眼里常含泪水,因为我对这土地爱得深沉...

1、系统格式全局设置

    1)系统单元文件System.SysUtils中有FormatSettings: TFormatSettings;

    2)代码段:

  FormatSettings.ShortDateFormat := 'YYYY-MM-DD';
  FormatSettings.LongTimeFormat := 'HH:MM:SS';
  FormatSettings.DateSeparator := '-';
  FormatSettings.TimeSeparator := ':';

2、日期格式统一转

  1)系统单元文件System.Variants

  2)代码段

var
  AFormatStr1, AFormatStr2, AFormatStr3, AFormatStr4, AFormatStr5,AFormatStr6 : string;
  AFormatDate1, AFormatDate2, AFormatDate3, AFormatDate4, AFormatDate5 : TDateTime;
  AFormatDate6 : TDate;
  ATempTime : TTime;
begin
  AFormatStr1 := '2022-03-01 00:01:02';
  AFormatStr2 := '2022/03/01 00:01:02';
  AFormatStr3 := '2022年03月01日 00:01:02';
  AFormatStr4 := '2022-3-01 00:01:02';
  AFormatStr5 :=  '2022/3/1 00:01:02';
  AFormatStr6 :=  '2022/3/1';
  AFormatDate1 := VarToDateTime(AFormatStr1);
  AFormatDate2 := VarToDateTime(AFormatStr2);
  AFormatDate3 := VarToDateTime(AFormatStr3);
  AFormatDate4 := VarToDateTime(AFormatStr4);
  AFormatDate5 := VarToDateTime(AFormatStr5);
  AFormatDate6 := VarToDateTime(AFormatStr6);
  ATempTime := Timeof(VarToDateTime(AFormatStr1));
end;

3、Delphi中时间处理单元文件:

   1)系统单元文件System.DateUtils中有对时间的各种处理

   2)当转换为Unix时间戳时需要注意,使用:DateTimeToUnix时,使用Windows时间要传False,如下:

DateTimeToUnix(Now,False);

4、其他待补充

暂未想起什么来,想起来了补充


【版权声明】本文为华为云社区用户原创内容,未经允许不得转载,如需转载请自行联系原作者进行授权。如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。