Формулы для вычисления положения планет в знаках Зодиака
Подскажите пожалуйста, как решить задачу, или найти готовое решение.
Требуется по дате рождения создать формулы в Экселе для вычисления положения планет в знаках Зодиака.
В принципе в эксель есть vba, если только у вас есть формулы, допустим - книга расчет положения НТ для калькуляторов, название точно не помню и вы владеете навыками програмирования.
Спасибо за исчерпывающую консультацию.
Но, кажется, я не точно задал вопрос.
На самом деле, мне бы хотелось научиться вычислять в Экселе:
В каких знаках зодиака (точнее - их номера) находились планеты в момент рождения человека?
Подскажите пожалуйста, и простите за астр-дилетантство.
Стараюсь исправиться.
Используйте функцию Plc(), которая возвращает зодиакальную долготу планеты, переданную ей в качестве одного из параметров. А далее сможете преобразовать долготу в номер знака.
Для этого не надо знать ни Excel, ни VBA. Ребята из Швейцарии давно предоставляют API для работы с эфемеридами. Так вот, там у них есть утилитка командной строки, которая позволяет много чего рассчитывать. Ваши действия:
1. загрузить ftp://ftp.astro.com/pub/swisseph/sweph.zip
2. разархивировать, найти и использовать swetest.exe
3. Для того, чтобы не использовать аналитические эфемериды, лучше загрузить ещё и файлы эфемерид (ищите файлы, а не папки): ftp://ftp.astro.com/pub/swisseph/ephe/
Кажется сложно, но утилитка достаточно мощная и у неё хороший Help из той же командной строки.
Если что-то будет непонятно - спросите, подскажу (не делать за Вас, а толкнуть в нужном направлении, ибо времени нет на большее, к сожалению).
P.S. Использование электронных таблиц в этих целях - для освоения и тренировки - понимаю, но это как на счётах при живом компьютере. :)
__________________
Последний раз редактировалось Prometheus, 28.02.2017 в 21:54.
Здравствуйте! У меня возникла проблема с функцией Plc, код которой предложен в обсуждении "Как работать со швейцарскими эфемеридами". Данная функция не выводит никакого значения, точнее, выводит #ЗНАЧ!. В значения аргументов функции я передаю высчитанную с помощью функции Jday юлианскую дату (JD), Pl=0, "STrop", XPos = 0.
Подскажите пожалуйста, как ее можно решить.
1. Подключена ли у вас библиотека швейцарских эфемерид swedll32.dll?
2. Подключена ли в Эксель надстройка SweRuXLA.xla?
3. Можете ли вы воспроизвести в Эксель пример как в этом посте http://forum.argo-school.ru/showpost...1&postcount=3?
Формулы для вычисления положения планет в знаках Зодиака
Ваши усилия увенчались успехом. 
Линейный вид
