FormatNumber (AccessXP)

Topic

New Reply

I am trying to get my math to be displayed with 1 place after the decimal. My code is

Private Sub txtWeight_AfterUpdate()
Dim MyBMI As Integer
MyBMI = (txtWeight / (txtHeight * txtHeight)) * 703
txtBMI = FormatNumber(MyBMI, 1)
End Sub

The answer should be 27.8, but I keep getting 28.

In the table the two fields txtWeight and txtHeight are long integar data types. On the form I have no format for any of the three text boxes and the decimal place field is currently at Auto. I have tried setting this value.

Thank you for your help.

Fay

Reply | Quote

Replies

Integar data type does not have a decimal component.
Try changing the data type to Double.

Reply | Quote

Thanks for your response. That didn’t do the trick.

Reply | Quote

In your DIM statement you have the result dimed as an Integer. This should also be a Double.

Reply | Quote

Oops. Didn’t catch that. That did the trick. Thank you very much! Fay

Reply | Quote