スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

サマータイム(Daylightsaving)のチェックプログラム

Function IsDaylightSavingTime(ByVal dt As Date) As Boolean
Dim d1 As Date, d2 As Date

If Year(dt) <= 2007 Then
If (#4/1/2001# <= dt And dt <= #10/28/2001#) _
Or (#4/7/2002# <= dt And dt <= #10/27/2002#) _
Or (#4/6/2003# <= dt And dt <= #10/26/2003#) _
Or (#4/4/2004# <= dt And dt <= #10/31/2004#) _
Or (#4/3/2005# <= dt And dt <= #10/30/2005#) _
Or (#4/2/2006# <= dt And dt <= #10/29/2006#) _
Or (#3/11/2007# <= dt And dt <= #11/4/2007#) _
Then IsDaylightSavingTime = True _
Else IsDaylightSavingTime = False
Else
d1 = CDate(Year(dt) & "/3/1").AddDays(-1)
d2 = CDate(Year(dt) & "/11/1").AddDays(-1)
d1 = d1.AddDays(-Weekday(d1) + 1 + 14).AddHours(2)
d2 = d2.AddDays(-Weekday(d1) + 1 + 7).AddHours(2)

If d1 <= dt And dt <= d2 _
Then IsDaylightSavingTime = True _
Else IsDaylightSavingTime = False
End If

End Function
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。