تقييم الموضوع :
  • 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] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 139 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 102 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 61 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 538 16-05-17, 01:12 AM
آخر رد: salah mansour
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 88 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 103 10-05-17, 11:17 AM
آخر رد: khaled12345
  مساعدة لسه مبتدئ 1 73 10-05-17, 01:18 AM
آخر رد: محمود بكرى
  مساعدة في ربط برنامج بالسكنر zinab ali 3 85 09-05-17, 10:55 PM
آخر رد: mansoor
  طلب مساعدة محمد بن عطية 0 62 05-05-17, 06:38 PM
آخر رد: محمد بن عطية
  محتاج مساعدة في اكمال الكود bidaya 7 224 04-05-17, 05:14 PM
آخر رد: bidaya

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


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