Написание программы перерасчета простенькая

Прошу помочь , написать программку , для вычисления , перерасчета . Постоянно штрафы за ошибки получаю))
Не знаю как привязать к текущей дате , чтоб количество дней которыми пользовался автоматом тоже считало.




Формула:

Количество неиспользованных дней по тарифу*сумму текущей АП / 30 дней = сумма компенсации (округляется до цифр после запятой, в пользу компании).

ПРИМЕР:

У абонента ТП 199 руб.


Сегодня 23 апреля.

У абонента последнее списание было 15 апреля
Абонент согласился на смену тарифа и хочет вернуть деньги за текущий тариф.

Наши действия :

Высчитываем кол-во дней (сколько абонент пользовался тарифом):
15 апреля – день списания АП, 23 апреля – перехода на новый ТП . Получается, что абонент пользовался пакетом 15,16,17,18,19,20,21,22 и 23. Получаем 9 дней.

Пакет действует 30 дней, 9 из них абонент пользовался данным пакетом. Значит мы получаем цифру 21 – это кол-во дней по неиспользованному пакету.

Далее 21*199руб и делим на 30 дней = 139,30 коп.

Абоненту начисляем 139 руб.

0

Написал в екселе , работает , можно хоть как то , визуализировать эту таблицу в vb6 , одну ячейку , чтоб просто ее видеть и две чтоб изменять можно было? В реальном времени

0