＋设为首页 ＋添加到收藏夹
怎样将当前年份月份日期分别获取？
procedure TForm1.Button4Click(Sender: TObject);
var
Day, Month, Year: Word;
begin
DecodeDate(Now, Year, Month, Day); <----分别获得年，月，日
ShowMessage(IntToStr(Year));
ShowMessage(IntToStr(Month));
ShowMessage(IntToStr(Day));
end;
var
tmp: TDateTime;
yy, mm, dd: Word;
begin
tmp:=Now;
DeCodeDate(tmp, yy, mm, dd);
end;
day:=dayof(date)
month:=monthof(date)
Year:=YearOf(date)
Edit1.Text := FormatDateTime(yyyy,now);
Edit2.Text := FormatDateTime(mm,now)
Edit3.Text := FormatDateTime(dd,now)
