topic Re: number to string in VBA Forum

number to string

Anonymous — Mon, 07 Aug 2006 19:12:31 GMT

Im trying to grab certain decimal places of a double and put them into a string.
I want to convert 0.315 to 315 as a string, likewise .062 will be 062 and .25, 250, etc.
Any idea how this can be done?

Re: number to string

Anonymous — Mon, 07 Aug 2006 19:20:00 GMT

StringVal = str(0.062*1000)

Re: number to string

Anonymous — Mon, 07 Aug 2006 19:32:33 GMT

that works except for the case when the number is less than .1. for example as i said if the number was .062 i would need the string to be 062 not 62, not sure how much that would change this.

Re: number to string

Anonymous — Mon, 07 Aug 2006 19:45:01 GMT

How about this?

StringVal = Format((str(0.062 * 1000)), "000")

Re: number to string

Anonymous — Mon, 07 Aug 2006 19:50:27 GMT

Give this a try
Sub GrabDecimalOnly()
Dim dblNum As Double
Dim decStr As String
dblNum = 0.062
decStr = Mid(CStr(dblNum), 3, 4)
MsgBox decStr
End Sub

Fatty

~'J'~ Message was edited by: Fatty

Re: number to string

Anonymous — Mon, 07 Aug 2006 20:57:30 GMT

Hi,

Try this:
x = your numeric value
If Instr CStr(x),".") > 0 then
MsgBox Left$(Split(CStr(x), ".")(1) & "000", 3)
Else
MsgBox "000"
End If

--

Laurie Comerford
CADApps
www.cadapps.com.au
wrote in message news:5261068@discussion.autodesk.com...
Im trying to grab certain decimal places of a double and put them into a
string.
I want to convert 0.315 to 315 as a string, likewise .062 will be 062 and
.25, 250, etc.
Any idea how this can be done?

Re: number to string

Anonymous — Mon, 07 Aug 2006 23:49:37 GMT

all the different variations seem to do the trick, thanks guys