EncodeDateTime ... TryEncodeDateTime ... 构建时间

EncodeDateTime ... TryEncodeDateTime ... 构建时间2012-02-02 博客园万一

SysUtils.EncodeDateTime
SysUtils.EncodeDate
SysUtils.EncodeTime

DateUtils.EncodeDateDay
DateUtils.EncodeDateMonthWeek
DateUtils.EncodeDateTime
DateUtils.EncodeDateWeek
DateUtils.EncodeDayOfWeekInMonth

DateUtils.TryEncodeDateTime
DateUtils.TryEncodeDateDay
DateUtils.TryEncodeDateWeek
DateUtils.TryEncodeDateMonthWeek
DateUtils.TryEncodeDayOfWeekInMonth

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class（TForm）
  Memo1: TMemo;
  procedure FormCreate（Sender: TObject）;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

uses DateUtils;

procedure TForm1.FormCreate（Sender: TObject）;
var
 t: TDateTime;
 s: string;
begin
 t := EncodeDateTime（2009, 5, 20, 11, 22, 33, 999）;
 s := FormatDateTime（"yyyy-m-d h:n:s:zzz", t）; //2009-5-20 11:22:33:999

 t := EncodeDate（2009, 5, 20）;
 s := FormatDateTime（"yyyy-m-d h:n:s:zzz", t）; //2009-5-20 0:0:0:000

 t := EncodeTime（11, 22, 33, 999）;
 s := FormatDateTime（"h:n:s:zzz", t）;     //11:22:33:999

 t := EncodeDateDay（2009, 140）;
 s := FormatDateTime（"yyyy-m-d", t）;      //2009-5-20

 t := EncodeDateWeek（2009, 21）;
 s := FormatDateTime（"yyyy-m-d", t）;      //2009-5-18
 t := EncodeDateWeek（2009, 21, 3）;
 s := FormatDateTime（"yyyy-m-d", t）;      //2009-5-20

 t := EncodeDateMonthWeek（2009, 5, 3, 3）;
 s := FormatDateTime（"yyyy-m-d", t）;      //2009-5-20

 t := EncodeDayOfWeekInMonth（2009, 5, 3, 3）;
 s := FormatDateTime（"yyyy-m-d", t）;      //2009-5-20

 if TryEncodeDateTime（2009, 5, 20, 11, 22, 33, 999, t） then
  s := FormatDateTime（"yyyy-m-d h:n:s:zzz", t）;   //2009-5-20 11:22:33:999

 if TryEncodeDateDay（2009, 140, t） then
  s := FormatDateTime（"yyyy-m-d", t）;        //2009-5-20

 if TryEncodeDateWeek（2009, 21, t） then
  s := FormatDateTime（"yyyy-m-d", t）;        //2009-5-18

 if TryEncodeDateMonthWeek（2009, 5, 3, 3, t） then
  s := FormatDateTime（"yyyy-m-d", t）;        //2009-5-20

 if TryEncodeDayOfWeekInMonth（2009, 5, 3, 3, t） then
  s := FormatDateTime（"yyyy-m-d", t）;        //2009-5-20
end;


end.