Delphi中关于时间的处理
【摘要】 为什么我的眼里常含泪水,因为我对这土地爱得深沉...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)