delphi System.SysUtils.DecodeDate 获取年月日

var

  Present: TDateTime;

  Year, Month, Day: Word;

 begin

  Present:= Now;

  System.SysUtils.DecodeDate(Present, Year, Month, Day);

  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year);

代码2：

uses

  ..., System.SysUtils;

procedure TfAccounts.Button1Click(Sender: TObject);

begin

  Label1.Caption := FormatDateTime('"Today is Day "d" of Month "m" of Year "yyyy', Now);

end;