+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Userform Da Saat Hesaplama (/konu-userform-da-saat-hesaplama.html)
Userform Da Saat Hesaplama - yenginoglu - 17/11/2023
Sayın Hocalarım,
yapmak istediğim
ekli örnekteki userform daki textbox2 den textbox1 çıkarıp textbox3 aradaki saat farkını yazması ve sonra textbox4 e textbox3 teki
farkı saniyeye çevirmesi.
Saygılarımla,
RE: Userform Da Saat Hesaplama - atoykan - 18/11/2023
Merhaba Sayın @yenginoglu
Formunuzun kodlarına aşağıdaki kodları eklerseniz istediğinizi yapacaktır. Kendi kurgunuza göre ihtiyaç duyduğunuz kontrollerinizi ekler çalışmanıza uyarlarsınız. İşinizi görmesi dileğiyle...
Kod:
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 SubRE: Userform Da Saat Hesaplama - yenginoglu - 20/11/2023
Sayın Atoykan Hocam,
Çok teşekkür ederim. Sağolun.
Saygılarımla,
RE: Userform Da Saat Hesaplama - atoykan - 20/11/2023
Rica ederim iyi çalışmalar.