EncodeDateTime ... TryEncodeDateTime ... 構建時間

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.