Soru tarihi yıl ekleyerek bugün ile karşılaştırma

[sirkülasyon]

Textbox9 daki tarihe 1 yıl ekle

Label15.Caption = Format(DateAdd("yyyy", 1, TextBox9), "dd.mm.yyyy")

bir yıl eklenen tarih bugünün tarihi itibari ile 12 yaşından gün almış ise LABEL15' e "..... kadar gün, ay ya da yıl geçmiş olduğundan geçersizdir" eğer 12 yaşından gün almamış ise de LABEL15' e "Geçerli" ibaresi yazdırmak istiyorum. Rica etsem yardımcı olabilir misiniz?

 

[veyselemre]

    sonTarih = DateAdd("yyyy", 1, TextBox9.Text)
    yil = DateDiff("yyyy", sonTarih, Date)
    If yil < 12 Then
        MsgBox "Geçerlidir..."
    Else
        yilFark = yil - 12
        sonTarih = DateAdd("yyyy", yil, sonTarih)
        ayFark = DateDiff("m", sonTarih, Date)
        sonTarih = DateAdd("m", ayFark, sonTarih)
        gunFark = DateDiff("d", sonTarih, Date)
        MsgBox "İstenilen tarihle fark" & vbCr & _
               "Yil : " & yilFark & vbCr & "Ay : " & ayFark & vbCr & _
               "Gün : " & gunFark & vbCr & _
               "Olduğundan geçersizdir."
    End If

 

[sirkülasyon]

Veysel Abi
Allah Razı olsun. Hakkınızı Helal edin. Saygılarımla