+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (https://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (https://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (https://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ (/showthread.php?tid=42081)
كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ - Microformt - 04-08-22
الاحوه الكرام
السلام عليكم ورحمة وبركاته
كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟
نامل المساعدة وجزكم الله خيراً
RE: كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ - Taha Okla - 04-08-22
وعليكم السلام ورحمة الله وبركاته
استخدم الكود ..
كود :
If Year(Text1.Text) <= Year(Now) Then
MsgBox "يا حباب حد ع الباب بيقول لك" & vbNewLine & "سجل سنة أكبر من السنة الحالية", vbExclamation, "تذكير"
Text1.SetFocus
Exit Sub
End IfRE: كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ - Microformt - 04-08-22
(04-08-22, 09:01 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
استخدم الكود ..
كود :If Year(Text1.Text) <= Year(Now) Then
MsgBox "يا حباب حد ع الباب بيقول لك" & vbNewLine & "سجل سنة أكبر من السنة الحالية", vbExclamation, "تذكير"
Text1.SetFocus
Exit Sub
End If
جزك الله خيرا