|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.01.2013, 23:24 | #1 |
Новичок
Джуниор
Регистрация: 15.01.2013
Сообщений: 3
|
Рекурсия. Не удается перевод функции с VBA на Delphi
Имеется вот такая функция на VBA, которая имитирует итерационное вычисление в Excel:
Код:
Код:
uprSumNew не считается и так и остается = 0. Ну и вываливается все в Stack Overflow т.к. не срабатывает выход из цикла. Пытался отловить проблему упрощая цикл до примерно Код:
Но на VBA то все работает. Помогите, люди добрые весь мозг сломал уже. Не такой уж я специалист по Delphi то. В интернетах все в примерах рекурсией фракталы считают, а вот такой бухгалтерской функции по расчету налогов и нету. С уважением. |
15.01.2013, 23:35 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
В vba почти ничего, но там по моему и нет рекурсии
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
16.01.2013, 08:21 | #3 |
Новичок
Джуниор
Регистрация: 15.01.2013
Сообщений: 3
|
Спасибо, все получилось.
Хотя точность вычисления получилась неудовлетворительной. Не сильно, но результат расходится с Excel. |
16.01.2013, 08:51 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Extended вместо real попробуйте
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
16.01.2013, 09:19 | #5 |
Новичок
Джуниор
Регистрация: 15.01.2013
Сообщений: 3
|
Пробовал Currency. Не очень.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA excel не удается закрыть и сохранить книгу без возникновения диалогового окна | Tvilla | Помощь студентам | 2 | 28.06.2012 11:01 |
доделать перевод функции из фортрана в VBA | meigas | Помощь студентам | 0 | 29.05.2012 20:43 |
VBA и рекурсия | AnatolyF | Microsoft Office Excel | 2 | 17.05.2012 19:36 |
Рекурсия в VBA | AnatolyF | Помощь студентам | 0 | 16.05.2012 14:11 |
Перевод кода из Delphi в VBA | prem1era | Microsoft Office Access | 1 | 15.05.2012 12:39 |