ازاى اجيب السن من تاريخ الميلاد والعكس

السلام عليكم ورحمة الله وبركاته

أخي الكريم يمكنك الإستفادة من الفئة TimeSpan على الشكل التالي:

Dim BDate As Date = #1/1/1990#
Dim TS As TimeSpan
TS = (Today - BDate)
MsgBox(Math.Round(TS.TotalDays / 365, 1))

السلام عليكم ورحمة الله وبركاته

انا جربت الكود بس حطيت مكان التاريخ datetimepicker 

وهو اشتغل بس بيحسب على السنين  بس يعنى بيجيب فرق السنين فقط 

ولو فيه فرق شهور او ايام مبيجبوش بيطلع النتيجه 0