14-07-19, 07:56 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الزر الوحيد الايسر فيه الكود التالي مع العلم اني حولت تاريخ النظام للمحلي اقصد السعودي او الهجري
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
السؤال ماهو سر اختلاف نتيجة الاكواد؟
اليس المفروض النتيجة واحدة؟
بارك الله فيكم و شكر لكم.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
