تقييم الموضوع :
  • 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]
جزاك الله خيرا


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#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 مساعدة nabilelk 1 36 أمس, 11:48 PM
آخر رد: ابراهيم النعيمي
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 97 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 58 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 67 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 304 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 84 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 90 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 85 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

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


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