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


本文整理自网络,侵删。

 

它们的参数都是一个 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 时间与相关类型(3): tfiletime、tsystemtime 及 dos 时间

Delphi 内存加载并运行exe程序

Delphi gethomepath - 获取用户程序数据目录

Delphi遍历指定目录下指定类型文件的函数

Delphi 判断字符串是否包含汉字

Delphi listview 排序功能

Delphi获取dll的函数列表

Delphi tserversocket 发送消息之前检查客户端是否仍处于连接状态

Delphi xe7实现手机上获取wifi信息的程序

Delphi执行cmd命令

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...