منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود تحويل عدد الايام الى شهر او سنة فيه خطا؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود تحويل عدد الايام الى شهر او سنة فيه خطا؟ (/showthread.php?tid=30283)

كود تحويل عدد الايام الى شهر او سنة فيه خطا؟ - سعود - 14-07-19

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

الزر الوحيد الايسر فيه الكود التالي مع العلم اني حولت تاريخ النظام للمحلي اقصد السعودي او الهجري

PHP كود :
       Dim dnow As Date = CDate(TxtNowDate.Text)
        Dim dold As Date = CDate(TxtOldestDate.Text)

        Dim dyears As Long = DateDiff(DateInterval.Year, dold, dnow)
        Dim dmonths As Long = DateDiff(DateInterval.Month, dold, dnow)
        Dim ddays As Long = DateDiff(DateInterval.Day, dold, dnow)



        Fyears.Text = dyears
        TxtDays.Text = ddays
        Fmonths.Text = dmonths 

والجانب الايمن من الازرار من اعلى لاسفل الاكواد التالية:
PHP كود :
 Private Sub Cmd_Convert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Convert.Click
        Txtyears.Text = Int(Val(TxtDays.Text) / 360)
        Txtmonths.Text = Int(Val(TxtDays.Text) / 30)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Tdays.Text = Int(Val(Fyears.Text)) * 360
        Tmonths.Text = Int(Val(Fyears.Text)) * 12
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FmTdys.Text = Int(Val(Fmonths.Text) * 30)
        FmToy.Text = Int(Val(Fmonths.Text) / 12)
    End Sub 


السؤال ماهو سر اختلاف نتيجة الاكواد؟
اليس المفروض النتيجة واحدة؟
بارك الله فيكم و شكر لكم.


RE: كود تحويل عدد الايام الى شهر او سنة فيه خطا؟ - ابراهيم ايبو - 14-07-19

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

اخي المحترم سعود

المعلوم ان السنة الهجرية هي 354 يوما وانت استخدمتها 360

الشهر القمري هو بمعدل 29.5 يوم وانت افترضته 30

فمثلا 



 501.6= 14798/29.5  

493.2=30 / 14798 



وقس على ذلك بقية الحساب

دمت بخير