Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Textbox Yaş Aralığında İse Uyar

malatyalı
malatyalı
Excel Cevaplanmış Soruları
12
850

Textbox Yaş Aralığında İse Uyar

#5
malatyalı
Aktif Üye
malatyalı
Bul
Aktif Üye
Adı Soyadı: İl.... YÜ....
Yaşı: 49
Konum: Malatya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 30/10/2023,20:27
Yorumları: 160
Konuları: 37
Kayıt Tarihi: 31/01/2010
Teşekkür Puanı: 0
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Textbox Yaş Aralığında İse Uyar - Yazar: malatyalı - 03/08/2021, 22:17
Task