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 for 循环 downto用法

Delphi 10.3 断点全部失效

Delphi 监控系统文件操作

Delphi接收文件拖放

Delphi 获取大于2g的物理内存大小

Delphi 关于 array of const

Delphi waitforsingleobject 响应窗体

Delphi 禁止用户关闭操作系统

Delphi xe3里判断网络是否连接成功

Delphi下spcomm串口编程

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

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