AccessTr.neT

Bul · 29/07/2021, 19:39

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?

Bul · 29/07/2021, 20:18

Dateadd fonksiyonunu kullanabilirsiniz

if dateadd("y", 25, tarih)>= date and dateadd("y", 65, tarih)<date then

benzeri bir kod işinize yarayabilir

Bul · 02/08/2021, 21:30

Üstad Teşekkür ederim.

Bul · 03/08/2021, 14:46

Rica ederim
İyi çalışmalar

Bul · 03/08/2021, 22:17

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.

Bul · 03/08/2021, 22:29

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

AccessTr.neT

Textbox Yaş Aralığında İse Uyar

Textbox Yaş Aralığında İse Uyar

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri