欢迎来到奇葩栖息地！欢迎加入Discord服务器：XfrfHCzfbW。请先至特殊:参数设置验证邮箱后再进行编辑。在特殊:参数设置挑选自己想要使用的小工具！不会编辑？请至这里学习Wikitext语法。

模块:Chinese calendar：修订间差异

来自奇葩栖息地

模块:Chinese calendar (查看源代码)

2025年1月7日 (二) 14:12的版本

删除548字节 、​ 2025年1月7日 (星期二)
//Edit via InPageEdit
无编辑摘要
（//Edit via InPageEdit）
第1行：
local p = {}
 
-- 农历数据表
local function extract(num, pos, len)
local lunarInfo = {
local shifted = math.floor(num / (2 ^ pos))
local result = shifted % (2 ^ len)
return result
end
 
-- 天干
local HEAVENLY_STEMS = { '甲', '乙', '丙', '丁', '戊', '己', '庚', '辛', '壬', '癸' }
-- 地支
local EARTHLY_BRANCHES = { '子', '丑', '寅', '卯', '辰', '巳', '午', '未', '申', '酉', '戌', '亥' }
-- 月份
local LUNAR_MONTHS = { '正', '二', '三', '四', '五', '六', '七', '八', '九', '十', '冬', '腊' }
-- 日期
local LUNAR_DAYS = {
'初一', '初二', '初三', '初四', '初五', '初六', '初七', '初八', '初九', '初十',
'十一', '十二', '十三', '十四', '十五', '十六', '十七', '十八', '十九', '二十',
'廿一', '廿二', '廿三', '廿四', '廿五', '廿六', '廿七', '廿八', '廿九', '三十'
}
 
-- 农历数据 (1900-2100)
local LUNAR_INFO = {
0x04bd8,
0x04ae0,
第31行 ⟶ 第12行：
0x056a0,
0x09ad0,
0x055d2, --1900-1909
0x04ae0,
0x0a5b6,
第41行 ⟶ 第22行：
0x0ada2,
0x095b0,
0x14977, --1910-1919
0x04970,
0x0a4b0,
第51行 ⟶ 第32行：
0x09570,
0x052f2,
0x04970, --1920-1929
0x06566,
0x0d4a0,
第61行 ⟶ 第42行：
0x092e0,
0x1c8d7,
0x0c950, --1930-1939
0x0d4a0,
0x1d8a6,
第71行 ⟶ 第52行：
0x0d2b2,
0x0a950,
0x0b557, --1940-1949
0x06ca0,
0x0b550,
第81行 ⟶ 第62行：
0x0a9a8,
0x0e950,
0x06aa0, --1950-1959
0x0aea6,
0x0ab50,
第91行 ⟶ 第72行：
0x0d950,
0x05b57,
0x056a0, --1960-1969
0x096d0,
0x04dd5,
第101行 ⟶ 第82行：
0x0b540,
0x0b6a0,
0x195a6, --1970-1979
0x095b0,
0x049b0,
第111行 ⟶ 第92行：
0x0af46,
0x0ab60,
0x09570, --1980-1989
0x04af5,
0x04970,
第121行 ⟶ 第102行：
0x0ab60,
0x096d5,
0x092e0, --1990-1999
0x0c960,
0x0d954,
第131行 ⟶ 第112行：
0x025d0,
0x092d0,
0x0cab5, --2000-2009
0x0a950,
0x0b4a0,
第141行 ⟶ 第122行：
0x15176,
0x052b0,
0x0a930, --2010-2019
0x07954,
0x06aa0,
第151行 ⟶ 第132行：
0x0d260,
0x0ea65,
0x0d530, --2020-2029
0x05aa0,
0x076a3,
第161行 ⟶ 第142行：
0x0d250,
0x0d520,
0x0dd45, --2030-2039
0x0b5a0,
0x056d0,
第171行 ⟶ 第152行：
0x1b255,
0x06d20,
0x0ada0, --2040-2049
0x14b63,
0x09370,
第181行 ⟶ 第162行：
0x06b20,
0x1a6c4,
0x0aae0, --2050-2059
0x0a2e0,
0x0d2e3,
第191行 ⟶ 第172行：
0x056a0,
0x0a6d0,
0x055d4, --2060-2069
0x052d0,
0x0a9b8,
第201行 ⟶ 第182行：
0x0aba4,
0x0a5b0,
0x052b0, --2070-2079
0x0b273,
0x06930,
第211行 ⟶ 第192行：
0x0a570,
0x054e4,
0x0d160, --2080-2089
0x0e968,
0x0d520,
第221行 ⟶ 第202行：
0x0a2d0,
0x0d150,
0x0f252, --2090-2099
0x0d520,
}
} --2100
 
-- 天干
-- 检查日期是否合法
local Gan = { "甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸" }
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 Zhi = { "子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥" }
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
local nStr3 = { "正", "二", "三", "四", "五", "六", "七", "八", "九", "十", "冬", "腊" }
for i = 1, month - 1 do
 
dayOfYear = dayOfYear + days[i]
-- 日期
local nStr2 = { "初", "十", "廿", "卅" }
local nStr1 = { "日", "一", "二", "三", "四", "五", "六", "七", "八", "九", "十" }
 
-- 实现位运算函数
local function band(a, b)
local result = 0
local bitval = 1
while a > 0 and b > 0 do
if a % 2 == 1 and b % 2 == 1 then
result = result + bitval
end
bitval = bitval * 2
a = math.floor(a/2)
b = math.floor(b/2)
end
return dayOfYearresult
end
 
local function rshift(a, b)
return math.floor(a / (2^b))
end
 
-- 计算农历闰月月份
local function leapMonth(y)
return extractband(LUNAR_INFOlunarInfo[y - 1900], 0, 40xf)
end
 
-- 计算农历闰月天数
local function leapDays(y)
if leapMonth(y) >~= 0 then
returnif extractband(LUNAR_INFOlunarInfo[y - 1900], 16, 10x10000) >~= 0 and 30 or 29then
return 30
else
return 29
end
end
return 0
end
 
-- 计算农历年天数
local function monthDays(y, m)
if m > 12 or m < 1 then return -1 end
local bit = extract(LUNAR_INFO[y - 1900], 16 - m, 1)
return bit > 0 and 30 or 29
end
 
local function lYearDays(y)
local sum = 348
local infoi = LUNAR_INFO[y - 1900]0x8000
forlocal iidx = 15, 4,y -1 do1900
while i > 0x8 do
local bit = extract(info, i, 1)
if bitband(lunarInfo[idx], >i) ~= 0 then
sum = sum + 1
end
i = rshift(i, 1)
end
return sum + leapDays(y)
end
 
-- 计算农历月份天数
-- 将公历日期转换为农历日期
local function monthDays(y, m)
if m > 12 or m < 1 then return -1 end
if band(lunarInfo[y - 1900], rshift(0x10000, m)) ~= 0 then
return 30
end
return 29
end
 
-- 主要的转换函数
function p.toLunar(frame)
-- 解析输入日期
local date = frame.args[1]
local date = frame.args[1] or frame:getParent().args.date
if not date then return "日期参数错误" end
 
local y, m, d = date:match("^(%d%d%d%d)-(%d%d?)-(%d%d?)$")
-- 输入格式验证
if not date:match('^%y or not m or not d%d%d%d%-%d%d%-%d%d$') then
return '错误："日期格式无效，请使用YYYY-MM-DD格式'错误"
end
y, m, d = tonumber(y), tonumber(m), tonumber(d)
 
-- 验证日期范围
local year = tonumber(date:sub(1, 4))
if y < 1900 or y > 2100 then
local month = tonumber(date:sub(6, 7))
return "年份超出范围(1900-2100)"
local day = tonumber(date:sub(9, 10))
 
-- 输入日期范围验证
if year < 1900 or year > 2100 then
return '错误：年份超出范围(1900-2100)'
end
if monthm < 1 or monthm > 12 then
return '错误："月份无效'错误"
end
if notd isValidDate(year,< month,1 day)or d > 31 then
return '错误："日期无效'错误"
end
 
-- 计算总距离1900年1月31日的天数
local offsetbaseDate = getDayOfYearos.time({ year = 1900, month = 1, day = 31 })
local temptargetDate = 0os.time({ year = y, month = m, day = d })
local offset = math.floor((targetDate - baseDate) / (24 * 60 * 60))
 
-- 计算农历年份
forlocal ily = 1900, year - 1 do
local temp = lYearDays(i)0
while ly < 2101 and offset > 0 do
temp = lYearDays(ly)
offset = offset - temp
ly = ly + 1
end
if offset < 0 then
offset = offset + temp
ly = ly - 1
end
 
-- 计算农历月份和日期
local lunarYearlm = year1
local lunarMonthld = 1
local lunarDayisLeap = 1false
local leap = leapMonth(ly)
 
-- 计算月
temp = lYearDays(lunarYear)
while offset > temp0 and lm < 13 do
if leap > 0 and lm == leap + 1 and not isLeap then
lm = lm - 1
isLeap = true
temp = leapDays(ly)
else
temp = monthDays(ly, lm)
end
offset = offset - temp
lunarYearif isLeap and lm == lunarYearleap + 1 then isLeap = false end
templm = lYearDays(lunarYear)lm + 1
end
 
-- 计算日
temp = monthDays(lunarYear, lunarMonth)
whileif offset == 0 and leap > temp0 and lm == leap + 1 dothen
offsetif =isLeap offset - tempthen
lunarMonth = lunarMonth + 1isLeap = false
if lunarMonth > 12 thenelse
lunarMonthisLeap = 1true
lunarYearlm = lunarYearlm +- 1
end
temp = monthDays(lunarYear, lunarMonth)
end
if offset < 0 then
 
lunarDay offset = offset + temp
lm = lm - 1
 
-- 生成输出
local stemIndex = (lunarYear - 4) % 10
local branchIndex = (lunarYear - 4) % 12
local result = HEAVENLY_STEMS[stemIndex + 1] .. EARTHLY_BRANCHES[branchIndex + 1] .. '年'
 
local isLeapMonth = false
local lm = leapMonth(lunarYear)
if lm > 0 and lunarMonth > lm then
lunarMonth = lunarMonth - 1
if lunarMonth == lm then
isLeapMonth = true
end
end
ld = offset + 1
 
if-- isLeapMonth then格式化输出
local gzYear = Gan[((ly - 4) % 10) + 1] .. Zhi[((ly - 4) % 12) + 1]
result = result .. '闰'
local lMonth = nStr3[lm]
local lDay
if ld == 10 then
lDay = "初十"
elseif ld == 20 then
lDay = "二十"
elseif ld == 30 then
lDay = "三十"
else
lDay = nStr2[math.floor(ld / 10) + 1] .. nStr1[ld % 10 + 1]
end
result = result .. LUNAR_MONTHS[lunarMonth] .. '月' .. LUNAR_DAYS[lunarDay]
 
return resultgzYear .. "年" .. lMonth .. "月" .. lDay
end
 
SkyEye FAST
行政员、​用户查核员、​界面管理员、​审阅员、​管理员、​小部件编辑者
2,099

个编辑

取自“https://mh.wdf.ink/wiki/特殊:移动版差异/3396”