convert string

[makisbest]

How I can convert a string like

"1234567"

to a number like

12345.67

 

[shakespeare5677]

x = val("1234567")
-Max

 

[shakespeare5677]

If you're making it into .67 from the number then

strNum = "1234567"
x = Val(Left(strNum, Len(strNum) - 2) & "." & Right(strNum, 2))
-Max

 

[EBGreen]

Or to generalize shakespeare5677's excellent solution:

x = ConvertToNumber("1234567", 2)

Function ConvertToNumber(strNum, nDecDigits)
ConvertToNumber = Val(Left(strNum, Len(strNum) - nDecDigits) & "." & Right(strNum, nDecDigits))
End Function

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[makisbest]

thank you

 

[strongm]

Or

Public Function DecIt(strNumber, lDecPlaces) As Double
DecIt = strNumber / (10 ^ lDecPlaces)
End Function

 

[EBGreen]

Even better.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]