getting the length of a number

[snowjoke]

... by which I mean the number of digits in a number.

Function getLength(a)
    Length = Int(Log(a) / Log(10)) + 1
    getLength = Length
End Function

Fails on some corner cases, e.g. getLength(1000) = 3 (incorrect), but getLength(1001) = 4.

I could convert to a Variant(String) and measure that, but is there a better way using numbers?

Just thought of

do while a > 0
   a = a / 10
   Length = Length + 1
loop

look good?

 

[AlphaFrog]

Function getLength(a)
    getLength = Len(Format(a, "0"))
End Function

Format "0" is just an integer format (you could change that if you want), so 1000 and 1000.1 and 1001 all return 4

If you wanted to have a cell formula...
=LEN(TEXT(A1,"0"))
...will give you the length of the integer in cell A1

You may want to use the ABS function to exclude the negative sign in the length for negative numbers.

 

[snowjoke]

Great, thanks!