[السيد الغالي]

اخي عمر السلام عليك
ان سؤالك هذا ابسط ما يكون لكن يبدو ان هناك شيء غير واضح في المسأله لذا ارجو ارفاق مثالك حتى يتسنى لنا حل هذه الاشكالية

[sendbad100]

السلام عليكم
.اخي عمر
هل تاريخ جهازك ميلادي ام هجري

يجب ان يكون ميلادي

---

اذاكان تاريخجهازك بالميلادي

قم بعمل تنسيق لتاريخ الجهاز بهذه الصورة "dd/MM/yyyy"

---

اذا كل ما سبق تمام في جهازك ولا تزال المشكلة 

طبق هذا الكود 

كود :

Private Sub Command1_Click()

Dim a As Long, b As Long

   a = Val(Format(DTPicker1.Value, "yyyyMMdd"))
   b = Val(Format(Date, "yyyyMMdd"))

   If a > b Then
           Text1 = 0
   Else
           Text1 = 1
   End If

End Sub

[Amir_Alzubidy]

اوافق الاخ السيد الغالي و الاخ السندباد في رده الاخير
ان ما زالت المشكلة قائمة حتى الان الرجاء ارفاق المثال لنرى ما بوسعنا فعله .

اهلا و سهلا

[عمر سالم]

بارك الله فيكم جميعاً نسال الله بان يجعلكم رفقاء النبي علية الصلاة والسلام في الفردوس الاعلى من الجنة
تمت تجربة كود الاستاذ sendbad100 بنجاح
الشكر موصوول لجميع الاخوة