local p = {};
--This function converts nepali date to english date
-- See MOS for date format(Wikipedia:Manual of Style/Dates and numbers)
--The output can be checked by using following code in article page/template page
--{{#invoke:moduleForNepaliDateConverter|returnEnglishDate|nepaiYear=1984|nepaliMonth=6|nepaliDay=21}}-->Retruns full date
--{{#invoke:moduleForNepaliDateConverter|returnEnglishDate|nepaiYear=1984}}-->Retruns years e.g. 2007-2008
function p.returnEnglishDate(frame) -- add a function to p
local n_year = tonumber(frame.args.nepaliYear)
local n_month = tonumber(frame.args.nepaliMonth)
local n_day = tonumber(frame.args.nepaliDay)
--define variables to hold converted date
local e_date
-- when nepali day or month is missing, retrun the year only
-- or when date is out of range(2000-2089 BS), return year only
-- or when there are error in days or months, return year only
local e_year1
local e_year2
if (n_month== nil or n_month>12 or n_day==nil or n_day>32 or n_year < 2000 or n_year > 2089) then
e_year1=n_year-57
e_year2=n_year-56
e_date=n_year .. ' [[Bikram Sambat|BS]] ('.. e_year1 .. '-' .. e_year2 .. ')'
return e_date
end
-- when both month and day is given, and year is in range and return compelte date
--- calculate
e_date=p.nep_to_eng(n_year, n_month, n_day)
return e_date
end
function p.nep_to_eng(yy, mm, dd)
local def_nyy = 2000
local def_nmm = 1
local def_ndd = 1 -- equivalent nepali dates
-- initializate
local total_nDays = 0
local i = 0
local k = 1
local numDay = 0
-- array for nepali calendar
local bs={} --declear array to hold bikram sambat calendar and fill the array
bs[1]={2000, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[2]={2001, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[3]={2002, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[4]={2003, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[5]={2004, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[6]={2005, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[7]={2006, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[8]={2007, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[9]={2008, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 29, 31}
bs[10]={2009, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[11]={2010, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[12]={2011, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[13]={2012, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30}
bs[14]={2013, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[15]={2014, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[16]={2015, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[17]={2016, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30}
bs[18]={2017, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[19]={2018, 31, 32, 31, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[20]={2019, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[21]={2020, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30}
bs[22]={2021, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[23]={2022, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30}
bs[24]={2023, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[25]={2024, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30}
bs[26]={2025, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[27]={2026, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[28]={2027, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[29]={2028, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[30]={2029, 31, 31, 32, 31, 32, 30, 30, 29, 30, 29, 30, 30}
bs[31]={2030, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[32]={2031, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[33]={2032, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[34]={2033, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[35]={2034, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[36]={2035, 30, 32, 31, 32, 31, 31, 29, 30, 30, 29, 29, 31}
bs[37]={2036, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[38]={2037, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[39]={2038, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[40]={2039, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30}
bs[41]={2040, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[42]={2041, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[43]={2042, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[44]={2043, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30}
bs[45]={2044, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[46]={2045, 31, 32, 31, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[47]={2046, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[48]={2047, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30}
bs[49]={2048, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[50]={2049, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30}
bs[51]={2050, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[52]={2051, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30}
bs[53]={2052, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[54]={2053, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30}
bs[55]={2054, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[56]={2055, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[57]={2056, 31, 31, 32, 31, 32, 30, 30, 29, 30, 29, 30, 30}
bs[58]={2057, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[59]={2058, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[60]={2059, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[61]={2060, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[62]={2061, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[63]={2062, 30, 32, 31, 32, 31, 31, 29, 30, 29, 30, 29, 31}
bs[64]={2063, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[65]={2064, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[66]={2065, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[67]={2066, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 29, 31}
bs[68]={2067, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[69]={2068, 31, 31, 32, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[70]={2069, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[71]={2070, 31, 31, 31, 32, 31, 31, 29, 30, 30, 29, 30, 30}
bs[72]={2071, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[73]={2072, 31, 32, 31, 32, 31, 30, 30, 29, 30, 29, 30, 30}
bs[74]={2073, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 31}
bs[75]={2074, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30}
bs[76]={2075, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[77]={2076, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30}
bs[78]={2077, 31, 32, 31, 32, 31, 30, 30, 30, 29, 30, 29, 31}
bs[79]={2078, 31, 31, 31, 32, 31, 31, 30, 29, 30, 29, 30, 30}
bs[80]={2079, 31, 31, 32, 31, 31, 31, 30, 29, 30, 29, 30, 30}
bs[81]={2080, 31, 32, 31, 32, 31, 30, 30, 30, 29, 29, 30, 30}
bs[82]={2081, 31, 31, 32, 32, 31, 30, 30, 30, 29, 30, 30, 30}
bs[83]={2082, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30}
bs[84]={2083, 31, 31, 32, 31, 31, 30, 30, 30, 29, 30, 30, 30}
bs[85]={2084, 31, 31, 32, 31, 31, 30, 30, 30, 29, 30, 30, 30}
bs[86]={2085, 31, 32, 31, 32, 30, 31, 30, 30, 29, 30, 30, 30}
bs[87]={2086, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30}
bs[88]={2087, 31, 31, 32, 31, 31, 31, 30, 30, 29, 30, 30, 30}
bs[89]={2088, 30, 31, 32, 32, 30, 31, 30, 30, 29, 30, 30, 30}
bs[90]={2089, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30}
bs[91]={2090, 30, 32, 31, 32, 31, 30, 30, 30, 29, 30, 30, 30}
-- if additional calander becomes available, please put here
--count total days for upto given year
for i = 0, yy - def_nyy-1 do
for j = 2, 13 do
total_nDays = total_nDays + bs[k][j]
end
k = k + 1
end
--count and add days for the months
for j = 2, mm - 1+1 do
total_nDays = total_nDays + bs[k][j]
end
--count and add total days within the month
total_nDays = total_nDays + dd
aaa= total_nDays
--=======================================
---calculation of equivalent english date--
--========================================
local def_eyy = 1943
local def_emm = 4
local def_edd = 14 - 1 -- 1 Baisakh 2000 BS=14 April , 1943 AD
-- array for english calendar
local month = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} --normal english year
local lmonth = { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} --leap english year
local a = 0 -- to hold days of a month during calculation
local total_eDays = def_edd
local day = 4 - 1
local m = def_emm
local y = def_eyy
while (total_nDays ~= 0)
do
if (p.is_leap_year(y)) then
a = lmonth[m]
else
a = month[m]
end
total_eDays = total_eDays + 1
day = day + 1
if (total_eDays > a) then
m = m + 1
total_eDays = 1
if (m > 12) then
y = y + 1
m = 1
end
end
if (day > 7) then
day = 1
end
total_nDays = total_nDays - 1
end
numDay = day
local monthNameEnglish={'January','February','March','April','May','June','July','August','September','October','November','December'}
local monthNameNepali={'Baisakh','Jesth','Ashad','Shrawan','Bhadra','Ashwin','Kartik','Mangsir','Poush','Magh','Falgun','Chaitra'}
returnVal=total_eDays..' '..monthNameEnglish[m]..' '..y..' ('.. dd ..' '.. monthNameNepali[mm]..' '.. yy..' [[Bikram Sambat|BS]])'
return returnVal
end
function p.is_leap_year(year)
--this function checks if the given year is a leap year or not
local returnVal
local a = tonumber(year)
if math.fmod(a,100) == 0 then
if math.fmod(a,400) == 0 then
returnVal = true
else
returnVal = false
end
else
if math.fmod(a,4)==0 then
returnVal = true
else
returnVal = false
end
end
return returnVal
end
return p --All modules end by returning the variable containing their functions to Wikipedia.
