Loading... <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> ADate: String;<br /> ADate2: TDate;<br /> AFormat, AFormat2: TFormatSettings;<br />begin<br /> AFormat.ShortDateFormat := 'ee/mm/dd';<br /> AFormat.DateSeparator := '/';<br /> ADate := '94/05/15';<br /> ADate2 := StrToDate( ADate, AFormat );<br /> AFormat2.ShortDateFormat := 'yyyy/mm/dd';<br /> AFormat2.DateSeparator := '/';<br /> ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );<br />end;<br />其中,最重要的就是TFormatSettings这个类.<br />可以设置AFormat.shortDateFormat:='yyyymmdd'<br />DateToStr(ADate,Aformat)得到字符串就是类似20080409的字符了.<br />如果是'yymmdd'则为080409的字符</p> 相关文章 无相关文章 Last modification：June 16th, 2013 at 04:51 pm © 允许规范转载