内税計算処理

概要：

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

フォーム設計
・「F内税計算」

消費税端数処理区分オプショングループを作成します。

オプショングループ内に［切り捨て／切り上げ／四捨五入］のトグルボタン
を配置します。

［内税処理］コマンドボタンをクリックすると対象金額をもとにした計算を
おこないます。
        

         Private Sub 実行_Click() 

           '消費税率を8％とする 

            消費税額 = UchiZei(hasuu, 8, 対象金額)

            本体金額 = 対象金額 - 消費税額

         nd 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」で動作を確認してみて下さい。

戻る