模块:Chinese calendar

[创建 | 历史 | 清除缓存]文档页面

此模块没有文档页面。如果你知道此模块的使用方法，请帮助为其创建文档页面。

-- 农历日期转换模块
local p = {}

-- 天干
local HEAVENLY_STEMS = {'甲', '乙', '丙', '丁', '戊', '己', '庚', '辛', '壬', '癸'}
-- 地支
local EARTHLY_BRANCHES = {'子', '丑', '寅', '卯', '辰', '巳', '午', '未', '申', '酉', '戌', '亥'}
-- 月份
local LUNAR_MONTHS = {'正', '二', '三', '四', '五', '六', '七', '八', '九', '十', '冬', '腊'}
-- 日期
local LUNAR_DAYS = {
    '初一', '初二', '初三', '初四', '初五', '初六', '初七', '初八', '初九', '初十',
    '十一', '十二', '十三', '十四', '十五', '十六', '十七', '十八', '十九', '二十',
    '廿一', '廿二', '廿三', '廿四', '廿五', '廿六', '廿七', '廿八', '廿九', '三十'
}

-- 农历数据 (1900-2100)
local LUNAR_INFO = {
    0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,
    0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,
    0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,
    0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,
    0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,
    0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,
    0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
    0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,
    0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,
    0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,
    0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,
    0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,
    0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,
    0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,
    0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0
}

-- 节气数据（每个节气的日期偏移量）
local SOLAR_TERMS_OFFSET = {
    4, 19, 3, 18, 4, 19, 4, 19, 4, 20, 4, 20, 6, 22, 6, 22,
    6, 22, 7, 22, 6, 21, 6, 21
}

-- 节气名称
local SOLAR_TERMS = {
    '小寒', '大寒', '立春', '雨水', '惊蛰', '春分',
    '清明', '谷雨', '立夏', '小满', '芒种', '夏至',
    '小暑', '大暑', '立秋', '处暑', '白露', '秋分',
    '寒露', '霜降', '立冬', '小雪', '大雪', '冬至'
}

-- 检查日期是否合法
local function isValidDate(year, month, day)
    local days = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
    if (year % 4 == 0 and year % 100 ~= 0) or (year % 400 == 0) then
        days[2] = 29
    end
    return day <= days[month]
end

-- 计算指定公历日期是一年中的第几天
local function getDayOfYear(year, month, day)
    local days = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
    if (year % 4 == 0 and year % 100 ~= 0) or (year % 400 == 0) then
        days[2] = 29
    end
    
    local dayOfYear = day
    for i = 1, month - 1 do
        dayOfYear = dayOfYear + days[i]
    end
    return dayOfYear
end

-- 获取某年农历数据中的月份大小信息
local function getMonthSizes(lunarCode)
    local monthSizes = {}
    for i = 1, 12 do
        monthSizes[i] = bit32.extract(lunarCode, 12 - i, 1) == 1 and 30 or 29
    end
    return monthSizes
end

-- 获取闰月信息
local function getLeapMonth(lunarCode)
    return bit32.extract(lunarCode, 12, 4)
end

-- 获取春节日期
local function getSpringFestival(lunarCode)
    local month = bit32.extract(lunarCode, 16, 2) + 1
    local day = bit32.extract(lunarCode, 18, 5)
    return month, day
end

-- 计算节气
local function getSolarTerm(year, month, day)
    local baseYear = 1900
    local baseDay = 6 -- 1900年的小寒基准日
    local yearDays = 365.242 -- 回归年长度
    
    -- 计算与基准年份的差距
    local yearDiff = year - baseYear
    local termIndex = (month - 1) * 2
    
    -- 计算节气理论日期
    local theoreticalDay = math.floor(yearDiff * yearDays + baseDay + SOLAR_TERMS_OFFSET[termIndex + 1])
    
    -- 如果当前日期恰好是节气日期
    if day == theoreticalDay % 31 then
        return SOLAR_TERMS[termIndex + 1]
    end
    
    return nil
end

-- 计算农历日期
function calculateLunarDate(yearCode, year, month, day)
    -- 获取春节日期
    local sfMonth, sfDay = getSpringFestival(yearCode)
    
    -- 计算目标日期和春节的天数差
    local targetDayOfYear = getDayOfYear(year, month, day)
    local springFestivalDayOfYear = getDayOfYear(year, sfMonth, sfDay)
    local dayDiff = targetDayOfYear - springFestivalDayOfYear
    
    -- 如果在春节前，则属于上一个农历年
    if dayDiff < 0 then
        if year > 1900 then
            local prevYearCode = LUNAR_INFO[year - 1900]
            local prevMonthSizes = getMonthSizes(prevYearCode)
            local totalDays = dayDiff + prevMonthSizes[12]
            return 12, totalDays + 1, false, year - 1
        else
            return 12, 30 + dayDiff, false, year - 1
        end
    end
    
    -- 获取当年农历月份大小
    local monthSizes = getMonthSizes(yearCode)
    local leapMonth = getLeapMonth(yearCode)
    
    -- 计算农历月份和日期
    local days = dayDiff
    local lunarMonth = 1
    local isLeapMonth = false
    
    while days >= monthSizes[lunarMonth] do
        days = days - monthSizes[lunarMonth]
        
        if lunarMonth == leapMonth then
            if not isLeapMonth then
                isLeapMonth = true
                if days >= monthSizes[lunarMonth] then
                    days = days - monthSizes[lunarMonth]
                    lunarMonth = lunarMonth + 1
                end
            else
                lunarMonth = lunarMonth + 1
                isLeapMonth = false
            end
        else
            lunarMonth = lunarMonth + 1
        end
        
        if lunarMonth > 12 then
            return 1, days + 1, false, year + 1
        end
    end
    
    return lunarMonth, days + 1, isLeapMonth, year
end

-- 将公历日期转换为农历日期
function p.toLunar(frame)
    -- 获取输入参数
    local date = frame.args[1]
    local showSolarTerm = frame.args.showSolarTerm or false
    
    local year = tonumber(date:sub(1,4))
    local month = tonumber(date:sub(6,7))
    local day = tonumber(date:sub(9,10))
    
    -- 输入范围验证
    if year < 1900 or year > 2100 then
        return '错误：年份超出范围(1900-2100)'
    end
    if month < 1 or month > 12 then
        return '错误：月份无效'
    end
    if not isValidDate(year, month, day) then
        return '错误：日期无效'
    end
    
    -- 计算农历年
    local yearCode = LUNAR_INFO[year - 1900 + 1]
    
    -- 计算农历月份和日期
    local lunarMonth, lunarDay, isLeapMonth, lunarYear = calculateLunarDate(yearCode, year, month, day)
    
    -- 获取天干地支
    local stemIndex = (lunarYear - 4) % 10
    local branchIndex = (lunarYear - 4) % 12
    
    -- 构造输出字符串
    local result = HEAVENLY_STEMS[stemIndex + 1] .. EARTHLY_BRANCHES[branchIndex + 1] .. '年'
    if isLeapMonth then
        result = result .. '闰'
    end
    result = result .. LUNAR_MONTHS[lunarMonth] .. '月' .. LUNAR_DAYS[lunarDay]
    
    -- 如果需要显示节气
    if showSolarTerm then
        local solarTerm = getSolarTerm(year, month, day)
        if solarTerm then
            result = result .. ' （' .. solarTerm .. '）'
        end
    end
    
    return result
end

return p