[RESOLVED] POS - What is wrong with my math?

[dclamp]

ok the following is code to add tax to the transaction. It is not coming out correctly...

intSubTotal = (Val(txtStateTax.Text) * Val(txtSubTotal.Text))
    frmPOS_Finish.txtGrandTotal.Text = (Val(txtSubTotal.Text) + Val(intSubTotal))
    frmPOS_Finish.txtGrandTotal.Text = Format(frmPOS_Finish.txtGrandTotal.Text, "#,###.##0")

[jeroen79]

What is going wrong?
What is the value of txtStateTax? Greater than 1?

[MartinLiss]

How is txtStateTax formatted? .10? 10?

[RhinoBull]

... What is wrong with my math? ...

Where to begin?..

- intSubTotal needs to be declared as Currency or Single or Double or decimals will be rounded
- Val(intSubTotal) makes no sense since intSubTotal is already numeric
- Val() function returns only numeric values until first non-numeric character is found
- you may need to experiment with the different formats

[MartinLiss]

If it's 10 you need to divide by 100.

[dclamp]

How is txtStateTax formatted? .10? 10?

7.25

[jeroen79]

Which would result in 7.25 times the price for VAT. (725 % )

As mentioned, divide it by 100.

[MartinLiss]

7.25

So you need to divide by 100.

[RhinoBull]

7.25

NO wonder result is incorrect. Did you read my first reply yet?

[dclamp]

Like this?

intSubTotal = (Val(txtStateTax.Text) / Val("100")) * (val(txtSubTotal.text))
frmPOS_Finish.txtGrandTotal.Text = (Val(txtSubTotal.Text) + Val(intSubTotal))
frmPOS_Finish.txtGrandTotal.Text = Format(frmPOS_Finish.txtGrandTotal.Text, "#,###.##0")

[dclamp]

NO wonder result is incorrect. Did you read my first reply yet?

oh of course, but I got Lost though...

[jeroen79]

Why use X / Val("100")?
Just use X / 100.
Saves the computer needless work.

[dclamp]

ok, other then that, it is ok?

[MartinLiss]

If it gives you the right result then it's right. BTW you seem to be infatuated with Val. Just use 100, there's no need for Val("100").

[dclamp]

ok, thanks guys!