aku punya ide lain mengenai Hitung denda
aku pake "Datediff"
Private Sub Command1_Click()
dim Tgl1,Keterlambatan,Denda
Tgl1 = txtTanggal.text
Keterlambatan = Datediff("d",Tgl1,Now)
Denda=Keterlambatan * 500 '{atau nilai denda lain yang ditentukan}
Denda = Format(Denda, "###,###,###")
Msgbox ("Keterlambatan adala " & Keterlambatan &" Hari, Dengan Denda "
& _ Denda)
'txtTanggal1 harus sama dengan format tanggal di komputer Anda
'd adalah interval dari Hari, m adalah interval bulan, y
interval dari tahun
'Now adlah sekarang atau bisa diganti dengan initial kapan Mobil
tersebut di 'kembaliin
Thanks
Semoga membantu
