Trying to make a UserForm calculator - decimal issues

[TessieBear99]

Hi all,

I've made a small basic calculator simply to subtract the GST component from a GST-inclusive number (for those who aren't Australian, GST is Goods & Services Tax which is a 10% tax on certain items sold, so I have the Y and I'm trying to find the X in "X+10%=Y").

I have the calculation which is the GST incl. number divided by 11 and multiplied by 10 (e.g. 100/11 = 9.09 * 10 = 90.91) and I think this is working because it gives me a partially accurate result but the decimals aren't working, at least I think this is my issue. I will put 100 in the entry box and click = and it will spit out 90.00 (which we know is wrong, but close).

I've formatted the textboxes so when they're updated they become "#,##0.00".

Object names are...
UserForm name: frmGSTCalc
First text box name: txtEntry
Second text box name: txtCalc
" = " button name: cmdCalc

Here's my code:

Private Sub cmdCalc_Click()

Dim total As Long
Dim GST As Long

GST = Val(txtEntry.Value) / 11
total = GST * 10
txtCalc = total

    
End Sub

Private Sub txtCalc_Change()

    Me.txtCalc = Format(Me.txtCalc, "#,##0.00")

End Sub

Private Sub txtEntry_AfterUpdate()

    Me.txtEntry = Format(Me.txtEntry, "#,##0.00")

End Sub

Here's what it looks like:

Any help would be greatly appreciated!

Thanks

 

[6StringJazzer]

GST is declared as Long, which is an integer type, so you are losing any decimal portion when you do the division by 11. Declare it as Currency to get four digits of precision after the decimal. Declare it as Double to get maximum precision (but I don't think you need that since you should probably also be rounding to nearest cent; I don't know how the government rounds on GST).

 

[TessieBear99]

GST is declared as Long, which is an integer type, so you are losing any decimal portion when you do the division by 11. Declare it as Currency to get four digits of precision after the decimal. Declare it as Double to get maximum precision (but I don't think you need that since you should probably also be rounding to nearest cent; I don't know how the government rounds on GST).

You're a genius! Thank you! I knew it was going to be something like that but couldn't figure it out. Thanks so much

 

[6StringJazzer]

Glad to help!