时间与字符串

SysUtils.StrToDate();

SysUtils.StrToDateDef();

SysUtils.TryStrToDate();



SysUtils.StrToTime();

SysUtils.StrToTimeDef();

SysUtils.TryStrToTime();



SysUtils.StrToDateTime();

SysUtils.StrToDateTimeDef();

SysUtils.TryStrToDateTime();



SysUtils.DateToStr();

SysUtils.TimeToStr();

SysUtils.DateTimeToStr();

SysUtils.DateTimeToString();



SysUtils.FormatDateTime();


 
   

SysUtils.FormatDateTime(); 函数参见:
http://www.cnblogs.com/del/archive/2007/12/19/1005205.html

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses DateUtils;



procedure TForm1.FormCreate(Sender: TObject);

var

  d: TDateTime;

  str: string;

  fmt: TFormatSettings;

begin

  d := StrToDateTime('2009-5-21 11:22:33');



  str := DateTimeToStr(d);

  ShowMessage(str);  // 2009-5-21 11:22:33



  GetLocaleFormatSettings(GetThreadLocale, fmt);

  fmt.DateSeparator := '/';

  fmt.TimeSeparator := '_';

  fmt.ShortDateFormat := 'dd/mm/yyyy';

  fmt.ShortTimeFormat := 'hh:mm:ss';

  str := DateTimeToStr(d, fmt);

  ShowMessage(str);  // 21/05/2009 11_22_33



  DateTimeToString(str, 'yyyy 年 m 月 d 日 h 点 m 分 s 秒', d);

  ShowMessage(str); //2009 年 5 月 21 日 11 点 22 分 33 秒

end;



end.