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

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

ايام الثانوية العامة كانت علامتي قريبة من صفر في مادة الجبر وعلى النقيض في الهندسة (تحير الاساتذة مني وقتها)

 والحمد لله بعد ساعتين من المعادلات الرياضية والبرمجية اكرمني الله ودعواتكم الى حساب فرق العمر الهجري وتحويله الى الميلادي انطلاقا من نتيجة الهجري ولاول مرة في البرمجة تصادفني كتابة ( قيمة القيمة)

اتمنى منكم التجريب والتقصي ان كان هناك خطأ (جل الله في علاه وحد لايخطئ)

هذا كود البوتون احسب

كود :

  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)
       Dim strall As String = (GetDateSpanText(Birtday, datNow))
       MsgBox(Birtday)

       Dim ff() As String = strall.Split("-")
       Txt_ResaulDay.Text = ff(2)
       Txt_ResaulMonth.Text = ff(1)
       Txt_ResaulYear.Text = ff(0)

       Dim kk As Integer = Val(Txt_ResaulYear.Text)
       Dim totDays As Integer = (Convert.ToInt64(kk)) * 11
       Dim yy As Double = (CDbl(totDays \ 365.25)).ToString ' عدد السنين
       Dim MM As Double = (CDbl((totDays - (yy * 365.25)) \ 30.5)).ToString  ' عدد الاشهر
       Dim dd As Double = (CDbl((totDays - (yy * 365.25)) - (MM * 3.5))).ToString
       If yy >= 1 Then
           Txt_ResaulYear.Text = Val(ff(0)) - (yy + 1)
       Else
           Txt_ResaulYear.Text = Val(ff(0)) - 1
       End If
       If MM >= 1 And MM <= 12 Then
           If (Val(ff(1)) - MM) < 0 Then
               Txt_ResaulMonth.Text = 12 + Val(Val(ff(1)) - MM)
           End If
       ElseIf MM = 0 Then
           Txt_ResaulMonth.Text = 11

       Else
           Txt_ResaulMonth.Text = Val(ff(1))
       End If
       If dd >= 1 And dd <= 30.5 Then
           If (Val(ff(2)) - dd) < 0 Then
               Txt_ResaulDay.Text = 30.5 + Val(Val(ff(2)) - dd)
           End If

       Else
           Txt_ResaulDay.Text = Val(ff(2))
       End If
   End Sub