i have a problems.
can anyone help to settle this problem?
for exp;
a person will know about their status that he must pay the fines
he borrow my pencil.after 3 days, he must pay the fines.
1 late day, he must pay rm1.
it will also automatically calculate the amount of his fines
please help me to solve this problem...

8 Years
Discussion Span
Last Post by Teme64

Here you are:

Dim LoanDate As Date
Dim LoanDays As Integer
Dim DueDate As Date
Dim DiffDays As Long
Dim Fine As Single
Dim Total As Single

' When loaned
LoanDate = CDate("8.10.2008")
' How many days can be loaned
LoanDays = 3
' When the loan time ends
DueDate = DateAdd("d", LoanDays, LoanDate)
' Amount of fine
Fine = 1.5
' Overtime
DiffDays = DateDiff("d", DueDate, Now)
' Total amount of fine
Total = DiffDays * Fine
' Show msg
MsgBox "Pay me " & Total & " money", vbCritical, "As Soon As Possible"

Not sure if you need all the code. Change date format in CDate() to match your date format.

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.