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.