منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اعزائي الأعضاء

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

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

المهم

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

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

و 3 LABEL

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

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

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

و شكرا Smile

اين الردووووووود

قد تجد طريقة اخرى لاستخدام طرح الوقت وكذلك استخدام ادوات اخرى بعد النظر للمثال التالي:
البحث عن تاريخ بعد س يوم

السلام عليكم ورحمة الله
لو ذاكرت الكود ده هيفيدك جدا حتي فيما بعد

كود :

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

أولا انا اعتذر الف الف الف الف الف مرة على الأنقطاع الأنترنت كان مقطوع امبارح و حتى الآن

بالنسبة للأخيين لكم جزيل الشكر و جاري دراسة الأكواد و سأرى ما احتاج ، شكرا Smile

اخي الكريم هل يمكننب معرفة الخطأ في هذا الكود ؟

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

boty

boty

سعود

ali.alfoly

boty

boty

boty