[aftfm]

اشكر كل من ساهم في هذا الموضوع جزاكم الله خير

كود :

كود :

       Dim Months As Integer = DateDiff("m", DateTimePicker1.Value, Today.Date)
       TextBox1.Text = Months \ 12
       TextBox2.Text = Months Mod 12

و اذا كنت تستخدم التاريخ الميلادى و تريد حساب الفارق بالتاريخ الهجرى 
أضف هذين السطرين قبل الكود السابق 

كود :

كود :

Dim ci As New Globalization.CultureInfo("ar-SA")
       Thread.CurrentThread.CurrentCulture = ci

هذا الكود ادى الغرض ولله الحمد ونتائج ممتازة 
قد اكون لم اسحن استخدام اكواد الاخوة الذين افادونا بمقترحاتهم ولكن اجدد شكري لهم