DateOf、TimeOf、YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf - 提取时间成分

它们的参数都是一个 TDateTime,
DateOf、TimeOf 分别提取日期与时间, 并返回 TDateTime 类型;
YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf 返回的都是 Word 类型.

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses DateUtils;



procedure TForm1.FormCreate(Sender: TObject);

var

  dt,d,t: TDateTime;

  Year,Month,Week,Day,Hour,Minute,Second,MilliSecond: Word;

begin

  dt := StrToDateTime('2009-5-20 11:22:33');



  d := DateOf(dt);

  ShowMessage(DateToStr(d)); //2009-5-20



  t := TimeOf(dt);

  ShowMessage(TimeToStr(t)); //11:22:33



  Year        := YearOf(dt);

  Month       := MonthOf(dt);

  Week        := WeekOf(dt);

  Day         := DayOf(dt);

  Hour        := HourOf(dt);

  Minute      := MinuteOf(dt);

  Second      := SecondOf(dt);

  MilliSecond := MilliSecondOf(dt);



  ShowMessageFmt('%d,%d,%d,%d,%d,%d,%d,%d', [Year,Month,Week,Day,Hour,Minute,

    Second,MilliSecond]); {2009,5,20,11,22,33,0}

end;



end.

---

DateUtils-Function

---