ユーザーフォームで

質問

お世話になります。
ユーザーフォームで、ユーザーに日付を選択してもらおうと
思っており、初期値として当日の日付を入れています。
テキストボックスを年、月、日と三つに分けています。
下記の記述です。
しかし、前の日付にも戻る事が出来なく、また、年は進められる
のですが、同時に月と日も進んでしまいます。
年、月、日、それぞれ別々に進めたり遅らせたりしたいのですが、
どの様に記述したらよろしいでしょうか。
ご教示頂きたく宜しくお願い申し上げます。

　　　　　　　記

Private Sub UserForm_initialize()

TextBox1.Value = Year(Date)
TextBox2.Value = Month(Date)
TextBox3.Value = Day(Date)

End Sub
Private Sub SpinButton1_Change()

TextBox1.Value = Year(Date) + SpinButton1.Value
TextBox2.Value = Month(Date) + SpinButton1.Value
TextBox3.Value = Day(Date) + SpinButton1.Value

End Sub

回答No.1

kunkun_129 · ベストアンサー

SpinButton1,SpinButton2,SpinButton3 は３個配置しないと出来ません。

SpinButton1 は年用、SpinButton2 は月用、SpinButton3 は日用

Private Sub UserForm_initialize()

　　SpinButton1.Max = 2050 ' 初期設定
　　SpinButton2.Max = 12
　　SpinButton2.Min = 1
　　SpinButton3.Max = 31
　　SpinButton3.Min = 1

　　SpinButton1.Value = Year(Date)
　　SpinButton2.Value = Month(Date)
　　SpinButton3.Value = Day(Date)

End Sub

Private Sub SpinButton1_Change()
　　Call day_put
End Sub

Private Sub SpinButton2_Change()
　　Call day_put
End Sub

Private Sub SpinButton3_Change()
　　Call day_put
End Sub

Sub day_put()
　　TextBox1.Value = SpinButton1.Value
　　TextBox2.Value = SpinButton2.Value
　　TextBox3.Value = SpinButton3.Value

　　尚、日付はうる年判定をする必要があります

End Sub

日付のうる年判定は、

４年毎　　　　２月 ２８日まで
１００年毎　　２月 ２９日まで
４００年毎　　２月 ２８日まで

で自分で考えて下さい。
もしわからなければ、再度ここで質問して下さい。

お礼

いつもお世話になっております。
大変参考になりました。
今後とも宜しくお願い申しあげます。

回答No.2

kunkun_129

＃１の回答者です。タイプミスです。修正します。

日付のうる年判定は、

４年毎　　　　２月 ２９日まで
１００年毎　　２月 ２８日まで
４００年毎　　２月 ２９日まで

で自分で考えて下さい。
もしわからなければ、再度ここで質問して下さい。