本文整理自网络,侵删。
声明:procedure DecodeDateTime ( const SourceDate : TDateTime; out Year, Month, Day, Hour, Min, Sec, MSec : Word ) ;
描述:DecodeDateTime过程从给定的TDateTime类型的参数SourceDate中提取出相应的年、月、日、时、分、秒和毫秒值。
它将数值保存在输出型变量:Year、Month、Day、Hour、Min、Sec和MSec中。
var
myDate : TDateTime;
myYear, myMonth, myDay : Word;
myHour, myMin, mySec, myMilli : Word;
begin
//设置变量为2009年12月29日
myDate := StrToDateTime('2009-12-29 12:45:12.34');
// 加一个月
myDate := IncMonth(myDate);
// 显示现在的数值
DecodeDateTime(myDate, myYear, myMonth, myDay,
myHour, myMin, mySec, myMilli);
ShowMessage('myDate now = '+DateToStr(myDate));
ShowMessage('myHour = '+IntToStr(myHour));
ShowMessage('myMin = '+IntToStr(myMin));
ShowMessage('mySec = '+IntToStr(mySec));
ShowMessage('myMilli = '+IntToStr(myMilli));
ShowMessage('myDay = '+IntToStr(myDay));
ShowMessage('myMonth = '+IntToStr(myMonth));
ShowMessage('myYear = '+IntToStr(myYear));
end;
程序运行结果:
myDate now = 2010-1-29
myHour = 12
myMin = 45
mySec = 12
myMilli = 34
myDay = 29
myMonth = 1
myYear = 2010
相关阅读 >>
Delphi fdconnection执行sql execsql
Delphi winapi: getactivewindow - 获取当前活动窗口的句柄
Delphi idhttp post 支持 gzip 解压缩
更多相关阅读请进入《Delphi》频道 >>