*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 Hangi Gün Doğdun

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


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

    Vb Kod Hangi Gün Doğdun Empty Vb Kod Hangi Gün Doğdun

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

    Hangi gün doğduğunu bulan program,


    Kod:
    Private Sub Command1_Click()
    Dim d_tarih, gun
    Do
    d_tarih = InputBox("Doğum Tarihinizi Giriniz :")

    Loop While Not IsDate(d_tarih)
    Select Case Weekday(d_tarih)
    Case 1: gun = "Pazar"
    Case 2: gun = "Pazartesi"
    Case 3: gun = "Salı"
    Case 4: gun = "Çarşamba"
    Case 5: gun = "Perşembe"
    Case 6: gun = "Cuma"
    Case 7: gun = "Cumartesi"
    End Select
    MsgBox (gun & " Günü Doğmuşsunuz")
    End Sub

    Bunu yapmak için,

    Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar.

    • Sayfa başına dön

      Forum Saati Paz Mayıs 19, 2024 8:10 pm