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 按esc快捷键退出程序的简单方法

Delphi xe5 for android ttabcontrol 控件

Delphi图像hash算法，关于图像相似度问题

Delphi 百度输入提示 Delphi 实现

Delphi获取系统进程和路径

Delphi 操作sql 插入一万条数据 三种方式速度测试

Delphi自带的indy控件实现md5加密

Delphi trayicon1 托盘气泡提示

Delphi10.3.1安卓照相

Delphi dbnavigator控件的按钮显示成中文

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

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