Skip to main content

AccessTr.neT M.


Saat Ücretini Textboxta Göstermek

Saat Ücretini Textboxta Göstermek

#7
çıkış saatinden çıkınca olayına eklerseniz iyi olur.

Cevapla
#8
forma aşağıdaki 2 olayı ekleyip dener misiniz?

Visual Basic Code
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Hesapla
End Sub

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
...........
#9
Son Düzenleme: 25/03/2020, 20:25, Düzenleyen: m_demir.
Çok, çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi olmuş.

Hocam Konuyu taşıyabilirsiniz. Saygılarımla sağlıklı günler diliyorum.

Cevapla
#10
iyi çalışmalar)

Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da