Moving decimal

[High Octane]

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?

[Hojo]

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

[dglienna]

This works for me

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

[High Octane]

Anyone?

[dglienna]

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

[Hojo]

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.

[randem]

High Octane


This is what you want.

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