[أبو عمر]

لا اعلم ان كانت تجربتي فاشلة ام لسوء حظ
فالتاريخ الهجري لا يكون دقيقا في مثل هذه الاحوال

PHP كود :

Dim dob As DateTime
      dob = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month,           DateTimePicker1.Value.Day)
       Dim tday As TimeSpan = DateTime.Now.Subtract(dob)
       Dim years As Integer, months As Integer, days As Integer
       months = 12 * (DateTime.Now.Year - dob.Year) + (DateTime.Now.Month - dob.Month)
 
       If DateTime.Now.Day < dob.Day Then
           months -= 1
           days = DateTime.DaysInMonth(dob.Year, dob.Month) - dob.Day + DateTime.Now.Day
       Else
           days = DateTime.Now.Day - dob.Day
       End If
       years = Math.Floor(months / 12)
       months -= years * 12
       MsgBox("Your age as on " & Format(Now, "dd-MMM-yyyy") & vbCrLf & years & " Years, " & months & " Months and " & days & " Days") 


وحتى في الميلادي فالامر يحتاج للانتباه للسنوات الكبيسة