#1
Kitap1.rar
(Dosya Boyutu: 19,04 KB | İndirme Sayısı: 5)
Private Sub CalculateTimeDifference()
Dim EntryTime, ExitTime, TimeDifference As Date
Dim SecondsDifference As Double
On Error Resume Next
EntryTime = CDate(Me.TextBox1.Value) ' TextBox1 saat değerlerini al
ExitTime = CDate(Me.TextBox2.Value) ' Textbox2 saat değerlerini al
On Error GoTo 0
TimeDifference = ExitTime - EntryTime ' Saat farkını hesapla
SecondsDifference = TimeDifference * 86400 ' Farkı saniye cinsine çevir
Me.TextBox3.Value = Format(TimeDifference, "hh:mm") ' Sonucu saat formatında yaz
Me.TextBox4.Value = SecondsDifference ' Sonucu saniye olarak yaz
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CalculateTimeDifference
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CalculateTimeDifference
End Sub