الاخوه الكرام
السلام عليكم ورحمة وبركاته
هل يمكن ان اشترط على المستخدم إدخال التاريخ الهجري فقط والعكس ؟
هل يمكن ان اشترط على المستخدم إدخال التاريخ بشكل التالي
مثال (1425/10/10)
بحث إذا ادخل التاريخ بشكل التالي او اي شكل اخر
مثال (1111/11/11) او شكل اخرى
يظهر لمستخدم ان المدخل خطاء
نامل من الله المساعده والله يحفظكم
أهلا أخي الكريم , بالنسبه لتحديد ما اذا كان التاريخ هجري او ميلاي فعلى حسب نوع التاريخ مثلا لو كان تاريخ ميلاد تستطيع تحديد نطاق السنين مثلا أصغر سنه للهجري ممكنه مثلا 1300 وأكبر سنه تخليها مثلا 1500 أما إذا كان ميلادي مثلا أكبر سنه ممكنه 2050 أو 3000 وأصغر سنه ممكنه 1900 وهكذا على حسب نوع التاريخ تحط النطاق المحتمل :
كود :
If Len(Trim$(Text1.Text)) < 10 Or _
IsNumeric(Left$(Trim$(Text1.Text), 4)) <> True Or _
IsNumeric(Mid$(Trim$(Text1.Text), 6, 2)) <> True Or _
IsNumeric(Right$(Trim$(Text1.Text), 2)) <> True Or _
Mid$(Trim$(Text1.Text), 5, 1) <> "/" Or _
Mid$(Trim$(Text1.Text), 8, 1) <> "/" Then
MsgBox "لابد أن يكون التاريخ بالتنسيق التالي :" & vbNewLine & "YYYY/MM/DD", vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Text1.SetFocus
Exit Sub
End If
If Val(Left$(Trim$(Text1.Text), 4)) > 1500 Or _
Val(Left$(Trim$(Text1.Text), 4)) < 1300 Then
MsgBox "لابد أن يكون التاريخ هجري", vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Text1.SetFocus
Exit Sub
End If
'If Val(Left$(Trim$(Text1.Text), 4)) < 1900 Or _
' Val(Left$(Trim$(Text1.Text), 4)) > 2050 Then
' MsgBox "لابد أن يكون التاريخ ميلادي", vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
' Text1.SetFocus
' Exit Sub
'End If
(15-10-15, 11:03 PM)Ahmed_Mansoor كتب : [ -> ]أهلا أخي الكريم , بالنسبه لتحديد ما اذا كان التاريخ هجري او ميلاي فعلى حسب نوع التاريخ مثلا لو كان تاريخ ميلاد تستطيع تحديد نطاق السنين مثلا أصغر سنه للهجري ممكنه مثلا 1300 وأكبر سنه تخليها مثلا 1500 أما إذا كان ميلادي مثلا أكبر سنه ممكنه 2050 أو 3000 وأصغر سنه ممكنه 1900 وهكذا على حسب نوع التاريخ تحط النطاق المحتمل :
كود :
If Len(Trim$(Text1.Text)) < 10 Or _
IsNumeric(Left$(Trim$(Text1.Text), 4)) <> True Or _
IsNumeric(Mid$(Trim$(Text1.Text), 6, 2)) <> True Or _
IsNumeric(Right$(Trim$(Text1.Text), 2)) <> True Or _
Mid$(Trim$(Text1.Text), 5, 1) <> "/" Or _
Mid$(Trim$(Text1.Text), 8, 1) <> "/" Then
MsgBox "لابد أن يكون التاريخ بالتنسيق التالي :" & vbNewLine & "YYYY/MM/DD", vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Text1.SetFocus
Exit Sub
End If
If Val(Left$(Trim$(Text1.Text), 4)) > 1500 Or _
Val(Left$(Trim$(Text1.Text), 4)) < 1300 Then
MsgBox "لابد أن يكون التاريخ هجري", vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Text1.SetFocus
Exit Sub
End If
'If Val(Left$(Trim$(Text1.Text), 4)) < 1900 Or _
' Val(Left$(Trim$(Text1.Text), 4)) > 2050 Then
' MsgBox "لابد أن يكون التاريخ ميلادي", vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
' Text1.SetFocus
' Exit Sub
'End If
اخي العزيز : احمد حفظه الله
السلام عليكم ورحمة وبركاته
رائع وجميل جداً ولكم مني فائق الاحترام والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
تستطيع ذلك لكن مع ذكر كل رقم في مربع نص والتلاعب بالحدود لتبين انه حقل نص واحد ثم تذكر الشروط لكل مربع نص ... ارجو ان اكون قد افدتكم ...
شكرا لكم اخواني على هذا المرفق وجزاكم الله خيرا جاري التجربه
(15-10-15, 08:29 PM)administrator كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
مرفق أداتين للتاريخ الهجري بأمكانك استخدامهما في البرنامج
مثال
الملفات بالمرفقات مع برنامج تسجيل ملفات DLL و OCX