السلام عليكم ورحمة الله وبركاته
عملت برنامج للصادر والوارد وعند وصولي لجزء أرشفة الجداول واجهت مشكلة في التسمية، حيث أنني اجعل البرنامج يغير اسم الجدول القديم بإضافة دالة السنة الماضية للاسم فيكون كالتالي:
oldtable = sader & year(date())-1
والنتيجة تظهر لي مختلفة في كل مرة أنفذ فيها الأمر، فمرة بتاريخ هجري ومرة تظهر بتاريخ ميلادي، مثلا
sader2007
sader1428
علماً بأنني قد غيرت ظهورالتاريخ من الإعدادات ليكون بالهجري فتعاملنا كله بالهجري
فما الحل؟
وجزاكم الله خيرا
يبدوا أنه يتم تغيير التاريخ من إعدادات الجهاز أو أن البرنامج يعمل على أجهزة مختلفة الإعدادات لذلك اتبع الطريقة التالية
عرف متغير لحفظ السنة كما يلي
Dim DateYear As String
تحويل إعدادات التاريخ إلى الهجري كما يلي
Calendar = vbCalHijri
على فكرة هذا الكود لا يؤثر على اعدادات الجهاز الأساسية الموجودة في لوحة التحكم
ثم السطر التالي
DateYear = "oldtable" & Year(Date)
ويكون الكود كاملاً كما يلي
Dim DateYear As String Calendar = vbCalHijri DateYear = "oldtable" & Year(Date)
جزاك الله خيراً.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…