Microsoft Access 掲示板

お世話になります。
以前hatena様より車庫証明の出来上がりのモジュール(下記)をご教示いただき、現在まで重宝して使わせていただいております。
下記式は普通車の出来上がりでして、軽自動車かつ車庫が市内については申請日も含めて2日でできあがります。(市内以外は3日)
従って②のようにクエリにて処理している段階です。
これを①モジュールに反映させることはできますでしょうか。
①
Public Function 許可日(申請日 As Variant, Optional 営業日数 As Long = 3) As Variant
    Dim 営業日 As Long
    許可日 = 申請日
    If IsNull(許可日) Then Exit Function
    Do
        許可日 = 許可日 + 1
        Select Case Weekday(許可日)
        Case vbMonday To vbFriday
            If IsNull(DLookup("祝日名", "T_祝日", "日付=#" & 許可日 & "#")) Then
                営業日 = 営業日 + 1
            End If
        End Select
    Loop Until 営業日 = 営業日数 - 1
End Function

②
出来上日: 許可日([申請日],IIf([管轄署]="市内" And [普軽別]="軽",2,3))