DELPHI 日期函数

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:27:49
DecodeDate(Date,Year,Month,Day)
里面的Year,Month,Day应该设置成什么类型啊？
能不能转换成字符或数值型？

word类型,如下面例子:
procedure TForm1.Button1Click(Sender: TObject);

var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
end;

上面就是把日期格式化成字符串显示在控件
label1上