Zjištění počtu číslic v čísle

Private Function GetDigitCount(inValue As Double) As Integer 
   GetDigitCount = Int(Log(inValue) / Log(10)) + 1
End Function

Zpět