السلام عليكم ورحمة الله وبركاته ،،،
عند استخدام الكود الآتي :-
CDate("29/2/1431")
سينتج عن هذا التعبير خطأ ، لأن التاريخ الميلادي شهر (2) يحوي على (28) يوما فقط ... فما هو الحل؟؟
مشكلة في استخدام دالة التاريخ على التاريخ الهجري ....
أرجو ممن لديه حل للمشكلة أن يتفضل به :)
تفضل
VBA.Calendar = vbCalHijri
msgbox CDate("29/2/1431")((ان الحق والباطل لا يُعرَفان بأقدار الرجال, إعرف الحق تعرف أهله))
شكرا لك أخي الكريم ... فهذا جزء من الحل ... ولكن ،،،
عندما يكون الإدخال في التكست بوكس يحتمل إدخال التاريخ الهجري أو الميلادي ، وبالكود نتعرف على نوع التاريخ ، فإن المشكلة تقع حين يكون التقويم بالميلادي ، والإدخال بالهجري 29 / 2 ، فقبل اختبار نوع التاريخ هل هو هجري أم ميلادي
فإننا نحتاج إلى التأكد من الصيغة المدخلة بأنها صيغة تاريخ ، وللتأكد لا بد من استخدام دالة التاريخ ، وهي تتأثر بنوع التقويم المختار ، ومن هنا تقع الأخطاء ... أي قبل تحديد نوع التاريخ
أرجو أن أكون قد وفقت في شرح المشكلة بشكل دقيق :)