随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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.


DateUtils-Function
posted on 2009-05-20 23:11  万一  阅读(...)  评论(...编辑  收藏