[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