Delphi的DateToStr StrToDate格式灵活用法

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
   ADate: String;
   ADate2: TDate;
   AFormat, AFormat2: TFormatSettings;
begin
   AFormat.ShortDateFormat := 'ee/mm/dd';
   AFormat.DateSeparator := '/';
   ADate := '94/05/15';
   ADate2 := StrToDate( ADate, AFormat );
   AFormat2.ShortDateFormat := 'yyyy/mm/dd';
   AFormat2.DateSeparator := '/';
   ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );
end;

其中,最重要的就是TFormatSettings这个类.

可以设置AFormat.shortDateFormat:='yyyymmdd'

DateToStr(ADate,Aformat)得到字符串就是类似20080409的字符了.

如果是'yymmdd'则为080409的字符

 

相关阅读 >>

Delphi 通过api 隐藏任务栏时间日期

Delphi 打包文件到apk安装包中

Delphi手动创建dataset并插入值

Delphi fmx获取屏幕方向

Delphi图片上写水印文字函数

Delphi tchart使用经验小结

Delphi多线程程序示例（最简单的多线程）

Delphi百度云服务平台获取token

Delphi的listview自动排序

Delphi 写的经常用到的加解密函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi的DateToStr StrToDate格式灵活用法