サマータイムを考慮してみる

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

　さて、宿題になっているサマータイムですが、英国では以下のように決められているようです。

------------------------------------------------------------
’3月最終日曜〜10月最終日曜　まではサマータイム
------------------------------------------------------------
　ちなみにダラダラとコードを書いてみると以下のようになりましたが、未完成版です(汗)

　ちなみに3月も10月も31日までありますので、楽です。最終日曜を求めてみましょう。

------------------------------------------------------------
Private Function SummerSunday(YourDate As Date)

　　　Dim I As Integer
　　　Dim MyYoubi As String

　　　For I = 31 To 1 Step -1
　　　　　　MyYoubi = Format(YourDate， "aaa")
　　　　　　If MyYoubi = "(日)" Then Exit For

　　　　　　’If Weekday(YourDate) = vbSunday Then Exit For
　　　　　　’の方がいいかも。
　　　Next
　　　SummerSunday = I ’最終の日曜日を返す

End Function
------------------------------------------------------------

　こんな風にして、コードを追加していくわけです。ただ、私は手抜きが好きなので(汗)、

　「使う人がサマータイムのチェックボックスに印(しるし)を付けければ良いのでは。」

と思ったりもします(笑)