ник: Анатолий (Киев)
На заметку...
Корень любой степени:
Function SqrN(anyValue As Variant, n As Double) As Double
'Вычисляет корень n степени для значения anyValue
'anyValue должно быть больше 0, иначе функция возвращает 0.
If Not IsNumeric(anyValue) Then
SqrN = 0
Exit Function
End If
If anyValue <= 0 Then
SqrN = 0
Exit Function
End If
SqrN = Exp(1 / n * Log(CDec(anyValue)))
End Function
|