# Simple VB Question

I am not a VB expert and I am trying to make a simple function that will count the number of decimal places there is in a number.  This is what I've done:

Public Function countDecimalPlaces(number As Double) As Integer
Do While number > Math.Round(number)
number = number * 10
countDecimalPlaces = countDecimalPlaces + 1
Loop
End Function

The problem is that it only works for up to 5 digits because in the comparison line for the loop (Do While number > Math.Round(number)), the Math.Round(number) part makes an integer, thus the the 5 digits the function will work until.  I have tried a few other things for the right side of the inequation (ie: multiplying and dividing by powers of 10, using Int(number), etc.)  but got the same results.

I can't seem to cast the right side of the inequation into a double properly.

###### Who is Participating?

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Commented:
Hi,
Why not something like this:

Public Function countDecimalPlaces(number as Double) As Integer
Dim sNum As String
dim x        As Integer

sNum = Cstr(number)
x = Instr(sNum,".")
If x > 0 then x = Len(sNum) - x
countDecimalPlaces = x
Exit Function

Ken
0

Experts Exchange Solution brought to you by

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Commented:
I came up with the top method after realizing Ken basically did the bottom one. Darn skimming. :P

MsgBox CountDecimal(1.12345678)
End Sub
Private Function CountDecimal(ByVal Number As Double) As Integer
CountDecimal = Len(CStr(Number)) - Round(Number, 0) - 1
End Function

or...

MsgBox CountDecimal(1.123456789)
End Sub
Private Function CountDecimal(ByVal Number As Double) As Integer
Dim iPos As Integer
iPos = InStr(1, Number, ".")
If iPos > 0 Then
CountDecimal = Len(CStr(Number)) - iPos
Else
CountDecimal = 0
End If
End Function
0
Commented:
Public Function NumberOfCharInString(strSearchIn as string, strSerarchFor as string) as integer
dim intCnt as Integer, intSavePlace as Intger
intCnt=0
intSavePlace=1
Do while intSavePlace>0
intSavePlace=  Instr(intsavePlace, strSeachIn, strSearchFor)
If intSacePlace>0 then
intCnt=intCnt+1
end if
loop
NumberOfCharInString=intCnt
end function

Then you can count what ever you want in a string
by calling NumberOfCharInString ("LOOK.FOR.DECIMALS",".")
0
###### It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.