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 通过pid获取进程名

Delphi获取星期几

Delphi dbgrid应用

Delphi版 随机窗口类名

wmi技术介绍和应用――查询正在运行的进程信息

Delphi xe5 android 捕获几个事件

Delphi 映像劫持编辑器

Delphi xe 枚举指定目录及子目录下的所有文件

Delphi xe中windows7新的taskbar功能的使用

Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露

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

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