08-02-17, 12:06 AM
السلام عليكم
جرب الكود التالي
والله الموفق
جرب الكود التالي
كود :
If Format(DTPicker1, "dd/MM/yyyy") > Format(Date, "dd/MM/yyyy") Then
Text1 = 0
Else
Text1 = 1
End If
