内税計算処理


概要:

対象金額をもとにして内税計算をおこないます。

 


1.フォーム設計
「F内税計算」
 消費税端数処理区分オプショングループを作成します。
 オプショングループ内に[切り捨て/切り上げ/四捨五入]のトグルボタンを配置します。
 [内税処理]コマンドボタンをクリックすると対象金額をもとにした計算をおこないます。
 Private Sub 実行_Click()
    '消費税率を8%とする
    消費税額 = UchiZei(hasuu, 8, 対象金額)
    本体金額 = 対象金額 - 消費税額
 End Sub
内税計算ファンクションプロシージャ
Public Function UchiZei(HsKubun As Byte, TaxRate As Single, Taisyou As Currency) As Currency
'------------------------------------------------------------------------------
'目的: 内税の消費税額を計算する
'引数: HsKubun - 消費税端数処理区分
'    TaxRate - 消費税率
'    Taisyou - 対象金額
'------------------------------------------------------------------------------
    Dim objTax As Single
    objTax = Taisyou - (Taisyou / (1 + (TaxRate / 100)))
    Select Case HsKubun
        '切捨て
        Case 1
             UchiZei = Fix(objTax)
        '切上げ
        Case 2
            UchiZei = Fix(objTax + Sgn(objTax) * 0.9)
        
        Case 3
        '四捨五入
             UchiZei = Fix(objTax + Sgn(objTax) * 0.5)
    End Select
End Function


DownLoad の「uchizei.zip」で動作を確認してみて下さい。


戻る