Ustam
TextBox8' e yazılan tarih ("gg.aa.yyyy" formatında)
25 yaşından küçük ve 65 yaşından gün almışsa
Label18 "Uygun Değil"
25 yaşından büyük ve 65 yaşından gün almamışsa
Label18 "Uygun"
Yazacak bir koda ihtiyacım var. Yardımcı olabilir misiniz?
Dateadd fonksiyonunu kullanabilirsiniz
if dateadd("y", 25, tarih)>= date and dateadd("y", 65, tarih)<date then
benzeri bir kod işinize yarayabilir
Rica ederim
İyi çalışmalar
Kod:
If Me.TextBox14 <> "" Then
sonTarih = DateAdd("yyyy", 25, Me.TextBox14) >= Date
yil = DateDiff("yyyy", sonTarih, Date)
If yil < 25 Then
yilFark = yil - 25
sonTarih = DateAdd("yyyy", yil, sonTarih)
ayFark = DateDiff("m", sonTarih, Date)
sonTarih = DateAdd("m", ayFark, sonTarih)
gunFark = DateDiff("d", sonTarih, Date)
TextBox14.BackColor = vbRed
ElseIf Me.TextBox14 <> "" Then
sonTarih = DateAdd("yyyy", 65, Me.TextBox14) <= Date
yil = DateDiff("yyyy", sonTarih, Date)
If yil > 65 Then
yilFark = yil - 65
sonTarih = DateAdd("yyyy", yil, sonTarih)
ayFark = DateDiff("m", sonTarih, Date)
sonTarih = DateAdd("m", ayFark, sonTarih)
gunFark = DateDiff("d", sonTarih, Date)
Else
Me.TextBox14.BackColor = vbGreen
End If
End If
End If
böyle bir mantığı uygulamaya çalıştım ama tabi ki yanlış yaptım.
sadece yazdığım kodu kullanmanız yeterliydi
if dateadd("y", 25, tarih)>= date and dateadd("y", 65, tarih)<date then label="uygun" else label="uygun değil"
tabiki en başa boş dolu kontrolünü eklemeniz gerekiyor ama onun dışında yukardaki kod yeterli yıl/ay/gün kontrolüne gerek yoktu