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