تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في طرح وقتين
#1
السلام عليكم ورحمة الله وبركاته
هذه اول مشاركة لي بهذا القسم وانا جديد على 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")
جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

تستطيع عمل ذلك عن طريق ال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()) 
الرد }}}
تم الشكر بواسطة:
#3
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]
ويكون في حدث التايمر
ارجوا ان يكون كلامي واضح
جزاكم الله خيرا


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله
لو افترضنا بأن الوقت الحالي موجود ضمن 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")
الرد }}}
تم الشكر بواسطة:
#5
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:
المرجوا تصحيح الكود Smile
[ATTACH=CONFIG]1492[/ATTACH]
جزاك الله خيرا


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: seif mohamed
#6
السلام عليكم
أخي الكريم
سبب الخطأ أنك غيرت في فورمات الوقت
ضع نفس الفورمات ليعمل الكود
أي ضع الرمز (\) قبل كل :
كود :
TextBox3.Text = Difference.ToString("hh\:mm\:ss")
بالتوفيق
الرد }}}
تم الشكر بواسطة:
#7
إقتباس :
sooriaty03[INDENT]السلام عليكم
أخي الكريم
سبب الخطأ أنك غيرت في فورمات الوقت
ضع نفس الفورمات ليعمل الكود
أي ضع الرمز (\) قبل كل :
كود:

TextBox3.Text = Difference.ToString("hh\:mm\Confuseds")
بالتوفيق[/INDENT]
السلام عليكم
لقد قمت بوضع الرمز ونفس الخطأ :confused:
جزاك الله خيرا
[ATTACH=CONFIG]1498[/ATTACH]
ارجوا ان لا اكون اثقلت عليك


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#8
تفضل ياغالي هذا كود بديل عن السابق
كود :
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]
الرد }}}
تم الشكر بواسطة:
#9
جزاك الله خيرا
اخيرا اشتغل الكود
تستاهل احلى تقييم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم