функция arccos(a) на VBA

[Oooleg]

Всех приветствую!
Подскажите пожалуйста какой синтаксис у функции arccos(a) на VBA ?

[EducatedFool]

x=WorksheetFunction.Acos(a)

И ещё: (нашёл здесь: http://www.planetaexcel.ru/forum.php?thread_id=2143)

Сообщение от ZVI

О вызове функций Excel из VBA и быстродействии.

С т.з. синтаксиса вместо Application.Acos правильнее:
Application.WorksheetFunction.Acos или
Excel.WorksheetFunction.Acos или просто
WorksheetFunction.Acos

Но такие вызовы медленные из-за моста в виде OLE-объекта между VBA и Excel.
Использование же константа pi вместо WorksheetFunction.pi - это правильное решение.

Если важно быстродействие, то лучше написать свою VBA-функцию арккосинуса, например, так:

Function Acos(ByVal a As Double) As Double
If a = 1 Then
Acos = 0
ElseIf a = -1 Then
Acos = pi
Else
Acos = Atn(-a / Sqr(-a * a + 1)) + 2 * Atn(1)
End If
End Function

[Oooleg]

Спасибо!
Работает.