| |
こんにちは。かみちゃん です。
お返事大変遅れまして、申し訳ありません。
>ご指摘の通り、銀行の休日を判断したいのですが、
>12月31日も銀行ってお休みですよね？
>任意の日付を休日とする判定を入れるには、どうすればよいのでしょう。
>サイトに書いてあった土日の判定のところに追加すればよいのでしょうか？
>毎年の12月31日を休日としたいのですが・・・
祝日判定関数に直接記述を追加するのは、オススメしません。
また、これは、土日は判定しませんので、ご注意ください。
それで、銀行休業日等独自の休業日を追加するのであれば、次のようにすればいいと思います。
'ktHolidayName関数は、次のＵＲＬを参照
'http://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm#VBA
If ktHolidayName("日付文字列")<>"" Then
祝日（振替休日を含む）である
else
'祝日（振替休日を含む）でない場合
If Weekday(DateValue("2004/6/6"))=7 Or Weekday(DateValue("2004/6/6"))=1 Then
MsgBox "土曜日または日曜日"
Else
Select Case Format(DateValue("日付文字列"), "mmdd")
Case "0102", "0103", "1231"
MsgBox "銀行休業日"
Case Else
MsgBox "銀行休業日でない"
End Select
End If
End If
ただし、あくまで、日付が特定されている場合の処理です。
休業日が変動するような場合があるのであれば、非営業日テーブルのようなものを設けたほうがいいと思います。
|
|
かみちゃん
- 04/6/4(金) 7:33 -
