Функция Cos

Cos(Number)

Функция Cos вычисляет косинус угла. Аргумент задается в радианах, а не в градусах! Для того, чтобы перевести градусы в радианы используйте формулу
Угол(в радианах) = угол(в градусах) * pi/180, где pi=3.14159265358979. См. пример

Возвращаемое значение

Функция возвращает величину с типом данных Double, лежащую в диапазоне от -1 до 1

Параметры
Number
Обязательный аргумент представляет собой значение типа Double, задающее угол в радианах. Если аргумент не может быть оценен как число, генерируется ошибка времени исполнения Type mismatch
Пример
' Вычисляем косинус прямого угла

Dim MyAngle, retval, GradToRad
Const pi = 3.14159265358979 ' определяем константу pi
MyAngle=90 ' задаем угол в градусах
GradToRad=MyAngle*pi/180 ' переводим градусы в радианы
retval=Cos(GradToRad) ' вычисляем косинус прямого угла
Debug.Print retval
Категория
Тригонометрические функции