Microsoft Access 掲示板

Microsoft Access 掲示板

消費税アップのための自己関数 / 1

5 コメント
views
4 フォロー
1
hiroton 2019/10/02 (水) 11:38:25 b74fc@f966d

単純にtesuuryou = 基本料金 * 消費税の形のほうが分かりやすいのでは？
後は、せっかくACCESSを使っているのでデータはテーブルへ
・手数料テーブル（普軽別、再申請、自社、手数料）
・消費税テーブル（開始日、税率）

Function 消費税(起算日 As Date)
    Dim 開始日 As Variant
    開始日 = DMax("開始日", "消費税", "開始日<=#" & 起算日 & "#")
    If IsNull(開始日) Then
        消費税 = 0
    Else
        消費税 = Nz(DLookup("税率", "消費税", "開始日=#" & 開始日 & "#"), 0) / 100
    End If
End Function

車庫証明申請代行手数料 = DLookup("手数料", "手数料", "普軽別='" & 普軽別 & "' And 再申請=" & 再申請 & " And 自社=" & 自社) * (1 + 消費税(申請日))

手数料テーブルの「手数料」は税抜き、消費税テーブルの「税率」は税率部分を整数入力想定です。（消費税10％なら整数で10）

通報 ...