Skip to main content

AccessTr.neT


Textbox Yaş Aralığında İse Uyar

Textbox Yaş Aralığında İse Uyar

Çözüldü #1
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?
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Dateadd fonksiyonunu kullanabilirsiniz
if dateadd("y", 25, tarih)>= date and dateadd("y", 65, tarih)<date then
benzeri bir kod işinize yarayabilir
Cevapla
#3
Üstad Teşekkür ederim.
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
Rica ederim
İyi çalışmalar
Cevapla
#5
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.
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task