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 tdirectory.tfilterpredicate

Delphi xe6通过wifiapi得到wifi信息

Delphi 单击按钮左键弹起菜单

Delphi xe5 将Delphi code从winos 迁移到ios与android

Delphi 控制台程序加图标方法

Delphi idhttp post 普通提交乱码处理

Delphi 安装apk

Delphi 计算加班时间工时的函数

Delphi 获取标题栏高

Delphi xe listbox 行高根据内容高度进行调速

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

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