09-01-21, 01:33 AM
(آخر تعديل لهذه المشاركة : 09-01-21, 01:36 AM {2} بواسطة جيولوجي مبتدئ.)
لسلام عليكم ورحمة الله وبركاته
شكرا شكرا من الأعماق تم المطلوب بنجاح مئة بالمئة بعد تعديل بسيط بالكود والفضل لك أخي أشرف بعد الله لقد أزلت عني هماً كبيراً وأشكر لك صبرك على كثرة رسائلي وهذا يبين كريم أخلاقك
شكرا شكرا من الأعماق تم المطلوب بنجاح مئة بالمئة بعد تعديل بسيط بالكود والفضل لك أخي أشرف بعد الله لقد أزلت عني هماً كبيراً وأشكر لك صبرك على كثرة رسائلي وهذا يبين كريم أخلاقك
( Dim t1 As New TimeSpan(Split(TextBox41.Text, ":")(0), Split(TextBox41.Text, ":")(1), 0
( Dim t2 As New TimeSpan(Split(TextBox21.Text, ":")(0), Split(TextBox21.Text, ":")(1), 0
Dim Difference3 As TimeSpan = t1 - t2
هذا هو التعديل
TextBox42.Text = Difference3.ToString
(TextBox42.Text = Fix(Difference3.TotalHours) & ":" & Strings.Right("0" & Difference3.Minutes, 2
لك جزيل الشكر
دمت بود(09-01-21, 12:32 AM)سعود كتب :شكرا لك أخ سعود تم الحل بمساعدة الأستاذ أشرف وتشرفت بردكإقتباس :الكود يعمل بشكل صحيح بشرط أن كل تكست بوكس يكون الوقت فيه أقل من 24:00 ساعة ولكن إذا كان الوقت أكثر من 24:00 يظهر رسالة خطأاخواني الكرام
اسمحو لي بهذه ا لمشاركة.
الساعة لا يمكن ان تصل 24 آخرها 23
اذا اردت التعامل مع وقت اكثر من 24 ساعة استخدم الايام ايضا.
لو ترفع مثال بسيط حتى نعدل على المثال بصمت فان عرفنا الكود الصحيح ابلغناك وان لا سكتنا
