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
السؤال ماهو سر اختلاف نتيجة الاكواد؟
اليس المفروض النتيجة واحدة؟
بارك الله فيكم و شكر لكم.