税計算の時、内税と外税を区別するには？ (ID:123657)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 影さん返信ありがとうございます。 やっぱりうまくいきません、下のように書いています。 どこを直せばいいでしょうか？ Dim zeinosyurui() As Boolean = {0, 1} Dim suryou, tannka, zeigaku, gokei As Integer Const zeiritu As Double = 0.5 tannka = Val(PriceBox.Text) suryou = Val(QuantityBox.Text) zeigaku = Val(Tax.Text) If zeinosyurui(0) Then zeigaku = suryou * tannka * 0 Tax.Text = Format(zeigaku, "#,##0") gokei = suryou * tannka Total.Text = Format(gokei, "#,##0") Else zeigaku = suryou * tannka * zeiritu Tax.Text = Format(zeigaku, "#,##0") gokei = suryou * tannka + zeigaku Total.Text = Format(gokei, "#,##0") End If