تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] هل يمكن ان اشترط على المستخدم إدخال التاريخ الهجري فقط والعكس ؟
#1
Question 
الاخوه الكرام
 السلام عليكم ورحمة وبركاته
هل يمكن ان اشترط على المستخدم إدخال التاريخ الهجري فقط  والعكس ؟
 هل يمكن  ان اشترط على المستخدم إدخال التاريخ بشكل التالي
 مثال (1425/10/10)
بحث إذا ادخل التاريخ بشكل التالي او اي شكل اخر
مثال (1111/11/11)  او شكل اخرى
يظهر لمستخدم ان المدخل خطاء
نامل من الله المساعده والله يحفظكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
كود :
If IsDate(Text1) = False Then
MsgBox "لقد أدخلت تاريخ خاطئ الرجاء قم بإدخال تاريخ صحيح", vbCritical, "التاريخ"
Text1.SetFocus
Exit Sub
End If
الرد }}}
تم الشكر بواسطة: awidan76
#3
وعليكم السلام ورحمة الله وبركاته

مرفق أداتين للتاريخ الهجري بأمكانك استخدامهما في البرنامج

مثال




الملفات بالمرفقات مع برنامج تسجيل ملفات DLL و OCX



الملفات المرفقة
.zip   hijri.zip (الحجم : 80.2 ك ب / التحميلات : 468)
الرد }}}
تم الشكر بواسطة: awidan76
#4
(15-10-15, 08:29 PM)administrator كتب :
وعليكم السلام ورحمة الله وبركاته

مرفق أداتين للتاريخ الهجري بأمكانك استخدامهما في البرنامج

مثال




الملفات بالمرفقات مع برنامج تسجيل ملفات DLL و OCX

هناك مشكلة بالملف . . . . !!!!!
الرد }}}
تم الشكر بواسطة:
#5
ماهي المشكلة ؟؟
الرد }}}
تم الشكر بواسطة:
#6
أهلا أخي الكريم , بالنسبه لتحديد ما اذا كان التاريخ هجري او ميلاي فعلى حسب نوع التاريخ مثلا لو كان تاريخ ميلاد تستطيع تحديد نطاق السنين مثلا أصغر سنه للهجري ممكنه مثلا 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
الرد }}}
#7
(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

اخي العزيز : احمد  حفظه الله
 السلام عليكم ورحمة وبركاته
 رائع وجميل جداً  ولكم مني فائق الاحترام والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#8
تستطيع ذلك لكن مع ذكر كل رقم في مربع نص والتلاعب بالحدود لتبين انه حقل نص واحد ثم تذكر الشروط لكل مربع نص ... ارجو ان اكون قد افدتكم ...
الرد }}}
تم الشكر بواسطة:
#9
شكرا لكم اخواني على هذا المرفق وجزاكم الله خيرا جاري التجربه

(15-10-15, 08:29 PM)administrator كتب :
وعليكم السلام ورحمة الله وبركاته

مرفق أداتين للتاريخ الهجري بأمكانك استخدامهما في البرنامج

مثال




الملفات بالمرفقات مع برنامج تسجيل ملفات DLL و OCX

اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف يمكن برمجة عدد السجلات واستعراض السجلات بشرط رقم الموظف ؟ Microformt 3 183 09-01-24, 01:05 AM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء اسم البرنامج من النافدة هذه وضعة في textbox ؟ Microformt 1 152 02-01-24, 10:06 PM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء هذه الدالة وضعها تحت زر الامر ؟ Microformt 1 164 31-12-23, 11:52 PM
آخر رد: Taha Okla
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 380 19-11-23, 10:49 PM
آخر رد: Microformt
Question [vb6.0] هل هناك ادوات جديده يمكن استخدمها في تصميم برنامجي بدل ادوات فجوال البيسك ؟ Microformt 0 219 21-10-23, 07:34 PM
آخر رد: Microformt
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 287 14-10-23, 08:18 PM
آخر رد: princeofislam
  [سؤال] صيغة التاريخ Abdellah 4 487 09-07-23, 04:22 AM
آخر رد: Abdellah
Question [vb6.0] كيف اشترط على المستخدم ان تتكون كلمة السر من احرف كبيره وارقام ورموز ؟ Microformt 1 299 07-07-23, 08:26 AM
آخر رد: Taha Okla
Question [vb6.0] هل من احد لدية خبره في الخوارزميات التواريخ الهجري ؟؟ Microformt 5 1,473 10-06-23, 12:33 PM
آخر رد: اسلام الكبابى
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 368 20-03-23, 08:33 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم