AccessTr.neT

Tam Versiyon: Saat Ücretini Textboxta Göstermek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
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
Ç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.
Vba sayfasına geçince yukardaki sirada acilir kutular var orada olması gerek
Hocam eklediğiniz kodu Mesaj 1 deki uygulama dosyama uygularsanız sevinirim. Saygılar.
hangi olaydan sonrasına eklemeyi istiyorsunuz?
Sayfalar: 1 2