日期时间的问题

Question

//copy from DateUtils.pas for Delphi6
function MinuteOf(const AValue: TDateTime): Word;
var
  LHour, LSecond, LMilliSecond: Word;
begin
  DecodeTime(AValue, LHour, Result, LSecond, LMilliSecond);
end;

Answer 1

var
  year,month,date : word;
  hour,min,sec,msec : word;
begin
  decodedate(now,year,month,date);  //分离日期
  decodetime(now,hour,min,sec,msec);  //分离时间
end;

Answer 2

word型的变量如何用showmessage函数显示出来？（一定给分）

Answer 3

如果我只向得到year的数值，decodedate函数中的其他参数可以不给吗？