如何通过程序实现年份和月份的转换？ 58分，非常吉利！

Question

DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
EncodeDate(Year+1, Month+1, Day+1: Word): TDateTime;

Answer 1

var
  i , j : integer;
begin
  i := strtoint(edit1.Text);//当前年
  j := strtoint(edit2.Text);//当前月
  if j<12 then
    j:= j+1
  else
   begin
     i := i+1;
     j:=1
   end;
   //i,j为下一月
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  YouTime: string;
  Year, Month, Day: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  youtime:=inttostr(year)+'-'+inttostr(month)+'-'+inttostr(day)
  Present:=strtodate(yourtime);
end;

Answer 3

如果你是用的Delphi6那你有福了
Uses
  DateUtils;...NewDay:=OldDay+DaysInMonth(OldDay);