Editing Module:Sandbox/0xF8E8/yearsago

functions = {}

function functions.nyearsago(frame)
	current_year = tonumber(os.date("%Y"))
	given_year = tonumber(frame.args[1])
	connector = false
	capitalize = false
	
	if frame.args[2] == "true" then connector = true end
    if frame.args[3] == "true" then capitalize = true end
    
	return "<span title=\"" .. given_year .. "\">" .. spelledout(current_year - given_year, connector, capitalize) .. " years ago</span>"
end

function functions.rand(frame)
	math.randomseed(os.time())
	num = math.random(1, tonumber(frame.args[1]))
	return num
end

function basicdigits(input_number)

		digits = {"", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"}
		teens = {"", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"}
		tens = {"", "ten", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"}
		function oneto99(inp)
	    	if inp == 0 then
	    		return ""
			elseif inp < 10 then 
				return digits[inp + 1]
			elseif inp <= 90 and inp % 10 == 0 then
			    return tens[inp / 10 + 1] 
            elseif inp > 9 and inp < 20 then
			    return teens[inp - 9] 
			elseif inp > 19 and inp < 100 then
				hyphen = "-"
				if inp % 10 == 0 then
					hyphen = ""
				end
				return tens[(inp - (inp % 10))/10 + 1] .. hyphen .. digits[inp % 10 + 1] 
			end
	    end
	 
        if input_number < 100 then return oneto99(input_number)
        	
		elseif input_number > 99 and input_number < 1000 then
			return digits[(input_number - (input_number % 100)) / 100 +1] .. " hundred" .. connector .. oneto99(input_number % 100) 
		end
end

function spelledout(given_number, connect, capitalize) 
	connector = " "
	full_string = ""
 
    if tonumber(given_number) == 0 then return "zero" end
 
    if connect == true then 
		connector = " and "
	end
	
	suffixes = {"", "thousand", "million", "billion", "trillion", "quadrillion", "quintillion", "sextillion", "septillion", "octillion", "nonillion", "decillion"}
    
    j = 1
    
	for i=string.len(given_number), 1, -3 do
		strend = i - 2
		if strend < 1 then
			strend  = 1
		end
		spacing = ""
		if full_string ~= "" then spacing = " " end
	    full_string = basicdigits(tonumber(string.sub(given_number, strend, i))) .. " " .. suffixes[j] .. spacing .. full_string
	    j = j + 1
    end    
		
	if capitalize == true then
		return full_string:gsub("^%l", string.upper)
	else
		return full_string
	end
end

function functions.spelledout(frame)
	return spelledout(frame.args[1])
end

function functions.loopnum(frame)
	str = ""
	for i=1, tonumber(frame.args[1]) do
		str = str .. "\n\n" .. spelledout(i)
	end
	return str
end

return functions