| 投稿日 | ： 2007/02/02(Fri) 15:50 |
| 投稿者 | ： y4yama |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: Calendarコントロールの月/年変更時の値取得 |
おそるおそる・・ですが・・
No.8344でガセネタを申し訳ありません。Edwardさんの2回目がNG・・というのを
確認・再現いたしました。
もう解決というか、意味無いかも知れませんが、得た情報では、日付を入れて、また１に戻す・・
だったので、また、懲りずにチャレンジしました。
今度は、月を続けて選び直してもうまく、其の月1日のValueが返りました。
Private Sub Calendar1_NewMonth()
Calendar1.Day = 20
'MsgBox Calendar1.Value
NewMon = Calendar1.Month
NewYea = Calendar1.Year
Calendar1.Day = 1
Calendar1.Value = NewYea & "/" & NewMon & "/" & "1"
End Sub
Private Sub Command1_Click()
MsgBox Calendar1.Value
End Sub
ただ動いたというだけで、キレイなコードにはしてません。