+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22094)
سؤال فى الفرق بين وقتين - nabil.1710 - 13-10-17
السلام عليكم اخوانى
لدي 2 textbox و بهم وقتين الاول ( 10:30:30 م ) و الثانى ( 11:45:30 م )
اريد كود يظهر لى الفرق بين الوقتين داخل textbox ثالث مع العلم انى اريد الناتج على صورة رقم و ليس ساعة هكذا ( 1.25 )
مع العلم انى اعمل على فيجوال استوديو 2012
و شكرا لكم
RE: سؤال فى الفرق بين وقتين - Amir_Alzubidy - 13-10-17
السلام عليكم ورحمة الله وبركاته
تابع هذا الموضوع
الفرق بين وقتين
RE: سؤال فى الفرق بين وقتين - nabil.1710 - 14-10-17
(13-10-17, 03:56 PM)Amir_alzubidy كتب : السلام عليكم ورحمة الله وبركاتهشكرا لك اخى هذه المشاركة قد استخدمتها من قبل و ما اريده غير ذلك
تابع هذا الموضوع
الفرق بين وقتين
اريد الناتج يظهر كرقم صحيح او رقم عشرى كهذا مثلا ( 1.5 )
RE: سؤال فى الفرق بين وقتين - a.ahmed - 14-10-17
PHP كود :
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
MsgBox(value)
RE: سؤال فى الفرق بين وقتين - nabil.1710 - 14-10-17
(14-10-17, 03:01 AM)a.ahmed كتب :PHP كود :
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
MsgBox(value)
شكرا لك اخ احمد هذا هو المطلوب بالفعل
RE: سؤال فى الفرق بين وقتين - ابراهيم ايبو - 09-01-18
السلام عليكم هذه اول مشاركة لي في هذا المنتدى ارجو ان يكون هذا التعديل في محل الرضا والقبول
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: