Lua闰年判断：四年一闰的整除组合

local function isLeap(y)
    return (y % 4 == 0 and y % 100 ~= 0)
        or y % 400 == 0
end

local function countLeap(y1, y2)
    local n = 0
    for y = y1, y2 do
        if isLeap(y) then n = n + 1 end
    end
    return n
end
local p = getplayerbyname("cal01")
sendmsg(p, 1, "2000 闰年 " .. tostring(isLeap(2000))
    .. "，1900 闰年 " .. tostring(isLeap(1900)))
sendmsg(p, 1, "2001 到 2100 共 "
    .. countLeap(2001, 2100) .. " 个闰年")