1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Hangi Gün Doğduğunu Öğren


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Doğum tarihini giriyorsunuz ve hangi gün doğduğunuzu öğreniyorsunuz...
    (Form'a hiçbir şey eklemiyoruz)
    Kod:
    Private Sub Form_Load()
        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