年間カレンダー

　皆さん、こんにちは。山本美孝です。

　サマータイム対応準備として、簡単な年間カレンダーを作ってみました。ソースを短くするためにOption Explicitは削っています。

------------------------------------------------------------
Private　Sub　cmdGo_Click()

　MyYear　=　Year(Now)

　For　MyMonth　=　1　To　12　’1月から12月まで
　　　Getumatu　=　False
　　　For　MyDay　=　1　To　31　’1日から31日まで
　　　　　MyDate　=　DateSerial(MyYear，　MyMonth，　MyDay)
　　　　　If　Day(MyDate)　=　1　Then
　　　　　　　If　Getumatu　=　False　Then
　　　　　　　　　Getumatu　=　True
　　　　　　　Else
　　　　　　　　　Exit　For　’翌月の1日になれば脱出
　　　　　　　End　If
　　　　　End　If
　　　　　lstYear.AddItem　Format(MyDate， _
　　　　　"yyyy/mm/dd　(aaa)")
　　　Next
　Next

End　Sub
------------------------------------------------------------

　ここまでくれば、あと一息なのですが、だんだんとやる気がなくなってきました(笑)
　サマータイムは各国によってさまざまですし、初版のチェックボックスに(人間が判断して)印を入れる方が合理的だと思い始めたからです。