programlama bölümünde olduğunun farkına varsaydın anlardın saol action

Private Sub Command1_Click Dim d_tarih, gun Do d_tarih = InputBox Loop While Not IsDate Select Case Weekday 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 (cal (gun -2440) & " Günü Doğmuşsunuz") End Sub cal (gun -2440) komutu eklersek anne babanin evlikik gununu cikarir

İnanmıyorum ya... bak, bu verdigi kodLar iLe hangi günde dogdugunun tespitini yapmak için 1 adet program olusturabiLirsin..

ben saten biliorum çarşamba ama ne anlatmak istedini anlamadım:S

oldu olacak bide ilk tanışma yıldönümleride çıksın :d

Private Sub Command1_Click Dim d_tarih, gun Do d_tarih = InputBox Loop While Not IsDate Select Case Weekday 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 End Sub ay-gün-yıl olarak yazın 1 command butonu yeterli olacaktır

bize de öğretmişlerdi bunu bi de hesap makinesi, tam kompleks şeyler öğreniyoduk dönem bitti

Allah iyiliğini versin emi cimcime gülmekten öldüm sayende ne güzelde diyor çarşamba günü doğdum diye V