VB örnek: Hangi Gün Doğduğunu Öğren

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

VB örnek: Hangi Gün Doğduğunu Öğren

Mesaj gönderen mayhemious » 09 Oca 2008, 14:52

Tarihi girip haftanın hangi gününe denk geldigini bulabilirsiniz. Inputbox a dogum tarihi formatı olarak 01.01.1970 gibi girebilirsiniz

Kod: Tümünü seç

Private Sub Form_Load()
    Dim d_tarih, gun
    show
    Do
    d_tarih = InputBox("Dogum 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 = "Çarsamba"
            Case 5: gun = "Persembe"
            Case 6: gun = "Cuma"
            Case 7: gun = "Cumartesi"
        End Select
    MsgBox (gun & " Günü Dogmussunuz")
End Sub



Cevapla