AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Saat Ücretini Textboxta Göstermek

1 2
25/03/2020, 13:39

m_demir

Merhaba Arkadaşlar Eklediğim uygulamada 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.
25/03/2020, 15:02

berduş

forma aşağıdaki gibi bir fonksiyon ekleyip istediğiniz yerden çağırabilirsiniz mesela çıkış saatiinden çıkınca yada çalıştığı saat metin kutusuna girince olaylarından çağrılabilir
Function Hesapla()

If Len(TextBox2) > 0 And Len(TextBox3) > 0 Then

    BasSure = Split(TextBox3, ":")(0) * 60 + Split(TextBox3, ":")(1) - (Split(TextBox2, ":")(0) * 60 + Split(TextBox2, ":")(1))

    TextBox4 = Format(BasSure \ 60, "00") & ":" & Format(BasSure Mod 60, "00")

    Ucret = IIf(Len(TextBox1) > 0, TextBox1, 0)

    TextBox5 = Round(Ucret * (BasSure / 60), 2)

End If

End Function
25/03/2020, 17:26

m_demir

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

Hocam Excel de metin kutusu çıkınca, girince veya odaklanınca olayına dereden kod eklendiğini bilmiyorum.

Yardımcı olursanız sevinirim. Saygılar.
25/03/2020, 17:29

berduş

Vba sayfasına geçince yukardaki sirada acilir kutular var orada olması gerek
25/03/2020, 18:23

m_demir

Hocam eklediğiniz kodu Mesaj 1 deki uygulama dosyama uygularsanız sevinirim. Saygılar.
25/03/2020, 18:36

berduş

hangi olaydan sonrasına eklemeyi istiyorsunuz?
1 2