Hangi Gün Doğduğunu Öğren [Visual Basic]

Webmaster Destek Platformu Smf,Php,vbulletin,Seditio,Asp,php,Html » Programlama » Visual BasicKonu:

Hangi Gün Doğduğunu Öğren [Visual Basic]

Ana Sayfa

Yardım

Takvim

Arama

Siteyi Öner

Giriş Yap

Kayıt

Reklamlar

Sayfa: [1] Yukarı git

Konu: Hangi Gün Doğduğunu Öğren [Visual Basic] (Okunma Sayısı 155 defa)

Seçenekler

Arama

« : 26 Nisan 2008, 15:45:44 »

stranger

Administrator

Master Member

Üye No : 8

Webmaster Destek Bagımlılık Yaratan Forum!ADMİNCLUP... Nerden :

Konu : 319 Mesaj Sayısı: 563

Puan: 8

Hangi Gün Doğduğunu Öğren [Visual Basic]

Private Sub Form_Load()
Dim d_tarih, gun
show
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 hazir function ile yapildigi için kolay olmus