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的字符

推荐分享