تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تحويل عدد الايام الى شهر او سنة فيه خطا؟
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

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

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

 
       Dim dyears As Long DateDiff(DateInterval.Yeardolddnow)
 
       Dim dmonths As Long DateDiff(DateInterval.Monthdolddnow)
 
       Dim ddays As Long DateDiff(DateInterval.Daydolddnow)



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

والجانب الايمن من الازرار من اعلى لاسفل الاكواد التالية:
PHP كود :
 Private Sub Cmd_Convert_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button2.Click
        FmTdys
.Text Int(Val(Fmonths.Text) * 30)
        FmToy.Text Int(Val(Fmonths.Text) / 12)
    End Sub 


السؤال ماهو سر اختلاف نتيجة الاكواد؟
اليس المفروض النتيجة واحدة؟
بارك الله فيكم و شكر لكم.
الرد
تم الشكر بواسطة: حريف برمجة , ابو روضة
#2
السلام عليكم ورحمة الله وبركاته

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

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

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

فمثلا 



 501.6= 14798/29.5  

493.2=30 / 14798 



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

دمت بخير
الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم