VBA Макросы: Как использовать котангенс в VBA?

[marfetkaa]

Нужно в VBA составить эту формулу (см. вложение). Я сделал так. Правильно ли я сделал?

Sub Formula()
Dim x#, y#, f#
x = Val(InputBox("X= "))
y = Val(InputBox("Y= "))
f = (1 - Tan(x)) ^ Atn(x) + Cos(x - y)
MsgBox (f)
End Sub

[вложение удалено администратором]

[Администратор]

В VBA нет готовой функции "котангенс" и она получается с использованием тангенса (смотрите "Cotangent"): https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/derived-math-functions

Sub Formula()
    Dim x#, y#, f#
    x = Val(InputBox("X= "))
    y = Val(InputBox("Y= "))
    f = (1 - Tan(x)) ^ (1 / Tan(x)) + Cos(x - y)
    MsgBox (f)
End Sub