Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66624 / 76733 ←次へ | 前へ→

【14672】Re:利息の計算がしたいのですが・・・
回答  かみちゃん  - 04/6/4(金) 7:33 -

引用なし
パスワード
   こんにちは。かみちゃん です。

お返事大変遅れまして、申し訳ありません。

>ご指摘の通り、銀行の休日を判断したいのですが、
>12月31日も銀行ってお休みですよね?
>任意の日付を休日とする判定を入れるには、どうすればよいのでしょう。
>サイトに書いてあった土日の判定のところに追加すればよいのでしょうか?
>毎年の12月31日を休日としたいのですが・・・

祝日判定関数に直接記述を追加するのは、オススメしません。
また、これは、土日は判定しませんので、ご注意ください。
それで、銀行休業日等独自の休業日を追加するのであれば、次のようにすればいいと思います。

'ktHolidayName関数は、次のURLを参照
'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

ただし、あくまで、日付が特定されている場合の処理です。
休業日が変動するような場合があるのであれば、非営業日テーブルのようなものを設けたほうがいいと思います。
1 hits

【14459】利息の計算がしたいのですが・・・ 未熟者 04/5/30(日) 3:51 質問
【14462】Re:利息の計算がしたいのですが・・・ かみちゃん 04/5/30(日) 9:26 回答
【14502】Re:利息の計算がしたいのですが・・・ 未熟者 04/5/31(月) 0:41 お礼
【14672】Re:利息の計算がしたいのですが・・・ かみちゃん 04/6/4(金) 7:33 回答

66624 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free