تقييم الموضوع :
  • 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 ) ضيف كريم