09-01-18, 01:11 AM
السلام عليكم هذه اول مشاركة لي في هذا المنتدى ارجو ان يكون هذا التعديل في محل الرضا والقبول
PHP كود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim time1 As Date = Date.Parse(Me.TextBox1.Text)
Dim time2 As Date = Date.Parse(Me.TextBox2.Text)
Dim value As Single = (time2 - time1).TotalHours
Dim H, M As Single
H = (value) \ 1 ' عدد الساعات فسمة صحيحة
M = (value) Mod 1
TextBox3.Text = H
M = (M * 60) \ 1 'عدد الدقائق فسمة صحيحة بعد تحويلها الى النظام الستيني
TextBox4.Text = M
End Sub:
PHP كود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim time1 As Date = Date.Parse(Me.TextBox1.Text)
Dim time2 As Date = Date.Parse(Me.TextBox2.Text)
Dim value As Single = (time2 - time1).TotalHours
Dim H, M As Single
H = (value) \ 1 ' عدد الساعات فسمة صحيحة
M = (value) Mod 1
TextBox3.Text = H
M = (M * 60) \ 1 'عدد الدقائق فسمة صحيحة بعد تحويلها الى النظام الستيني
TextBox4.Text = M
End Sub:
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
