Tan(Number)
Функция Tan вычисляет тангенс угла в радианах.
Применяется в математических расчетах,связанных с экраной графикой.
Для того,чтобы перевести градусы в радианы используйте формулу
Угол(в радианах)=угол(в градусах)*pi/180,где pi=3.14159265358979.
Возвращаемое значение: Возвращает значение типа Double
Параметры: Number - Обязательный аргумент типа Double или любое допустимое числовое значение,задающее угол в радианах.
Если аргумент не может быть оценен как число,генерируется ошибка времени исполнения Type mismatch
Пример:
'Вычисляем тангенс угла 45 градусов
Dim MyAngle,retval,GradToRad Const pi = 3.14159265358979 ' определяем константу pi MyAngle=45 ' задаем угол в градусах
GradToRad=MyAngle*pi/180 ' переводим градусы в радианы
retval=Tan(GradToRad) ' вычисляем тангенс 45 градусов
Debug.Print retval
|