![]() |
|
|||||||
| Kayıt ol | Yardım | Üye Listesi | Ajanda | Arama | Bugünki Mesajlar | Bütün Forumları okunmuş kabul et |
| Visual Basic Visual Basic Hakkında Aradığınız Herşey.. Visual Basic Kodları.. |
![]() |
|
|
LinkBack | Seçenekler |
|
|
#1 (permalink) | ||
|
Mesajlar: n/a
|
Kod:
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
|
||
|
![]() |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | son Mesaj |
| Hangi Takımı Tutuyorsunuz ? | Zebani | GirBuraya Anketleri | 62 | 11-24-08 22:10 |
| Hangi Renkte Doğdunuz | Zebani | Astroloji | 15 | 11-06-08 01:48 |
| Hangi Tür Kızlardan Hoşlanırsınız? | paSha | GirBuraya Anketleri | 30 | 08-15-08 23:32 |
| Göze bak kendini öğren | Zebani | Astroloji | 2 | 06-19-08 21:33 |
| Hangi takım hangi hakemi istemiyor | Cansu | Gündem | 0 | 01-03-08 11:00 |
mirc
mırc
çet
cet
sohbet
chat
canlı tv