استخراج التاريخ الهجري من الايكسل

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

سبق في مواضيع سابقة الحديث عن القيمة الرقمية للتاريخ
بقصد التقاط التاريخ الهجري من الايكسل
اليوم ...جيد لو نجرب بعد تفعيل الاضافة luacom

تجربة هذا الكود لمعرفة إمكانية استخراج التاريخ الهجري أم لا ؟
local excel = luacom.CreateObject("Excel.Application")
local wb = excel.Workbooks:Add()
local ws = wb.Worksheets(1)
--- كتابة التاريخ في الخلية
---a1
ws.Cells(1,1).Value2 = System.GetDate(DATE_FMT_ISO);
---- استنباط السنة من القيمة الرقمية للتاريخ
ws.Cells(1,2).Formula= '=TEXT(a1;"B2yyyy")'
---- استنباط الشهر من القيمة الرقمية
ws.Cells(1,3).Formula= '=TEXT(a1;"B2m")'
--- استنباط اليوم
ws.Cells(1,4).Formula= '=TEXT(a1;"B2d")'
------- الاعلان عن كامل التاريخ في رسالة
Dialog.Message("Notice", ws.Cells(1,2).value2.."--"..ws.Cells(1,3).value2.."--"..ws.Cells(1,4).value2);
--- إغلاق الايكسل بعد العملية
processes = System.EnumerateProcesses();
for n, file_path in pairs(processes) do
local file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == "excel.exe" then
System.TerminateProcess(n);
end
end
-------------------------------

[ميزو فوكس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[أبو يوسف]

جزاك الله خيرا أخانا أبا بلقيس :abc_152:

[azizsoft]

بسم الله الرحمن الرحيم

بارك الله فيكم أستاذ أبو بلقيس ونفع بكم
:abc_022:

[أبو فارس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

شكرا على المرور :abc_138: