サマータイム対応？

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

　サマータイムに対応すべく以下のようなコードを書きました。

　要するに3月の最終日曜日から10月の最終日曜日までがサマータイムだそうです。サマータイムの場合は■マークをつけてみました。

　コーディングが間違ってないか確認するために、リストボックスをつけてみました。
　しかし、実際にコードする時には、サマータイムなのかどうかだけを返すFunctionとして書き改める予定です。

------------------------------------------------------------
　　Select　Case　MyMonth
　　　　Case　1，　2，　11，　12
　　　　　　　　SummerHed　=　""
　　　　Case　4，　5，　6，　7，　8，　9
　　　　　　　　SummerHed　=　"■"
　　　　Case　3
　　　　　　　　If　MyDay　>=　LastSunday(MyMonth)　Then
　　　　　　　　　　SummerHed　=　"■"
　　　　　　　　Else
　　　　　　　　　　SummerHed　=　""
　　　　　　　　End　If
　　　　Case　10
　　　　　　　　If　MyDay　＜＝　LastSunday(MyMonth)　Then
　　　　　　　　　　SummerHed　=　"■"
　　　　　　　　Else
　　　　　　　　　　SummerHed　=　""
　　　　　　　　End　If
　　End　Select