Kod:
[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]Bunu yapmak için,
Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar.
İyi Forumlar Dilerim |'RedsCoder
