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.