随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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.
posted on 2009-05-21 23:18  万一  阅读(...)  评论(...编辑  收藏