الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفيه طرح وقتين

بدأه incomplete في 30 مارس 2009 · 4 رد · 845 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اريد السوال عن كيفيه طرح وقتين

جربت استخدام الداله datdiff

لكن مثلا عندما تطرح الوقت 12 مثلا من الساعه 1

يطلع الناتج -11

وهذا خطا

اريده مثلا عندما يطرح الوقتين يقول لي ان الوقت المشتغرق ساعه واحده 1

علما بان الوقتين ماخوذين من masked textbox

ولكم جزيل الشكر

اخوكم incomplete

#2

استخدم الدالة DateDiff لعملية الطرح انظر الرابط من أجل المساعدة DateDiff

تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 31 مارس 2009 في 11:35

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#3

Or 

 

[color= #000000; font-weight: bold;]Private [color= #000000; font-weight: bold;]Function GetDiffDate[color= #009900;](Byval STDT[color= #339933;], Byval ENDDT [color= #009900;]) [color= #b1b100;]As TimeSpan

Dim StartDateTime [color= #b1b100;]As DateTime [color= #339933;]= DirectCast[color= #009900;]( STDT[color= #339933;], DateTime [color= #009900;])

Dim EndDateTime [color= #b1b100;]As DateTime [color= #339933;]= DirectCast[color= #009900;]( ENDDT[color= #339933;], DateTime [color= #009900;])

[color= #b1b100;]Return EndDateTime[color= #339933;].Subtract[color= #009900;]( StartDateTime [color= #009900;])

[color= #990000;]End [color= #000000; font-weight: bold;]Function

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#4

مشكور اخ محمد سامر والاخ بشار على رديكما

لكنني قد لاقيت ما اريده

وهذا ما اريده

Dim date1 As DateTime = DateTime.Parse(MaskedTextBox1.Text)

Dim date2 As DateTime = DateTime.Parse(MaskedTextBox2.Text)

Dim time1 As DateTime = DateTime.Parse(MaskedTextBox3.Text)

Dim time2 As DateTime = DateTime.Parse(MaskedTextBox4.Text)

date1 = date1.Add(time1.TimeOfDay)

date2 = date2.Add(time2.TimeOfDay)

Dim difference As TimeSpan = date2.Subtract(date1)

MessageBox.Show(Int(difference.TotalHours) & "." & difference.Minutes.ToString("00"))

وجزيتم خيرا

#5

بســم الله الـرحمــن الرحيــم

كنت ابحث عنها انا ايضا جزاكم الله خيرا

مواضيع مشابهة