delphi 构建时间 -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;interfaceuses  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-20end;end.

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678