Skip to main content

AccessTr.neT


Saat Ücretini Textboxta Göstermek

Saat Ücretini Textboxta Göstermek

Çözüldü #1
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.
.rar PERSONEL.rar (Dosya Boyutu: 29,49 KB | İndirme Sayısı: 4)
Son Düzenleme: 25/03/2020, 14:45, Düzenleyen: m_demir.
Cevapla
#2
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
Cevapla
#3
Ç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.
Cevapla
#4
Vba sayfasına geçince yukardaki sirada acilir kutular var orada olması gerek
Cevapla
#5
Hocam eklediğiniz kodu Mesaj 1 deki uygulama dosyama uygularsanız sevinirim. Saygılar.
Cevapla
#6
hangi olaydan sonrasına eklemeyi istiyorsunuz?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da