Delphi 获取时间的年月日

procedure TFrmLltj.FormActivate(Sender: TObject); var Present: TDateTime; Year ...