本文整理自网络，侵删。
它们的参数都是一个 TDateTime,
DateOf、TimeOf 分别提取日期与时间, 并返回 TDateTime 类型;
YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf 返回的都是 Word 类型.
unit Unit1;interfaceuses 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; //www.3464.comend. 相关阅读 >>
Delphi sendtextmessage 等方便的消息发送函数
Delphi win7,win2008,win2003,winxp 屏蔽ctrl+alt+del
更多相关阅读请进入《Delphi》频道 >>
