Redigerer Modul:Årstall

local avrund = require('Modul:Math')._round

-- Inneholder PAGENAME/første argument «f.Kr.»?
local function fkr(s)
	if string.match(s, " f.Kr.") then
		return (tonumber(string.sub(s, 1, -7))*-1)+1
	else
		return tonumber(s)
	end
end

-- Før eller etter Kristus
local function foeretter(a, b, c, d)
	if fkr(a) + b <= 0 then
		return ((fkr(a) + b)*-1)+1 .. c
	else
		return fkr(a) + b .. d
	end
end

-- Finner ut hvilket århundre det er
local function aarhundre(s)
	if avrund(s, -2) >= tonumber(s) then
		return avrund(s, -2)/100
	else
		return (avrund(s, -2)/100)+1
	end
end

-- Finner ut hvilket tiår det er
local function tiaar(s)
	if avrund(s, -1) <= tonumber(s) then
		return avrund(s, -1)
	else
		return avrund(s, -1)-10
	end
end
	
local p = {}

-- Printer år
function p.aar(frame)
	return foeretter(frame.args[1], frame.args[2], " f.Kr.", "")
end

-- Printer århundre
function p.aarhundre(frame)
	local args = frame.args
	if string.sub(args[1], -17, -1) == ". århundre f.Kr." then
		return foeretter(fkr(string.sub(args[1], 1, -17) .. " f.Kr."), args[2], ". århundre f.Kr.", ". århundre")
	elseif string.sub(args[1], -11, -1) == ". århundre" then
		return foeretter(fkr(string.sub(args[1], 1, -11)), args[2], ". århundre f.Kr.", ". århundre")
	else
		return foeretter(aarhundre(fkr(args[1])), args[2], ". århundre f.Kr.", ". århundre")
	end
end

-- Printer tiår
function p.tiaar(frame)
	if tonumber(frame.args[1]) + tonumber(frame.args[2])*10 < 0 then
		return tiaar(frame.args[1]) + (tonumber(frame.args[2])+1)*-10 .. "-årene f.Kr."
	else
		return tiaar(frame.args[1]) + tonumber(frame.args[2])*10 .. "-årene"
	end
end

return p