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

 كود PHP:
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
-------------------------------