Saat Farkını TextBoxta Göstermek

[yavuz829]

Merhaba Arkadaşlar saat ücretini otomatik olarak TextBoxta göstermek istiyorum.

Örneğin:
Saat Ücreti: TextBox1 10,30

Giriş Saati: TextBox2 11:30
Çıkış Saati: TextBox3 12:45

Çalıştığı Toplam Saat: TextBox4=TextBox3-TextBox2=01:15 (TextBox4 de otomaikmen görünsün.)

Çalıştığı Saat Ücreti: TextBox5=TextBox1 *TextBox4=12,52 (TextBox5 de otomaikmen görünsün.)

Bu konuda yardımlarınıza ihtiyacım var.

 

[hımmmmmmmm]

bendeki sonuç neden 12.88 oldu...

Public Sub HESAP()
    On Error Resume Next

    GIRS = TimeValue(TextBox2)
    CIKS = TimeValue(TextBox3)
    TextBox4 = Format(CIKS - GIRS, "hh:mm")
   
    SAAT = CDbl(TextBox1)
    TSAT = Round(Hour(TextBox4) * SAAT + Minute(TextBox4) * SAAT / 60, 2)
    TextBox5 = TSAT

End Sub

 

[yavuz829]

Çok Teşekkürler Hocam ellerinize sağlık.