Fn GetNumberDigit inputNumber =( digit = 0 absNumber = abs(inputNumber ) do ( digit += 1 absNumber /= 10.0 ) while absNumber >= 1 digit)
GetNumberDigit 999.999