السلام عليكم ورحمة الله وبركاته .....
عندي تقرير فيه مربع ( التاريخ ) ماخوذ من الجدول .. وهو تاريخ هجري ...
اريد أن أضع مربع آخر باسم ( التاريخ الميلادي ) ليكون فيه التاريخ الميلادي الذي يوافق الهجري في مربع التاريخ .
فكيف أعمل ذلك بطريقة مناسبة ....
شكرا لكم مقدما ...
تفضل أخي الكريم
مرفق دالتين بسيطتين للتحويل من الميلادي للهجري والعكس
...
تم التعديل على ملفك للمطلوب
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
أكرمك الله أخي الكريم
ويمكن تعديل الكود ليعود وضع التقويم كما كان عليه قبل تنفيذ الكود إلى ما يلي:
Function strHijri(dtGregorian As Date) As String cal = VBA.Calendar VBA.Calendar = vbCalHijri strHijri = dtGregorian VBA.Calendar = cal End Function Function strGregorian(dtHijri As String) As String cal = VBA.Calendar VBA.Calendar = vbCalGreg strGregorian = dtHijri VBA.Calendar = cl End Function
حتى لا نغير نوع التقويم في جهاز المستخدم إلى صورة تخدم البرنامج ولا توافق احتياجات المستخدم
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
أحسنت أخي الكريم ...
وكيف إذا أردنا العكس .. بمعنى عندنا تقويم ميلادي في مربع txtdate ونريد اظهار ما يعادله في مربع جديد إلى هجري !؟
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…