Delphi的时间与字符串函数代码示例

[delphi] view plaincopyprint?





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(); 函数参见:

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.