Sin(Number)
Функция Sin вычисляет синус угла.
Аргумент задается в радианах, а не в градусах!
Для того, чтобы перевести градусы в радианы используйте формулу
Угол(в радианах) = угол(в градусах) * 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=Sin(GradToRad) ' вычисляем синус прямого угла
Debug.Print retval
|