Billing Status

[miben]

I am writing code to determine the status of a financial
account. I need to know how to determine the status
ex. 'Late' or 'Current'. The Bill has a starting date and
must be paid in 'X days' intervals. (5 day, 30 day, etc.)

1) If the balance is not paid, the status should be 'Late',
and the current balance should be added to the next
payment amount to give a new balance.

2) If the balance is paid, the status should show
'Current' until the payment is missed.

3) If the last payment has been reach, any 'Late'
payments after that should not be added. The max
amount due has been reached.

If anyone knows how to do this... Thanx

[miben]

Here are some variables needed:

1) Next Due Date
2) Status
3) Current Due
4) Origional Amount
5) Days in Payment Cycle
6) Total Cycles in Plan
7) Time Elapsed since the starting date
8) Ending Date
9) Minimum Due in Cycle

Dim datNextDueDate As Date
Dim intElapsed As Integer
Dim intDays As Integer
Dim sngCurrent As Single
Dim sngMinimum As Single
Dim intCycles As Integer
Dim datEnding As Date
Dim strStatus As String
Dim intCycle As Integer
Dim sngOriginal As Single

This is what is needed for variables