Moving decimal

I am getting value of 40836.0 generating from another program. Now I wanted to move decimal at -3, turning it into 40.8. How do I do this with code?

I tried divididng by 1000 and I get round off to 41.0... Actually I want precise number "40.8. Anyone?

Do you have the variable defined as an Integer or as a double or single?

This works for me

VB Code:

Option Explicit
 
Private Sub Form_Load()
Dim a As Long
Dim b As Currency
a = 40836
b = a / 1000
MsgBox Format(b, "###.#")
End Sub

prints 40.8

Anyone?

Refresh your screen. I posted #3 a few minutes ago.

As dglienna said,

Number divided by 1000 formated to show 1 decimal place will work. You have to check if there is something in you code that is rounding your number.

High Octane


This is what you want.

VB Code:

Option Explicit
 
 
Private Sub Form_Load()
Dim a As Long
Dim b As Currency
a = 40836
b = CCur(a / 1000)
MsgBox Format(b, "###.#")
End Sub