ド素人の質問です。 (ID:23200)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 何か、年の切り替え時に苦慮されているような。 単に次月・先月を設定したいだけならややこしい変数など使わずに 私なら、こうやるかな・・・ uses DateUtils; var {年月設定の基準変数} FDate :TDate;//適当な箇所で適当に初期化しておいてね procedure TForm1.BottonClick(Sender :TObject); begin if Sender = Button1 then //次月 begin FDate := IncMonth(FDate,1); end else if Sender is Button2 then //先月 begin FDate := IncMonth(FDate,-1); end; Label1.Caption := IntToStr(YearOf(FDate)) + '年'; Label2.Caption := IntToStr(MonthOf(FDate)) + '月'; end; 目くら打ちなのでご勘弁を・・・