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的字符
最后修改:2013 年 06 月 16 日
© 允许规范转载
相关文章
- 无相关文章