accessで翌営業日算出

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

No.2 ベストアンサー 回答者： tom777 回答日時： 2001/03/19 11:17

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

しょうか？

そうでしたら、

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 & "です。"
%>

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

お礼日時：2001/03/19 12:52

No.1 回答者： HAL007 回答日時： 2001/03/17 22:44

Access2000の前提です。

（他のバージョンの多分同じかな？）

日付をweeknum関数を使って平日の場合はそのまま抜ける。
土日にだったら＋１日して最初に曜日チェックにもどるルーチンを
書けば出来ますよ。