[sooriaty03]

تفضل أخي الكريم هذا هو الكود بالنسبة للتاريخ الهجري
أما بالنسبة للميلادي فالسنة ستكون 365

كود :

If Val(DateTime.Now.Subtract(CDate(TextBox1.Text)).ToString("dd")) > 354 Then
            TextBox1.BackColor = Color.Red
        End If