サマータイムのチェックをするSummer_Check

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

　サマータイムの判定をするコードを入れてみました。結局は見え易いリストボックスを配列の代わりに利用しました。
　実際にプログラムの中に入れるのは面倒なので、これで終了です(汗)

------------------------------------------------------------
Private Function Summer_Check(BritainNow As Date) As Boolean
’サマータイムの調査

　　　NowDate = Format(BritainNow， "yyyy/mm/dd (aaa)")
　　　’例 NowDate = "2005/03/27(日)"

　　　Dim I As Integer

　　　For I = 0 To lstYear.ListCount - 1

　　　　　If InStr(lstYear.List(I)， NowDate) = 1 Then
　　　　　　　Exit For
　　　　　End If

　　　Next

　　　SummerCheck = False
　　　If InStr(lstYear.List(I)， "■") > 0 Then
　　　　　SummerCheck = True
　　　End If

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

お付き合いいただき、ありがとうございました。
　サマータイムを「■」で表しましたが「夏」の方がわかりやすいかもしれませんね(汗)