AI摘要

本文介绍了Delphi中日期和字符串相互转换的灵活用法,主要通过TFormatSettings类实现。通过设置ShortDateFormat和DateSeparator属性,可以自定义日期格式,如'ee/mm/dd'或'yyyymmdd'。示例代码展示了如何将特定格式的字符串转换为TDate类型,再转换为其他格式的字符串。
本文介绍了D

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 日
点赞的人是最酷的