وحدة:HijriDate

يمكن إنشاء صفحة توثيق الوحدة في وحدة:HijriDate/شرح

local p = {}

local months = {
	"محرم",
	"صفر",
	"ربيع الأول",
	"ربيع الآخر",
	"جمادى الأولى",
	"جمادى الآخرة",
	"رجب",
	"شعبان",
	"رمضان",
	"شوال",
	"ذو القعدة",
	"ذو الحجة"
}

-- Julian Day from Gregorian
local function gregorian_to_jd(y, m, d)
	if m <= 2 then
		y = y - 1
		m = m + 12
	end
	local A = math.floor(y / 100)
	local B = 2 - A + math.floor(A / 4)
	return math.floor(365.25 * (y + 4716))
		+ math.floor(30.6001 * (m + 1))
		+ d + B - 1524
end

-- Hijri calculation (Tabular Islamic calendar)
local function jd_to_hijri(jd)
	jd = math.floor(jd) + 0.5
	local days = jd - 1948439.5
	local year = math.floor((30 * days + 10646) / 10631)
	local month = math.min(
		12,
		math.ceil((days - 29 - hijri_to_jd(year, 1, 1)) / 29.5) + 1
	)
	local day = math.floor(jd - hijri_to_jd(year, month, 1)) + 1
	return day, month, year
end

function hijri_to_jd(y, m, d)
	return d
		+ math.ceil(29.5 * (m - 1))
		+ (y - 1) * 354
		+ math.floor((3 + 11 * y) / 30)
		+ 1948439.5
end

function p.today()
	local t = os.date("*t")
	local jd = gregorian_to_jd(t.year, t.month, t.day)
	local d, m, y = jd_to_hijri(jd)

	if d < 1 or d > 30 then
		return "خطأ في حساب التاريخ الهجري"
	end

	return d .. " " .. months[m] .. " " .. y .. " هـ"
end

return p