تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يتم معرفة التاريخ المدخل اذا كان اكبر من تاريخ الجهاز
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
كيف يتم معرفة التاريخ المدخل على شكل dd/MM/yyyy اذا كان اكبر من تاريخ الحالي للجهاز يعطي رسالة ولا ينتقل من مربع ادخال التاريخ حاولت ايجاد الحل ولكن لم اجد حل صحيح مائه في المائة
الله المستعان
الرد }}}}
تم الشكر بواسطة:
#2
-
مثال بسيط على السريع....
كود :
If Date.ParseExact("28/04/2014", "d/M/yyyy", Globalization.CultureInfo.InvariantCulture) > Date.Today Then
    MsgBox("التاريخ المدخل أكبر من تاريخ اليوم")
End If
الرد }}}}
تم الشكر بواسطة: البراء
#3
اخ vbnet بارك الله فيك على المثال البسيط التاريخ الاول 28/04/2014 التنسيق له dd/MM/yyyy نفس ما اريد ولكن تاريخ اليوم الحالي Date.Today التنسيق له MM/dd/yyyy كيف يتم تنسيق تاريخ اليوم الحالي بنفس التاريخ الاول المدخل بارك الله فيك
الله المستعان
الرد }}}}
تم الشكر بواسطة:
#4
(27-04-14, 12:46 PM)vbnet كتب : -
مثال بسيط على السريع....
كود :
If Date.ParseExact("28/04/2014", "d/M/yyyy", Globalization.CultureInfo.InvariantCulture) > Date.Today Then
    MsgBox("التاريخ المدخل أكبر من تاريخ اليوم")
End If
أخ vbnet بارك الله فيك تنسيق التاريخ الاول كما اريد dd/MM/yyyy اما تنسيق تاريخ اليوم الحالي Date.Today تنسيقه يظهر MM/dd/yyyy ولتوضيح اكثر يتم ادخال التاريخ عن طريق مربع ادخال MaskedTextBox بتنسيق dd/MM/yyyy هكذا ـــــــــــــ/ــــ/ــــ اذا قملنا بادخال التاريخ التالي 21/04/2014 تظهر رسالة خظأ كما في الصورة المرفقة


الملفات المرفقة صورة/صور
   
الله المستعان
الرد }}}}
تم الشكر بواسطة:
#5
هل من مجيب
الله المستعان
الرد }}}}
تم الشكر بواسطة:
#6
-
جرب التالي
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim provider As Globalization.CultureInfo = Globalization.CultureInfo.InvariantCulture

    Dim d1 As Date = Date.ParseExact(Date.Now.ToString("d/M/yyyy", provider), "d/M/yyyy", provider)
    Dim d2 As Date = Date.ParseExact("15/5/2014", "d/M/yyyy", provider)

    If d2 > d1 Then
        MsgBox("التاريخ المدخل أكبر من تاريخ اليوم")
    End If

End Sub
الرد }}}}
تم الشكر بواسطة:
#7
يمكنك استخدام الدوال التالية

كود :
Friend Function CompareDates(fisrtDate As DateTime, seconddate As DateTime) As Boolean
        ' Check if fisrt Date is greater than the second date
        If DateTime.Compare(fisrtDate, seconddate) > 0 Then
            Return True
        End If
        Return False
    End Function

    ' compare the current date time
    Friend Function CompareDates(dateToCheck As DateTime) As Boolean
        Return CompareDates(dateToCheck, DateTime.Now)
    End Function

و يتم استخدام الدوال من داخل الكود بالشكل التالي

كود :
Dim futureDate As DateTime = New DateTime(2022, 12, 12)
        Dim Isgreater As Boolean = CompareDates(futureDate)
        If Isgreater Then
            ' do something with code
        End If

يمكنك ‘ادة كتابة الدوال ل تتناسب مع طريقة ادخال التواريخ أو الوقت
الرد }}}}
تم الشكر بواسطة: Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 119 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  البحث بجزء من التاريخ أسامة السالمي 6 91 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 611 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  اريد كود تنسيق التاريخ bidaya 10 227 06-02-17, 03:08 AM
آخر رد: bidaya
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 174 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] معرفة الاسماء في الجداول الثلاثة المكترره محمد بوقزاحة 1 57 30-01-17, 11:54 AM
آخر رد: مساعدة
  كيفية معرفة اذا كانت form لا تزال مفتوحة ؟ noway 2 83 29-01-17, 04:12 PM
آخر رد: ابو ليلى
  منع تغير التاريخ و الوقت noway 5 122 25-01-17, 03:00 PM
آخر رد: مساعدة
  كود بخذف الاسماء القديمة التي تجاوز عمرها اكثر من 90 يوم من تاريخ اليوم الدريساوي 3 101 20-01-17, 11:07 PM
آخر رد: الدريساوي
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 139 15-01-17, 06:11 PM
آخر رد: khodor1985

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


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