Приветствую всех. тема с банковской тематикой. Помогите с составлением алгоритма расчета неустойки за просроченные %% за пользование кредитными средствами.

пеня рассчитывается так - Просроченная сумма * количество дней просрочки * 2 * ставка рефинансирования на момент просрочки / 36500 (либо 36600) (в зависимости от числа дней в году.
В этой задаче надо найти просроченную сумму и промежуток - с какой по какой даты была эта просроченная сумма.


Исходные данные
Массивы
Datе – содержат даты операций
Debt – суммы операций по просроченным платежам за кредит
Cred – Сумма операций погашения просроченных платежей
Размеры исходных массивов совпадают, в одну и ту же дату date[i] всегда либо Debt[i] > 0 либо cred[i] > 0. Оба Debt[i] и cred[i] не бывают равными нулю.
Задача сформировать новые массивы содержащие такие данные
Sum[i] datas [n] datapo[k]
Где sum[i] = debt[e]– просроченная сумма
Datas[n] – дата, начиная с которой сумма debt[j] находится на просрочке
datapo[k] – дата, до конца которой debt[j] находится на просрочке
при этом в промежутке между датами Datas[n] и datapo[k] не меняется сумма debt[j]
если в промежутке между датами Datas[n] и datapo[k] есть такая дата date[p] которая больше чем Datas[n] и меньше чем datapo[k] и при дате date[p] сумма Cred[p] > 0 то исходная сумма debt[j] уменьшается на Cred[p], если debt[j] > cred[p] и промежуток расчета на два промежутка
Дата с Дата по Сумма
Datas[n] date[p] debt[j]
date[p] + 1 datapo[p] debt[j] – cred[p]

А если debt[j] < cred[p] то
Дата с Дата по Сумма
Datas[n] date[p] debt[j]

И уже переходим к debt[j + 1]
И так следует идти до полного обнуления всех элементов массива к debt[] либо до конца массива cred[].

во вложении исходные данные и результат выполнения алгоритма( если бы он обработал исходные данные.
у себя в программе у меня путаница с промежутком дат дата с и дата по получается, когда идет погашение мелкими суммами, которые меньше чем просроченная сумма.

Нужен свежий взгляд на задачу, может кто-то уже и реализовывал его уже.