+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Textbox Yaş Aralığında İse Uyar (/konu-textbox-yas-araliginda-ise-uyar.html)
Textbox Yaş Aralığında İse Uyar - malatyalı - 29/07/2021
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?
RE: Textbox Yaş Aralığında İse Uyar - berduş - 29/07/2021
Dateadd fonksiyonunu kullanabilirsiniz
if dateadd("y", 25, tarih)>= date and dateadd("y", 65, tarih)<date thenRE: Textbox Yaş Aralığında İse Uyar - malatyalı - 02/08/2021
Üstad Teşekkür ederim.
RE: Textbox Yaş Aralığında İse Uyar - berduş - 03/08/2021
Rica ederim
İyi çalışmalar
RE: Textbox Yaş Aralığında İse Uyar - malatyalı - 03/08/2021
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 IfRE: Textbox Yaş Aralığında İse Uyar - berduş - 03/08/2021
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"