اخي عمر السلام عليك
ان سؤالك هذا ابسط ما يكون لكن يبدو ان هناك شيء غير واضح في المسأله لذا ارجو ارفاق مثالك حتى يتسنى لنا حل هذه الاشكالية
السلام عليكم
.اخي عمر
هل تاريخ جهازك ميلادي ام هجري
يجب ان يكون ميلادي
اذاكان تاريخجهازك بالميلادي
قم بعمل تنسيق لتاريخ الجهاز بهذه الصورة "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
بارك الله فيكم جميعاً نسال الله بان يجعلكم رفقاء النبي علية الصلاة والسلام في الفردوس الاعلى من الجنة
تمت تجربة كود الاستاذ sendbad100 بنجاح
الشكر موصوول لجميع الاخوة