[ابراهيم ايبو]

السلام عليكم
تفضل اخي

كود :

   Dim HijriDTF As New System.Globalization.CultureInfo("ar-SA", False)
   Dim newDays As DateTime = DateTime.Now.ToString("dd MM yyyy", HijriDTF)


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'Txt_DaysA.Text = DateTime.Now.ToString("dd", HijriDTF)
       'TxtMonthsA.Text = DateTime.Now.ToString("MM", HijriDTF)
       'Txt_YearsA.Text = DateTime.Now.ToString("yyyy", HijriDTF)
       
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Birtday As Date = CDate(Txt_BirtDay.Text & "/" & Txt_BirtManth.Text & "/" & Txt_BirtYear.Text)
       newDays As Date = CDate(Txt_DaysA.Text & "/" & TxtMonthsA.Text & "/" & Txt_YearsA.Text)
       Dim strall As String = (GetDateSpanText(Birtday, newDays))
       MsgBox(Birtday)
       Dim ff() = strall.Split("-")
       Txt_ResaulDay.Text = ff(2)
       Txt_ResaulMonth.Text = ff(1)
       Txt_ResaulYear.Text = ff(0)

   End Sub
   Public Function GetDateSpanText(ByVal fromDate As DateTime, Optional ByVal toDate As DateTime = Nothing) As String
       Try

           Dim years As Integer = 0, months As Integer = 0, days As Integer = 0
           If toDate = Nothing Then toDate = DateTime.Now

           Do Until toDate.AddYears(-1) < fromDate
               years += 1
               toDate = toDate.AddYears(-1)
           Loop

           Do Until toDate.AddMonths(-1) < fromDate
               months += 1
               toDate = toDate.AddMonths(-1)
           Loop

           Do Until toDate.AddDays(-1) < fromDate
               days += 1
               toDate = toDate.AddDays(-1)
           Loop

           Return (years & " Years " & "-" & months & " Months " & "-" & days & " Days ")
       Catch ex As Exception
           Return "Error"
       End Try
   End Function

اخي فاتتنا نقطة جدا هامة وهي ان الحساب الهجري ينقص عن الميلادي 11 يوم في السنة والبرنامج يحسب الغمر والفرق بالهجري
لذا من الواجب اضافة هذه الايام الى الناتج حتى يصبح حساب العمر حقيقيا بامكانك اضافتها في الحساب