掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ド素人の質問です。 (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; 目くら打ちなのでご勘弁を・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.