VBA Школьная задачка

Germany.ru → Foren → Архив Досок→ Programmierung

835 просмотров Перейти к просмотру всей ветки

13.03.10 15:57

Re: VBA Школьная задачка

voxel3d коренной житель

in Antwort reviz 13.03.10 11:13, Zuletzt geändert 13.03.10 15:58 (voxel3d)

В ответ на:

Чем заменить?

Public Function acos(x As Double) As Double
If Abs(x) < 1 Then
    acos = atn(-x / sqr(1 - x * x)) + 2 * atn(1)
ElseIf x = 1 Then
    acos = 0
ElseIf x = -1 Then
    acos = 4 * atn(1)
Else
    msgbox "Not defined for |x|>1"
End If
End Function

Dropbox - средство синхронизации и бэкапа файлов.

Sprung zu