Математическая формула в VBA

@TinGol · Регистрация: 31.05.2018

Студворк — интернет-сервис помощи студентам

Добры день!

Сразу хочу принести свои извинения, тем кого шокирую своими познаниями в тригонометрии, однако )

Есть Формула расчета длины хорды окружности: L = 2r × sin ( α / 2 ).

пишу в vba так:

Visual Basic
1
2
3
4
5
6
7
8
Dim R As Double: R = 290
Dim a As Double: a = 90
Dim L As Double: L = 2 * R * Sin(a / 2)
 
' Результат: 493.52
' Онлайн калькулятор рассчитывает : 410.1
' Думаю, все таки ошибка у меня ;)
'

Подскажите, что я делаю не так?

@Narimanych · 30.07.2020, 11:53

TinGol,

Переведи градусы в радианы...

Visual Basic
1
2
3
Dim R As Double: R = 290
Dim a As Double: a = 90
Dim L As Double: L = 2 * R * Sin(a * 0.017453292519943 / 2)

@КостяФедореев · 30.07.2020, 11:53

TinGol, Градусы нужно в радианы перевести.

@TinGol · 30.07.2020, 11:58 **[ТС]**

Вот оно что, спасибо. Есть родная функция, для перевода в радианы?

@Narimanych · 30.07.2020, 12:56

TinGol,
Есть...

Visual Basic
1
a_IN_radians = Application.WorksheetFunction.Radians(a)

@TinGol · 30.07.2020, 12:58 **[ТС]**

Narimanych, благодарю

@Narimanych · 30.07.2020, 13:03

TinGol,
Велкоме

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	30.07.2020, 11:53
	TinGol, Градусы нужно в радианы перевести. 1

@TinGol 42 / 30 / 13 Регистрация: 31.05.2018 Сообщений: 142
	30.07.2020, 11:58 [ТС]
	Вот оно что, спасибо. Есть родная функция, для перевода в радианы? 0

@TinGol 42 / 30 / 13 Регистрация: 31.05.2018 Сообщений: 142
	30.07.2020, 12:58 [ТС]
	Narimanych, благодарю 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	30.07.2020, 13:03
	TinGol, Велкоме 0

Математическая формула в VBA

Решение