"MENGHITUNG BIAYA PENDAFTARAN KURSUS"
1. LISTING PROGRAM
Dim biaya, admin As Long
Private Sub chkinter_Click()
If Me.chkinter.Value = Checked Then
biaya = Val(biaya) + Val(90000)
Else
If biaya > 0 Then
biaya = Val(biaya) - Val(90000)
End If
End If
Me.txtbiaya = Format(biaya, "Rp #,#")
End Sub