program billing wartel

Dim awal As Date
Dim akhir As Date
Dim total As Date
Private Sub Cmul_Click()
awal = Time
Timer1.Enabled = True
Timer1.Interval = 1
Cmul.Enabled = False
Csel.Enabled = True
Csel.SetFocus
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Csel_Click()
Timer1.Enabled = False
Cmul.Enabled = True
Csel.Enabled = False
Cmul.SetFocus
End Sub
Private Sub Form_Activate()
Cmul.SetFocus
End Sub

Private Sub Timer1_Timer()
Dim total As Date
Dim bayar As Integer
Dim akhir As Date
akhir = Time
total = akhir - awal
bayar = Round(1000000 * total)
Text1.Text = total
Text2.Text = Format(bayar, "Rp #,#")
Label4.Caption = Format(Now, "dddd/ddmmmmyyyy")
Text3.Text = akhir
Text4.Text = awal
End Sub