delphi 分解时间 �CDecodeDate、DecodeTime … DecodeDateTime …


本文整理自网络,侵删。

 

SysUtils.DecodeDate();
SysUtils.DecodeDateFully();
SysUtils.DecodeTime();

DateUtils.DecodeDateTime();
DateUtils.DecodeDateDay();
DateUtils.DecodeDateWeek();
DateUtils.DecodeDateMonthWeek();
DateUtils.DecodeDayOfWeekInMonth();

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);var  t: TDateTime;  Year, Month, Day, Week: Word;  Hour, Min, Sec, MSec: Word;begin  t := EncodeDateTime(2009, 5, 21, 11, 22, 33, 999);  DecodeDate(t, Year, Month, Day);  ShowMessageFmt('%d,%d,%d', [Year, Month, Day]); //2009,5,21  DecodeDateFully(t, Year, Month, Day, Week);    ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Day, Week]); //2009,5,21,5; 最后的 5 表示周四  DecodeTime(t, Hour, Min, Sec, MSec);  ShowMessageFmt('%d,%d,%d,%d', [Hour, Min, Sec, MSec]); //11,22,33,999  DecodeDateTime(t, Year, Month, Day, Hour, Min, Sec, MSec);  ShowMessageFmt('%d,%d,%d,%d,%d,%d,%d', [Year, Month, Day, Hour, Min, Sec, MSec]); //2009,5,21,11,22,33,999  DecodeDateDay(t, Year, Day);  ShowMessageFmt('%d,%d', [Year, Day]); //2009,141; 2009 年第 141 天  DecodeDateWeek(t, Year, Week, Day);  ShowMessageFmt('%d,%d,%d', [Year, Week, Day]); //2009,21,4; 2009 年第 21 周, 周 4  DecodeDateMonthWeek(t, Year, Month, Week, Day);  ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Week, Day]); //2009,5,3,4; 20095 月的第 3 周, 周 4  DecodeDayOfWeekInMonth(t, Year, Month, Week, Day);  ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Week, Day]); //2009,5,3,4end;end.

相关阅读 >>

Delphi setfileattributes 功能:修改文件属性

Delphi xe5实现android 安卓 左侧或者右侧菜单功能

Delphi extractclassname 字符串处理函数

Delphi 过滤所有空格的函数

iniocp(小旋风服务套件)

Delphi中如何用image控件显示网络图片

Delphi tidhttp+tidssliohandlersocket+ssl

Delphi 获取cpu使用单元文件

Delphi 递归获取文件夹大小

Delphi 10.3 处理csv tstreamreader 自带split用法

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



打赏

取消

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

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

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

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

评论

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

    暂无评论...