DateTimePicker1怎样得到多少年，多少月

Question

YearsBetween(const ANow, AThen: TDateTime): Integer;
MonthsBetween(const ANow, AThen: TDateTime): Integer;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  Present: TDate;
  Year, Month, Day, Hour,:Word;
 begin
  Present:= DateTimePicker1.Date;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
end;