[COLOR=red][FONT=Times New Roman][FONT=Times New Roman]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[/FONT][/FONT][/COLOR]



[COLOR=red][FONT=Times New Roman][FONT=Verdana][SIZE=2]Bunu yapmak için,[/SIZE][/FONT][/FONT]

[FONT=Times New Roman][FONT=Verdana][SIZE=2][COLOR=black]Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar.[/COLOR][/SIZE][/FONT][/FONT]
[/COLOR]