Lua 阳历转阴历

原创已于 2022-01-20 11:41:08 修改 · 881 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#lua #开发语言

于 2021-10-22 16:05:33 首次发布

这段代码展示了使用 Lua 编程语言实现公历到农历转换的算法。它包括了农历日期的计算，涉及到天干地支、属相等信息。通过位运算判断农历月份的天数，以及处理闰年和非闰年的转换。此外，还包含了对代码的一个小错误的修正。

就很恶心，为什么不提供一个接口直接转呢，@莱鲁萨利姆斯奇，是不是看我们工作很闲 = =*

有需要的小伙伴直接拿走

--天干名称
local nLTianGan = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"}
--地支名称
local nLDiZhi = {"子","丑","寅","卯","辰","巳","午", "未","申","酉","戌","亥"}
--属相名称
local nLShuXing = {"鼠","牛","虎","兔","龙","蛇", "马","羊","猴","鸡","狗","猪"}
--农历日期名
local nLDayName =
{
    "*","初一","初二","初三","初四","初五",
    "初六","初七","初八","初九","初十",
    "十一","十二","十三","十四","十五",
    "十六","十七","十八","十九","二十",
    "廿一","廿二","廿三","廿四","廿五",
    "廿六","廿七","廿八","廿九","三十"
}
--农历月份名
local nLMonName = {"*","正","二","三","四","五","六", "七","八","九","十","十一","腊"}

local DaysToMonth366={ 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 }

local DaysToMonth365= { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 }

local DateLunarInfo= { { 0, 2, 19, 19168 }, { 0, 2, 8, 42352 }, { 5, 1, 29, 21096 }, { 0, 2, 16, 53856 }, { 0, 2, 4, 55632 }, { 4, 1, 25, 27304 },
                       { 0, 2, 13, 22176 }, { 0, 2, 2, 39632 }, { 2, 1, 22, 19176 }, { 0, 2, 10, 19168 }, { 6, 1, 30, 42200 }, { 0, 2, 18, 42192 },
                       { 0, 2, 6, 53840 }, { 5, 1, 26, 54568 }, { 0, 2, 14, 46400 }, { 0, 2, 3, 54944 }, { 2, 1, 23, 38608 }, { 0, 2, 11, 38320 },
                       { 7, 2, 1, 18872 }, { 0, 2, 20, 18800 }, { 0, 2, 8, 42160 }, { 5, 1, 28, 45656 }, { 0, 2, 16, 27216 }, { 0, 2, 5, 27968 },
                       { 4, 1, 24, 44456 }, { 0, 2, 13, 11104 }, { 0, 2, 2, 38256 }, { 2, 1, 23, 18808 }, { 0, 2, 10, 18800 }, { 6, 1, 30, 25776 },
                       { 0, 2, 17, 54432 }, { 0, 2, 6, 59984 }, { 5, 1, 26, 27976 }, { 0, 2, 14, 23248 }, { 0, 2, 4, 11104 }, { 3, 1, 24, 37744 },
                       { 0, 2, 11, 37600 }, { 7, 1, 31, 51560 }, { 0, 2, 19, 51536 }, { 0, 2, 8, 54432 }, { 6, 1, 27, 55888 }, { 0, 2, 15, 46416 },
                       { 0, 2, 5, 22176 }, { 4, 1, 25, 43736 }, { 0, 2, 13, 9680 }, { 0, 2, 2, 37584 }, { 2, 1, 22, 51544 }, { 0, 2, 10, 43344 },
                       { 7, 1, 29, 46248 }, { 0, 2, 17, 27808 }, { 0, 2, 6, 46416 }, { 5, 1, 27, 21928 }, { 0, 2, 14, 19872 }, { 0, 2, 3, 42416 },
                       { 3, 1, 24, 21176 }, { 0, 2, 12, 21168 }, { 8, 1, 31, 43344 }, { 0, 2, 18, 59728 }, { 0, 2, 8, 27296 }, { 6, 1, 28, 44368 },
                       { 0, 2, 15, 43856 }, { 0, 2, 5, 19296 }, { 4, 1, 25, 42352 }, { 0, 2, 13, 42352 }, { 0, 2, 2, 21088 }, { 3, 1, 21, 59696 },
                       { 0, 2, 9, 55632 }, { 7, 1, 30, 23208 }, { 0, 2, 17, 22176 }, { 0, 2, 6, 38608 }, { 5, 1, 27, 19176 }, { 0, 2, 15, 19152 },
                       { 0, 2, 3, 42192 }, { 4, 1, 23, 53864 }, { 0, 2, 11, 53840 }, { 8, 1, 31, 54568 }, { 0, 2, 18, 46400 }, { 0, 2, 7, 46752 },
                       { 6, 1, 28, 38608 }, { 0, 2, 16, 38320 }, { 0, 2, 5, 18864 }, { 4, 1, 25, 42168 }, { 0, 2, 13, 42160 }, { 10, 2, 2, 45656 },
                       { 0, 2, 20, 27216 }, { 0, 2, 9, 27968 }, { 6, 1, 29, 44448 }, { 0, 2, 17, 43872 }, { 0, 2, 6, 38256 }, { 5, 1, 27, 18808 },
                       { 0, 2, 15, 18800 }, { 0, 2, 4, 25776 }, { 3, 1, 23, 27216 }, { 0, 2, 10, 59984 }, { 8, 1, 31, 27432 }, { 0, 2, 19, 23232 },
                       { 0, 2, 7, 43872 }, { 5, 1, 28, 37736 }, { 0, 2, 16, 37600 }, { 0, 2, 5, 51552 }, { 4, 1, 24, 54440 }, { 0, 2, 12, 54432 },
                       { 0, 2, 1, 55888 }, { 2, 1, 22, 23208 }, { 0, 2, 9, 22176 }, { 7, 1, 29, 43736 }, { 0, 2, 18, 9680 }, { 0, 2, 7, 37584 },
                       { 5, 1, 26, 51544 }, { 0, 2, 14, 43344 }, { 0, 2, 3, 46240 }, { 4, 1, 23, 46416 }, { 0, 2, 10, 44368 }, { 9, 1, 31, 21928 },
                       { 0, 2, 19, 19360 }, { 0, 2, 8, 42416 }, { 6, 1, 28, 21176 }, { 0, 2, 16, 21168 }, { 0, 2, 5, 43312 }, { 4, 1, 25, 29864 },
                       { 0, 2, 12, 27296 }, { 0, 2, 1, 44368 }, { 2, 1, 22, 19880 }, { 0, 2, 10, 19296 }, { 6, 1, 29, 42352 }, { 0, 2, 17, 42208 },
                       { 0, 2, 6, 53856 }, { 5, 1, 26, 59696 }, { 0, 2, 13, 54576 }, { 0, 2, 3, 23200 }, { 3, 1, 23, 27472 }, { 0, 2, 11, 38608 },
                       { 11, 1, 31, 19176 }, { 0, 2, 19, 19152 }, { 0, 2, 8, 42192 }, { 6, 1, 28, 53848 }, { 0, 2, 15, 53840 }, { 0, 2, 4, 54560 },
                       { 5, 1, 24, 55968 }, { 0, 2, 12, 46496 }, { 0, 2, 1, 22224 }, { 2, 1, 22, 19160 }, { 0, 2, 10, 18864 }, { 7, 1, 30, 42168 },
                       { 0, 2, 17, 42160 }, { 0, 2, 6, 43600 }, { 5, 1, 26, 46376 }, { 0, 2, 14, 27936 }, { 0, 2, 2, 44448 }, { 3, 1, 23, 21936 },
                       { 0, 2, 11, 37744 }, { 8, 2, 1, 18808 }, { 0, 2, 19, 18800 }, { 0, 2, 8, 25776 }, { 6, 1, 28, 27216 }, { 0, 2, 15, 59984 },
                       { 0, 2, 4, 27424 }, { 4, 1, 24, 43872 }, { 0, 2, 12, 43744 }, { 0, 2, 2, 37600 }, { 3, 1, 21, 51568 }, { 0, 2, 9, 51552 },
                       { 7, 1, 29, 54440 }, { 0, 2, 17, 54432 }, { 0, 2, 5, 55888 }, { 5, 1, 26, 23208 }, { 0, 2, 14, 22176 }, { 0, 2, 3, 42704 },
                       { 4, 1, 23, 21224 }, { 0, 2, 11, 21200 }, { 8, 1, 31, 43352 }, { 0, 2, 19, 43344 }, { 0, 2, 7, 46240 }, { 6, 1, 27, 46416 },
                       { 0, 2, 15, 44368 }, { 0, 2, 5, 21920 }, { 4, 1, 24, 42448 }, { 0, 2, 12, 42416 }, { 0, 2, 2, 21168 }, { 3, 1, 22, 43320 },
                       { 0, 2, 9, 26928 }, { 7, 1, 29, 29336 }, { 0, 2, 17, 27296 }, { 0, 2, 6, 44368 }, { 5, 1, 26, 19880 }, { 0, 2, 14, 19296 },
                       { 0, 2, 3, 42352 }, { 4, 1, 24, 21104 }, { 0, 2, 10, 53856 }, { 8, 1, 30, 59696 }, { 0, 2, 18, 54560 }, { 0, 2, 7, 55968 },
                       { 6, 1, 27, 27472 }, { 0, 2, 15, 22224 }, { 0, 2, 5, 19168 }, { 4, 1, 25, 42216 }, { 0, 2, 12, 42192 }, { 0, 2, 1, 53584 },
                       { 2, 1, 21, 55592 }, { 0, 2, 9, 54560 } }


--转为二进制
function DecimalismToBinary(num)
    local str = ""
    local tmp = num
    while (tmp > 0) do
        if (tmp % 2 == 1) then
            str = str .. "1"
        else
            str = str .. "0"
        end

        tmp = math.modf(tmp / 2)
    end
    str = string.reverse(str)
    return str
end
--先补齐两个数字的二进制位数
function MakeSameLength(num1, num2)
    local str1 = DecimalismToBinary(num1)
    local str2 = DecimalismToBinary(num2)

    local len1 = string.len(str1)
    local len2 = string.len(str2)

    local len = 0
    local x = 0

    if (len1 > len2) then
        x = len1 - len2
        for i = 1, x do
            str2 = "0" .. str2
        end
        len = len1
    elseif (len2 > len1) then
        x = len2 - len1
        for i = 1, x do
            str1 = "0" .. str1
        end
        len = len2
    end
    len = len1
    return str1, str2, len
end
--按位与
function BitAnd(num1, num2)
    local str1, str2, len = MakeSameLength(num1, num2)
    local rtmp = ""

    for i = 1, len do
        local st1 = tonumber(string.sub(str1, i, i))
        local st2 = tonumber(string.sub(str2, i, i))


        if(st1 == 0) then
            rtmp = rtmp .. "0"
        else
            if (st2 ~= 0) then
                rtmp = rtmp .. "1"
            else
                rtmp = rtmp .. "0"
            end
        end
    end
    return tonumber(rtmp,2)
end
--阳历转阴历
function GregorianToLunar(nSYear,nSMonth,nSDate)
    local nLYear,nLMonth,nLDay
    local i=(GregorianIsLeapYear(nSYear) == 1 and DaysToMonth366[nSMonth ] or DaysToMonth365[nSMonth ])+nSDate

    nLYear = nSYear
    local yearInfo
    local yearInfo2
    if nLYear == 2101 then
        nLYear = nLYear -1
        i=i+(GregorianIsLeapYear(nLYear) == 1 and 366 or 365)
        yearInfo=GetYearInfo(nLYear,1)
        yearInfo2=GetYearInfo(nLYear,2)
    else
        yearInfo=GetYearInfo(nLYear,1)
        yearInfo2=GetYearInfo(nLYear,2)
        if nSMonth <yearInfo or (nSMonth == yearInfo and nSDate < yearInfo2) then
            nLYear=nLYear-1
            i=i+(self:GregorianIsLeapYear(nLYear) == 1 and 366 or 365)
            yearInfo=GetYearInfo(nLYear,1)
            yearInfo2=GetYearInfo(nLYear,2)
        end
    end
    i=i-DaysToMonth365[yearInfo]
    i=i-yearInfo2+1
    local num=32768
    local yearInfo3=GetYearInfo(nLYear,3)
    local num2=(BitAnd(yearInfo3,num)) ~= 0 and 30 or 29
    nLMonth=1
    while(i>num2) do
        i=i-num2
        nLMonth=nLMonth+1
        num=num /2
        num2=(BitAnd(yearInfo3,num)) ~= 0 and 30 or 29
    end
    nLDay=i

    --生成农历天干、地支、属相 ==> nongLi--
    local shuXing = nLShuXing[(((nLYear - 4) % 60) % 12) + 1]
    local nongLi = shuXing .. '(' .. nLTianGan[(((nLYear - 4) % 60) % 10)+1] .. nLDiZhi[(((nLYear - 4) % 60) % 12) + 1] .. ')年'
    local nLDate
    --生成农历月、日 ==> nLDate--*/
    if nLMonth < 1 then
        nLDate =  "闰" .. nLMonName[(-1 * nLMonth) + 1]
    else
        nLDate = nLMonName[nLMonth+1]
    end

    nLDate =  nongLi..nLDate .. "月" .. nLDayName[nLDay+1]

    return nLYear,nLMonth,nLDay,nLDate
end

--公历闰年
function GregorianIsLeapYear(year)
    if year%4 ~= 0 then
        return 0
    end
    if year%100 ~= 0 then
        return  1
    end
    if year%400 == 0 then
        return 1
    end
    return 0
end

function GetYearInfo(lunarYear,index)
    if lunarYear < 1901 or lunarYear > 2100 then
        return
    end
    lunarYear=lunarYear+1
    index=index+1
    return DateLunarInfo[lunarYear- 1901][index]
end

local nLYear,nLMonth,nLDay,nLDate =GregorianToLunar(2021,10,21)
print(nLDate)
print(nLYear,nLMonth,nLDay)

local nLYear,nLMonth,nLDay,nLDate =GregorianToLunar(2022,10,21)
print(nLDate)
print(nLYear,nLMonth,nLDay)

2022/1/20 补充bug

替换调上面的代码

function GregorianToLunar(nSYear,nSMonth,nSDate)
    local nLYear,nLMonth
    local i=(GregorianIsLeapYear(nSYear) == 1 and DaysToMonth366[nSMonth] or DaysToMonth365[nSMonth])+nSDate
    nLYear = nSYear
    local yearInfo
    local yearInfo2
    if nLYear == 2101 then
        nLYear = nLYear -1
        i=i+(GregorianIsLeapYear(nLYear) == 1 and 366 or 365)
        yearInfo=GetYearInfo(nLYear,1)
        yearInfo2=GetYearInfo(nLYear,2)
    else
        yearInfo=GetYearInfo(nLYear,1)
        yearInfo2=GetYearInfo(nLYear,2)
        if nSMonth <yearInfo or (nSMonth == yearInfo and nSDate < yearInfo2) then
            nLYear=nLYear-1
            i=i+(GregorianIsLeapYear(nLYear) == 1 and 366 or 365)
            yearInfo=GetYearInfo(nLYear,1)
            yearInfo2=GetYearInfo(nLYear,2)
        end
    end
    i=i-DaysToMonth365[yearInfo]
    i=i-yearInfo2+1
    local num=32768
    local yearInfo3=GetYearInfo(nLYear,3)
    local num2=(tonumber(BitAnd(yearInfo3,num),2))~=0 and 30 or 29
    nLMonth=1
    while(i>num2) do
        i=i-num2
        nLMonth=nLMonth+1
		if nLMonth > 12 then
			nLMonth=12
		end
        num=num /2
        num2=(tonumber(BitAnd(yearInfo3,num),2)) ~= 0 and 30 or 29
    end
    return i,nLMonth
end

有问题欢迎指正谢谢

参考文献：

农历打印：cLua 公历转农历算法 - 绿色冰点 - 博客园

位运算：lua中的位运算_小不点的博客-优快云博客_lua 位运算