+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=7279)
مساعدة في طرح وقتين - 3amo - 07-12-12
السلام عليكم ورحمة الله وبركاته
هذه اول مشاركة لي بهذا القسم وانا جديد على vb.net :o
المرجوا تعديل هذه الدالة لطرح وقتين وهي للاخ السندبااد معمولة بالفجوال بيسك6 لكي تتناسب مع vb.net
كود :
Function TimeDiff(STime As Date, ETime As Date) As Date
'طرح وقتين
Dim TimeSecs, Hrs As Double
'الحصول على الثواني
TimeSecs = DateDiff("S", STime, ETime)
'اذاكان الفرق-قم بإضافة24ساعة
'التمرير سيكون بقيمة الثواني
If TimeSecs <> Abs(TimeSecs) Then: TimeSecs = TimeSecs + 86400
'اذا كان هنالك ساعات فسنحصل عليها من هنا
If TimeSecs >= 3600 Then: Hrs = Fix(TimeSecs / 3600)
'نستخدم الدالةTimeSerial
'لإرجاع الوقت بالساعة والدقيقة والثانية المحددة
TimeDiff = TimeSerial(Hrs, 0, TimeSecs - (Hrs * 3600))
End Function
'طريفة استخدام الدالة
Text9.Text = Format(Time, "hh:mm:ss")
Text5 = Format(TimeDiff(Text9, Text1), "hh:mm:ss")مساعدة في طرح وقتين - Sajad - 07-12-12
السلام عليكم
تستطيع عمل ذلك عن طريق الTimeSpan هكذا:
PHP كود :
Dim t1 As DateTime = DateTime.Parse("10/12/2012")
Dim t2 As DateTime = DateTime.Parse("12/12/2012")
Dim t As TimeSpan = t2 - t1
MessageBox.Show(t.ToString())
مساعدة في طرح وقتين - 3amo - 07-12-12
sajad كتب :السلام عليكمجزاك الله خير الجزاء
تستطيع عمل ذلك عن طريق الTimeSpan هكذا:
PHP كود :
Dim t1 As DateTime = DateTime.Parse("10/12/2012")
Dim t2 As DateTime = DateTime.Parse("12/12/2012")
Dim t As TimeSpan = t2 - t1
MessageBox.Show(t.ToString())
ولاكني اقصد طرح التوقيت الحالي للجهاز من التوقيت الموجود في textbox كما بالصورة
[ATTACH=CONFIG]1488[/ATTACH]
ويكون في حدث التايمر
ارجوا ان يكون كلامي واضح
جزاكم الله خيرا
مساعدة في طرح وقتين - sooriaty03 - 08-12-12
السلام عليكم ورحمة الله
لو افترضنا بأن الوقت الحالي موجود ضمن TextBox2
وأن الوقت المطلوب المقارنة به موجود في Textbox1
فهذا هو الكود المطلوب لعملية المقارنة
كود :
Dim Difference As TimeSpan = TimeSpan.Parse(TextBox1.Text) - TimeSpan.Parse(TextBox2.Text)
If TimeSpan.Parse(TextBox1.Text) < TimeSpan.Parse(TextBox2.Text) Then
Difference = TimeSpan.Parse("24") + Difference
End If
TextBox3.Text = Difference.ToString("hh\:mm\:ss")مساعدة في طرح وقتين - 3amo - 08-12-12
sooriaty03 كتب :السلام عليكم ورحمة الله
لو افترضنا بأن الوقت الحالي موجود ضمن TextBox2
وأن الوقت المطلوب المقارنة به موجود في Textbox1
فهذا هو الكود المطلوب لعملية المقارنة
كود :
Dim Difference As TimeSpan = TimeSpan.Parse(TextBox1.Text) - TimeSpan.Parse(TextBox2.Text)
If TimeSpan.Parse(TextBox1.Text) < TimeSpan.Parse(TextBox2.Text) Then
Difference = TimeSpan.Parse("24") + Difference
End If
TextBox3.Text = Difference.ToString("hh\:mm\:ss")
لقد قمت بتجربة الكود ولاكن يعطيني خطأ:confused:
المرجوا تصحيح الكود
[ATTACH=CONFIG]1492[/ATTACH]
جزاك الله خيرا
مساعدة في طرح وقتين - sooriaty03 - 09-12-12
السلام عليكم
أخي الكريم
سبب الخطأ أنك غيرت في فورمات الوقت
ضع نفس الفورمات ليعمل الكود
أي ضع الرمز (\) قبل كل :
كود :
TextBox3.Text = Difference.ToString("hh\:mm\:ss")مساعدة في طرح وقتين - 3amo - 09-12-12
إقتباس :sooriaty03[INDENT]السلام عليكم
أخي الكريم
سبب الخطأ أنك غيرت في فورمات الوقت
ضع نفس الفورمات ليعمل الكود
أي ضع الرمز (\) قبل كل :
كود:
TextBox3.Text = Difference.ToString("hh\:mm\s")
بالتوفيق[/INDENT]
السلام عليكم
لقد قمت بوضع الرمز ونفس الخطأ :confused:جزاك الله خيرا
[ATTACH=CONFIG]1498[/ATTACH]
ارجوا ان لا اكون اثقلت عليك
مساعدة في طرح وقتين - sooriaty03 - 09-12-12
تفضل ياغالي هذا كود بديل عن السابق
كود :
Dim Difference As TimeSpan = TimeSpan.Parse(TextBox1.Text) - TimeSpan.Parse(TextBox2.Text)
If TimeSpan.Parse(TextBox1.Text) < TimeSpan.Parse(TextBox2.Text) Then
Difference = TimeSpan.Parse("24") + Difference
End If
[COLOR="#FF0000"] TextBox3.Text = Strings.Right("0" & Difference.Hours, 2) & ":" & Strings.Right("0" & Difference.Minutes, 2) & ":" & Strings.Right("0" & Difference.Seconds, 2)
[/COLOR]مساعدة في طرح وقتين - 3amo - 09-12-12
جزاك الله خيرا
اخيرا اشتغل الكود
تستاهل احلى تقييم