accessで翌営業日算出

質問

「休日関数」を作ってあります。土曜日、日曜日も含んで戻り値が「休」となっています。これから翌営業日を算出する関数を作成したいのですがうまく行きません。

回答No.2

tom777 · ベストアンサー

休日関数は 日付を引数として、休という文字を返す関数で
しょうか？

そうでしたら、

Dim iNum

Do
　　iNum = iNum + 1
　　if "休" <> 休日関数(現在の日付 + iNum) then
　　　　MsgBox "翌営業日は" & _
　　　　　　　　現在の日付 + iNum & "です。"
　　　　Exit Do
　　End If
Loop

で、できませんか？

勘違いであればお許しください。

お礼

最終的に下記のような形でできたようです。実際使っている通りに表記します。（ASP版で。）
<%
dtmDate = "2001/01/06"
Do
i = i + 1
if funcheijitu(dateadd("d",+1,dtmDate)) = "平日" then
dtmDate = dateadd("d",+1,dtmDate)
Exit Do
Else
dtmDate = dateadd("d",+1,dtmDate)
End If
Loop
Response.write "翌営業日は" & dtmDate & "です。"
%>

アドバイスありがとうございました。