Delphi中提取时间成分

Delphi中提取时间成分2012-01-30 博客园万一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.