Modul:Convertdate

-- Testing with the Debug console:
-- frame = {} 
-- frame.args = {"April 2014"}
-- =p.str2num(frame)
 
local p = {}
-- Months in English and Swedish
months =  {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"}
manader = {"januari", "februari", "mars", "april", "maj", "juni", "juli", "augusti", "september", "oktober", "november", "december"}
 
function p.num2str(frame)
   local arguments = frame.args
   local datestr = arguments[1]
   -- Assume ISO 8601 format
   local year,month,day = string.match(datestr,"(%d%d%d%d)-(%d?%d)-(%d?%d)")
   if not year then
      year,month = string.match(datestr,"(%d%d%d%d)-(%d?%d)")
      if not year then
         -- No clue what the input is. Return unchanged.
         return datestr
      end
   end    
   month = tonumber(month)
   if month < 1 or month > 12 then
      -- Not a month. Return unchanged.
      return datestr
   end
   datestr = manader[month] .. " " .. year
   if day then
      datestr = day .. " " .. datestr
   end
   return datestr
end
 
function p.str2num(frame)
   local year = 0
   local arguments = frame.args
   local datestr = arguments[1]
   -- Search for matching month
   local s = string.match(datestr, "%a+")
   for i = 1, (#months-1) do
      if s == months[i] or s == manader[i] then
         -- Also need the year
         year = string.match(datestr, "%d%d%d%d")
         if year then
            -- OK, replace it
            day = string.match(datestr, "%d%d? ")
            -- Fix leading zero
            if i > 9 then
               mon = i
            else
               mon = "0" .. i
            end
            datestr = year .. "-" .. mon
            if day then
               if tonumber(day) < 10 then
                  day = "0" .. day
               end
               datestr = datestr .. "-" .. day
            end
         end
      end	   
   end
   return datestr
end
 
return p