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
| 
Главная 
