- A+
所属分类:[开发技巧]
- 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.
- 我的微信
- 这是我的微信扫一扫
-
- 我的微信公众号
- 我的微信公众号扫一扫
-
您可以选择一种方式赞助本站
赏