*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->


Join the forum, it's quick and easy


*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->

Would you like to react to this message? Create an account in a few clicks or log in to continue.

● En Güncel Paylaşım Platformu ●

---Misafir--- Hos Geldiniz Daha iyi Bir Hizmet İçin Üye olunuz.ÜyeLer Link GörebiLir

    Vb Kod Saat Toplaması

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


    <b>Doğum tarihi</b> Doğum tarihi : 20/06/90
    • Post n°1

    Vb Kod Saat Toplaması Empty Vb Kod Saat Toplaması

    Mesaj tarafından MnyTirith Cuma Mart 12, 2010 9:42 pm

    Private Sub Command1_Click()
    a = TimeValue(Text1)
    b = TimeValue(Text2)
    h1 = Hour(a)
    h2 = Hour(b)
    m1 = Minute(a)
    m2 = Minute(b)
    s1 = Second(a)
    s2 = Second(b)
    k = h1 + h2
    m = m1 + m2
    n = s1 + s2
    Text3 = k & ":" & m & ": " & n

    If (n) >= 60 Then
    m = m + 1
    n = n - 60
    End If

    If (m) >= 60 Then
    k = k + 1
    m = m - 60
    End If

    Text3 = k & ":" & m & ":" & n
    End Sub
    Private Sub Form_Load()
    Text1 = "13:50:55"
    Text2 = "20:19:09"
    End Sub
    • Sayfa başına dön

      Forum Saati Paz Mayıs 19, 2024 11:17 am