本文整理自网络，侵删。
声明：
procedure DecodeDate ( const SourceDate : TDateTime; out Year, Month, Day : Word ) ;
描述：DecodeDate过程从一个给定的TDateTime类型SourceDate参数中提取相应的年、月、日的值。
它将数值保存在输出型变量Year、Month、Day中。
var
myDate : TDateTime;
myYear, myMonth, myDay : Word;
begin
// 设myDate变量值勤为2009年12月29日
myDate := StrToDate('2009-12-29');
// 再加上一个月
myDate := IncMonth(myDate);
// 得到了什么？
DecodeDate(myDate, myYear, myMonth, myDay);
ShowMessage('myDate now = '+DateToStr(myDate));
ShowMessage('myDay = '+IntToStr(myDay));
ShowMessage('myMonth = '+IntToStr(myMonth));
ShowMessage('myYear = '+IntToStr(myYear));
end;
程序运行结果：
myDate now = 2010-1-29
myDay = 29
myMonth = 1
myYear = 2010
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
