تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طرح وقت من وقت
#1
اعزائي الأعضاء

لدي برنامج منبه

به العديد من الأدوات

المهم

لدي متغير اسمه d2 من نوع Date

و فيه مخزن الوقت الذي يفترض ان يضرب فيه المنبه

و 3 LABEL

واحد للساعة و واحد للدقيقة و واحد للثانية

مكل ما اريد هو ..

ان يظهر في ال labels ال 3 كم تبقى من الوقت ليرن المنبه بالساعات و الدقائق و اثواني

و شكرا Smile
الرد }}}}
تم الشكر بواسطة:
#2
اين الردووووووود
الرد }}}}
تم الشكر بواسطة:
#3
قد تجد طريقة اخرى لاستخدام طرح الوقت وكذلك استخدام ادوات اخرى بعد النظر للمثال التالي:
البحث عن تاريخ بعد س يوم
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
أظن أني فقدت من يسمع صوتي ويلبي طلبي ويسمع شكواي في المنتدى
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: alims , kslawy , Easy4ever
#4
السلام عليكم ورحمة الله
لو ذاكرت الكود ده هيفيدك جدا حتي فيما بعد


كود :
Try

            Dim StartDate As DateTime = "11/05/2012"

            Dim EndDate As DateTime = "08/03/2011"


            'الناتج بالايام
            MsgBox(DateDiff("d", EndDate, StartDate))

            'الناتج بالاشهر
            MsgBox(DateDiff("m", EndDate, StartDate))

            'الناتج بالسنين
            MsgBox(DateDiff("yyyy", EndDate, StartDate))

            '================================================

            ' TimeSpan عملية طرح تاريخين باستخدام

            Dim Time_Span As TimeSpan = StartDate.Subtract(EndDate)

            'ناتج الطرح بالايام
            MsgBox(Time_Span.Days)

            '=========================

            'اعادة تحويل ناتج الطرح الى ايام واشهر وسنين وساعات ودقائق وثواني

            Dim Date_Time As DateTime = Date.MinValue + Time_Span

            MsgBox((Date_Time.Year - 1).ToString("Yare  00") & (Date_Time.Month - 1).ToString("  Monthe  00") & (Date_Time.Day - 1).ToString("  Day  00") & vbCrLf & (Date_Time.Hour).ToString("  Hour  00") & (Date_Time.Minute).ToString("  Min 00") & (Date_Time.Second).ToString("  Sec  00"))

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
الرد }}}}
تم الشكر بواسطة: Easy4ever
#5
أولا انا اعتذر الف الف الف الف الف مرة على الأنقطاع الأنترنت كان مقطوع امبارح و حتى الآن

بالنسبة للأخيين لكم جزيل الشكر و جاري دراسة الأكواد و سأرى ما احتاج ، شكرا Smile
الرد }}}}
تم الشكر بواسطة:
#6
اخي الكريم هل يمكننب معرفة الخطأ في هذا الكود ؟


PHP كود :
Dim dt As DateTime time.Text
            Dim dt2 
As DateTime TimeOfDay
            Dim subs 
As TimeSpan dt2.Subtract(dt)

            
Lhou.Text subs.Hours
            Lmin
.Text subs.Minutes
            Lsec
.Text subs.Seconds 

فيعطيني 0 في اللابلز الثلاثة Sad
الرد }}}}
تم الشكر بواسطة:
#7
PHP كود :
Dim dt As DateTime time.Text
            Dim dt2 
As DateTime TimeOfDay
            Dim subs 
As TimeSpan dt2.Subtract(dt)
            
Dim dt3 As DateTime Date.MinValue subs


            
'' ''Lhou.Text subs.Hours
            
'' ''Lmin.Text subs.Minutes


            
'' ''Lsec.Text subs.Seconds
            
' MsgBox((dt3.Year - 1).ToString("Yare  00") & (dt3.Month - 1).ToString("  Monthe  00") & (dt3.Day - 1).ToString("  Day  00") & vbCrLf & (dt3.Hour).ToString("  Hour  00") & (dt3.Minute).ToString("  Min 00") & (dt3.Second).ToString("  Sec  00")) 



جربت كل هذه الأكواد و النتيجة لا تزال 0
الرد }}}}
تم الشكر بواسطة:


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


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