[Office] Re: разрядность чисел
> как в Exel определить количество разрядов числа перед запятой?
сам справился, RTFM+Example Help
вставил модуль о описал новую функцию =Разряд(<значение>).
Function Разряд(ТекЧисло)
If ТекЧисло = Null Or ТекЧисло = 0 Then
Разряд = 1
Exit Function
End If
Dim Counter
Counter = 0
While ТекЧисло >= 1
ТекЧисло = ТекЧисло / 10
Counter = Counter + 1
Wend
Разряд = Counter
Debug.Print Counter
End Function
Спасибо, всем.