Menghitung Lembur Berdasarkn Detik

==>Menghitung Lembur Berdasarkan Detik

Dim totaldetik As Long

Dim hh, mm, ss As Integer
Dim tampungdetik As Long

Private Sub cmdMulai_Click()
Timer1.Enabled = True

txtAwalLembur.Text = Time

txtDurasiPertama.Text = Format(CDate("23:59:59") _ - CDate(txtAwalLembur) + CDate("00:00:01"), _
"hh:mm:ss")

'Ditambah satu detik karena belum bulat ke 24:00:00 'dan angka 24:00:00 tsb tidak valid utk Time

txtTglMulai.Text = Format(Date, "dd/mm/yyyy")

txtTglEsok.Text = Format(Date + 1, "dd/mm/yyyy")txtDurasiKedua.Text = 0

txtTampungDetik.Text = 0
cmdMulai.Enabled = False
cmdStop.Enabled = True

End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
cmdStop.Enabled = False
cmdMulai.Enabled = True
End Sub

Private Sub Timer1_Timer()

txtTglSistem.Text = Format(Date, "dd/mm/yyyy") txtJamSistem.Text = Time

If txtJamSistem.Text = "00:00:00" Then

txtDurasiLembur.Text = Format(CDate("23:59:59") _ - CDate(txtAwalLembur) + CDate("00:00:01"), _
"hh:mm:ss")

Else

txtDurasiLembur.Text = Format((CDate(txtJamSistem.Text) - CDate(txtAwalLembur.Text)), "hh:mm:ss")

End If

If CDate(txtAwalLembur) = CDate(txtJamSistem) Then
txtTampungDetik.Text = 0

End If

If CDate(txtTglSistem) = CDate(txtTglEsok) Then
txtTglEsok.Text = Date + 1

txtTotalDetik.Text = Format(totaldetik + 1,"0,0")

txtTampungDetik.Text = totaldetik + 1, Timer1.Enabled = False

Timer2.Enabled = True
End If

hh = Hour(txtDurasiLembur)

mm = Minute(txtDurasiLembur)

ss = Second(txtDurasiLembur)

totaldetik = hh * 3600 + mm * 60 + ss

txtTotalDetik.Text = Format(totaldetik, "0,0")

txtBesarUang.Text = Format(txtTotalDetik *100,"0,0")

txtDurasiKedua.Text = Format(Val(txtTotalDetik)- Val(txtTampungDetik), "0,0")

End Sub

Private Sub Timer2_Timer()

txtTglSistem.Text = Format(Date, "dd/mm/yyyy") txtJamSistem.Text = Time

If txtJamSistem.Text = "00:00:00" Then

txtDurasiLembur.Text = Format(CDate("23:59:59") _ - CDate(txtAwalLembur) + CDate("00:00:01"), _
"hh:mm:ss")

Else

txtDurasiLembur.Text = Format(CDate(txtJamSistem.Text) _
+ CDate(txtDurasiPertama.Text) - _
CDate("00:00:00"), "hh:mm:ss")
End If

If CDate(txtAwalLembur) = CDate(txtJamSistem) Then
txtTampungDetik.Text = 0

End If

If CDate(txtTglSistem) = CDate(txtTglEsok) Then
txtTglEsok.Text = Date + 1

txtTotalDetik.Text = Format(totaldetik, "0,0") txtTampungDetik.Text = totaldetik + 1
Timer2.Enabled = False

Timer1.Enabled = True

End If

hh = Hour(txtDurasiLembur)

mm = Minute(txtDurasiLembur)

ss = Second(txtDurasiLembur)

totaldetik = hh * 3600 + mm * 60 + ss

txtTotalDetik.Text = Format(totaldetik, "0,0")

txtBesrUang.Text = Format(txtTotalDetik * 100, - "0,0")

txtDurasiKedua.Text = Format(Val(txtTotalDetik) -Val(txtTampungDetik), "0,0")

End Sub