网络上但凡提到 rime中州韵小狼毫须鼠管输入法，总少不了智能时间，日期等炫技，可见这个便捷时间/日期输入功能是多么的受欢迎。作者也不落窠臼，今天为大家带来的分享就是 时间日期 滤镜。

先睹为快

在正文开始前，我们一起欣赏一下最终的效果吧。

注： 本文所分享的dateTime_Filter滤镜，与输入方案无关，可以在拼音，五笔，双拼等输入方案中起到同样的功能梯中效果。

时间输入效果：

日期输入效果：

周序输入效果：

事件提醒效果：

农历与节气效果：

👆以上是主要的功能效果了，其它更多的细节性功能，各位看官自行发掘吧。

农历与二十四节气

为了实现农历日期与二十四节气信息的检索，我们需要计算二十四节气的时间，以及需要计算农历日期与阳历日期的映射关系，为此，我们需要以下 lunarjieQiModule.lua 和 lunarModule.lua 两个脚本。

lunarjieQiModule.lua

lunarjieQiModule.lua 脚本文档实现了二十四节气的计算功能， lunarjieQiModule.lua 文档的脚本内容如下👇：

--该计算脚本取自 博文 https://www.cnblogs.com/moodlxs/archive/2012/09/15/2686472.html
--感谢博主 绿色冰点 对脚本的贡献和分享local dbgFlg = falselocal function setDbg(flg, printPrefix)dbgFlg = flgif nil == printPrefix thenprintPrefix = ''endif flg thenprint(printPrefix..'flg in lunar is true')end
end--节气表
local jqB={"春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至","小寒","大寒","立春","雨水","惊蛰"}
local yueMing={"正","二","三","四","五","六","七","八","九","十","冬","腊"}--存储以当前日期所在年分为中心，前后各1年，共3年的节气数据，以及对应的节气名
local jq3Y={}
local jqN3Y={}--*******农历节气计算部分
--========角度变换===============
--每弧度的角秒数
local rad = 180*3600/math.pi
--每弧度的角度数
local RAD = 180/math.pi
--取整数部分
local function int2(v)v=math.floor(v)if v<0 thenreturn v+1elsereturn vend
end--对超过0-2PI的角度转为0-2PI
local function rad2mrad(v)v=math.fmod(v ,2*math.pi)if v<0 thenreturn v+2*math.pielsereturn vend
end--将弧度转为字串
local function rad2str(d,tim)---tim=0输出格式示例: -23°59' 48.23"---tim=1输出格式示例:  18h 29m 44.52slocal s="+"local w1="°" w2="’"  w3="”"if d<0 thend=-ds='-'endif tim~= 0 thend=d*12/math.piw1="h "w2="m "w3="s "elsed=d*180/math.piendlocal a=math.floor(d) d=(d-a)*60local b=math.floor(d) d=(d-b)*60local c=math.floor(d) d=(d-c)*100d=math.floor(d+0.5)if d>=100 thend=d-100c=c+1endif c>=60 thenc=c-60b=b+1endif b>=60 thenb=b-60a=a+1enda="   "+ab="0"+bc="0"+cd="0"+dlocal alen = string.len(a)local blen = string.len(b)local clen = string.len(c)local dlen = string.len(d)s = s..string.sub(a, alen-3,alen)+w1s = s..string.sub(b, blen-2,blen)+w2s = s..string.sub(c, clen-2,clen)+"."s = s..string.sub(d, dlen-2,dlen)+w3return s
end--================日历计算===============
--2000年前儒略日数(2000-1-1 12:00:00格林威治平时)
local J2000=2451545--日期元件
local JDate={Y=2000, M=1, D=1, h=12, m=0, s=0,--世界时与原子时之差计算表dts = {-4000,108371.7,-13036.80,392.000, 0.0000, -500, 17201.0, -627.82, 16.170,-0.3413,-150, 12200.6, -346.41, 5.403,-0.1593, 150, 9113.8, -328.13, -1.647, 0.0377,500, 5707.5, -391.41, 0.915, 0.3145, 900, 2203.4, -283.45, 13.034,-0.1778,1300, 490.1, -57.35, 2.085,-0.0072, 1600, 120.0, -9.81, -1.532, 0.1403,1700, 10.2, -0.91, 0.510,-0.0370, 1800, 13.4, -0.72, 0.202,-0.0193,1830, 7.8, -1.81, 0.416,-0.0247, 1860, 8.3, -0.13, -0.406, 0.0292,1880, -5.4, 0.32, -0.183, 0.0173, 1900, -2.3, 2.06, 0.169,-0.0135,1920, 21.2, 1.69, -0.304, 0.0167, 1940, 24.2, 1.22, -0.064, 0.0031,1960, 33.2, 0.51, 0.231,-0.0109, 1980, 51.0, 1.29, -0.026, 0.0032,2000, 64.7, -1.66, 5.224,-0.2905, 2150, 279.4, 732.95,429.579, 0.0158, 6000},--计算世界时与原子时之差,传入年deltatT = function(JDate,y)local ilocal d=JDate.dtsfor x=1,100, 5 doif y<d[x+5] or x==96 theni=xbreakendendlocal t1=(y-d[i])/(d[i+5]-d[i])*10local t2=t1*t1local t3=t2*t1return d[i+1] +d[i+2]*t1 +d[i+3]*t2 +d[i+4]*t3end,--传入儒略日(J2000起算),计算UTC与原子时的差(单位:日)deltatT2 = function(JDate,jd,info)return JDate:deltatT(jd/365.2425+2000)/86400.0end,--公历转儒略日,UTC=1表示原日期是UTCtoJD = function(JDate,UTC)--取出年月local  y=JDate.Y m=JDate.M n=0if m<=2 thenm=m+12y=y-1end--判断是否为格里高利历日1582*372+10*31+15if JDate.Y*372+JDate.M*31+JDate.D>=588829 then--加百年闰n =int2(y/100) n =2-n+int2(n/4)end--加上年引起的偏移日数n = n + int2(365.2500001*(y+4716))--加上月引起的偏移日数及日偏移数n = n + int2(30.6*(m+1))+JDate.Dn = n + ((JDate.s/60+JDate.m)/60+JDate.h)/24 - 1524.5if(UTC == 1) thenreturn n+JDate:deltatT2(n-J2000,'142')elsereturn nendend,--儒略日数转公历,UTC=1表示目标公历是UTCsetFromJD = function(JDate,jd,UTC)if UTC==1 thenjd= jd - JDate:deltatT2(jd-J2000,'150')endjd=jd+0.5--取得日数的整数部份A及小数部分Flocal A=int2(jd)local F=jd-Alocal D=0if A>2299161 thenD=int2((A-1867216.25)/36524.25)A=A+1+D-int2(D/4)end--向前移4年零2个月A = A + 1524--年JDate.Y =int2((A-122.1)/365.25)--去除整年日数后余下日数D =A-int2(365.25*JDate.Y)--月数JDate.M =int2(D/30.6001)--去除整月日数后余下日数JDate.D =D-int2(JDate.M*30.6001)JDate.Y=JDate.Y-4716 JDate.M=JDate.M-1if JDate.M>12 thenJDate.M=JDate.M - 12endif JDate.M<=2 thenJDate.Y = JDate.Y+1end--日的小数转为时分秒F=F*24 JDate.h=int2(F)F=F - JDate.hF=F*60 JDate.m=int2(F)F=F - JDate.mF=F*60 JDate.s=Fend,--设置时间,参数例:"20000101 120000"或"20000101"setFromStr = function(JDate, s)JDate.Y=string.sub(s, 1,4)JDate.M=string.sub(s, 5, 6)JDate.D=string.sub(s,7, 8)JDate.h=string.sub(s, 10, 11)JDate.m=string.sub(s, 12,13)JDate.s=string.sub(s, 14,18)end,--日期转为串toStr = function(JDate)local Y="0"..JDate.Ylocal M="0"..JDate.Mlocal D="0"..JDate.Dlocal h=JDate.hlocal m=JDate.mlocal s=math.floor(JDate.s+.5)if s>=60 thens=s-60m=m+1endif m>=60 thenm=m-60h=h+1endh="0".. hm="0"..ms="0"..slocal Ylen = string.len(Y)local Mlen = string.len(M)local Dlen = string.len(D)local hlen = string.len(h)local mlen = string.len(m)local slen = string.len(s)Y=string.sub(Y, Ylen-3,Ylen)M=string.sub(M, Mlen-1,Mlen)D=string.sub(D,Dlen-1, Dlen)h=string.sub(h, hlen-1, hlen)m=string.sub(m, mlen-1,mlen)s=string.sub(s, slen-1,slen)return Y.."-"..M.."-"..D.." "..h..":"..m..":"..send,--输出节气日期的秒数JQ = function(JDate)local t = {}t.year=JDate.Yt.month=JDate.Mt.day=JDate.Dt.hour=JDate.ht.min=JDate.mt.sec=math.floor(JDate.s+.5)if t.sec>=60 thent.sec=t.sec-60t.min=t.min+1endif t.min>=60 thent.min=t.min-60t.hour=t.hour+1endreturn os.time(t)end,--算出:jd 转到当地UTC后,UTC日数的整数部分或小数部分Dint_dec = function(JDate,jd,shiqu,int_dec)--基于J2000力学时jd的起算点是12:00:00时,所以跳日时刻发生在12:00:00,这与日历计算发生矛盾--把jd改正为00:00:00起算,这样儒略日的跳日动作就与日期的跳日同步--改正方法为jd=jd+0.5-deltatT+shiqu/24--把儒略日的起点移动-0.5(即前移12小时)--式中shiqu是时区,北京的起算点是-8小时,shiqu取8local u=jd+0.5-JDate:deltatT2(jd,'252')+shiqu/24if int_dec~= 0 then--返回整数部分return math.floor(u)else--返回小数部分return u-math.floor(u)endend,--计算两个日期的相差的天数,输入字串格式日期,如:"20080101"d1_d2 = function(JDate,d1,d2)--备份原来的数据local Y=JDate.Y local M=JDate.Mlocal D=JDate.Dlocal h=JDate.hlocal m=JDate.mlocal s=JDate.sJDate.setFromStr(string.sub(d1,1,8)+" 120000")local jd1=JDate.toJD(0)JDate.setFromStr(string.sub(d2,1,8)+" 120000")local jd2=JDate.toJD(0)--还原JDate.Y=YJDate.M=MJDate.D=DJDate.h=hJDate.m=mJDate.s=sif jd1>jd2 thenreturn  math.floor(jd1-jd2+.0001)elsereturn -Math.floor(jd2-jd1+.0001)endend,
}--=========黄赤交角及黄赤坐标变换===========
--黄赤交角系数表
local hcjjB = {84381.448, -46.8150, -0.00059, 0.001813}
--Date黄道上的岁差p
local preceB= {0,50287.92262,111.24406,0.07699,-0.23479,-0.00178,0.00018,0.00001}--返回黄赤交角(常规精度),短期精度很高
local function hcjj1 (t)local t1=t/36525 local t2=t1*t1local t3=t2*t1return (hcjjB[1] +hcjjB[2]*t1 +hcjjB[3]*t2 +hcjjB[4]*t3)/rad
end--黄赤转换(黄赤坐标旋转)
local function HCconv(JW,E)--黄道赤道坐标变换,赤到黄E取负local HJ=rad2mrad(JW[1])local HW=JW[2]local sinE =math.sin(E)local cosE =math.cos(E)local sinW=cosE*math.sin(HW)+sinE*math.cos(HW)*math.sin(HJ)local J=math.atan2( math.sin(HJ)*cosE-math.tan(HW)*sinE, math.cos(HJ))JW[1]=rad2mrad(J)JW[2]=math.asin(sinW)
end--补岁差
local function addPrece(jd,zb)local ilocal t=1local v=0local t1=jd/365250for i=2,8 dot=t*t1v=v+preceB[i]*tendzb[1]=rad2mrad(zb[1]+(v+2.9965*t1)/rad)
end--===============光行差==================
--离心率
local GXC_e={0.016708634, -0.000042037,-0.0000001267}
--近点
local GXC_p={102.93735/RAD,1.71946/RAD, 0.00046/RAD}
--太平黄经
local GXC_l={280.4664567/RAD,36000.76982779/RAD,0.0003032028/RAD,1/49931000/RAD,-1/153000000/RAD}
--光行差常数
local GXC_k=20.49552/rad
--恒星周年光行差计算(黄道坐标中)
local function addGxc(t,zb)local t1=t/36525local t2=t1*t1local t3=t2*t1local t4=t3*t1local L=GXC_l[1] +GXC_l[2]*t1 +GXC_l[3]*t2 +GXC_l[4]*t3 +GXC_l[5]*t4local p=GXC_p[1] +GXC_p[2]*t1 +GXC_p[3]*t2local e=GXC_e[1] +GXC_e[2]*t1 +GXC_e[3]*t2local dL=L-zb[1]local dP=p-zb[1]zb[1]=zb[1] - (GXC_k * (math.cos(dL)-e*math.cos(dP)) / math.cos(zb[2]))zb[2]=zb[2] - (GXC_k * math.sin(zb[2]) * (math.sin(dL)-e*math.sin(dP)))--print('aa', L,p,e,dL,dP,zb[1], zb[2])zb[1]=rad2mrad(zb[1])
end--===============章动计算==================
--章动表
local nutB={2.1824391966, -33.757045954, 0.0000362262, 3.7340E-08,-2.8793E-10,-171996,-1742,92025, 89,3.5069406862, 1256.663930738, 0.0000105845, 6.9813E-10,-2.2815E-10, -13187, -16, 5736,-31,1.3375032491, 16799.418221925,-0.0000511866, 6.4626E-08,-5.3543E-10, -2274, -2, 977, -5,4.3648783932, -67.514091907, 0.0000724525, 7.4681E-08,-5.7586E-10, 2062, 2, -895, 5,0.0431251803, -628.301955171, 0.0000026820, 6.5935E-10, 5.5705E-11, -1426, 34, 54, -1,2.3555557435, 8328.691425719, 0.0001545547, 2.5033E-07,-1.1863E-09, 712, 1, -7, 0,3.4638155059, 1884.965885909, 0.0000079025, 3.8785E-11,-2.8386E-10, -517, 12, 224, -6,5.4382493597, 16833.175267879,-0.0000874129, 2.7285E-08,-2.4750E-10, -386, -4, 200, 0,3.6930589926, 25128.109647645, 0.0001033681, 3.1496E-07,-1.7218E-09, -301, 0, 129, -1,3.5500658664, 628.361975567, 0.0000132664, 1.3575E-09,-1.7245E-10, 217, -5, -95, 3}--计算黄经章动及交角章动
local function nutation(t)local d={}d.Lon=0d.Obl=0t=t/36525local i,clocal t1=tlocal t2=t1*t1local t3=t2*t1local t4=t3*t1local t5=t4*t1for i=1,#nutB,9 doc=nutB[i] +nutB[i+1]*t1 +nutB[i+2]*t2 +nutB[i+3]*t3 +nutB[i+4]*t4--黄经章动d.Lon=d.Lon + (nutB[i+5]+nutB[i+6]*t/10)*math.sin(c)--交角章动d.Obl=d.Obl + (nutB[i+7]+nutB[i+8]*t/10)*math.cos(c)end--黄经章动d.Lon=d.Lon/(rad*10000)--交角章动d.Obl=d.Obl/(rad*10000)return d
end--本函数计算赤经章动及赤纬章动
local function nutationRaDec(t,zb)local Ra=zb[1]local Dec=zb[2]local E=hcjj1(t)local sinE=math.sin(E)--计算黄赤交角local cosE=math.cos(E)--计算黄经章动及交角章动local d=nutation(t)local cosRa=math.cos(Ra)local sinRa=math.sin(Ra)local tanDec=math.tan(Dec)--赤经章动zb[1]=zb[1] + (cosE+sinE*sinRa*tanDec)*d.Lon-cosRa*tanDec*d.Obl--赤纬章动zb[2]= zb[2] + sinE*cosRa*d.Lon+sinRa*d.Oblzb[1]=rad2mrad(zb[1])
end--=================以下是月球及地球运动参数表===================
--[[***************************************
* 如果用记事本查看此代码,请在"格式"菜单中去除"自动换行"
* E10是关于地球的,格式如下:
*	它是一个数组,每3个数看作一条记录,每条记录的3个数记为A,B,C
*	rec=A*cos(B+C*t)  式中t是J2000起算的儒略千年数
*	每条记录的计算结果(即rec)取和即得地球的日心黄经的周期量L0
* E11格式如下: rec = A*cos*(B+C*t) *t, 取和后得泊松量L1
* E12格式如下: rec = A*cos*(B+C*t) *t*t, 取和后得泊松量L2
* E13格式如下: rec = A*cos*(B+C*t) *t*t*t, 取和后得泊松量L3
* 最后地球的地心黄经:L = L0+L1+L2+L3+...
* E20,E21,E22,E23...用于计算黄纬
* M10,M11等是关于月球的,参数的用法请阅读Mnn()函数
***************************************** --]]
--地球运动VSOP87参数
--黄经周期项
local E10={1.75347045673, 0.00000000000, 0.0000000000, 0.03341656456, 4.66925680417, 6283.0758499914, 0.00034894275, 4.62610241759, 12566.1516999828, 0.00003417571, 2.82886579606, 3.5231183490,0.00003497056, 2.74411800971, 5753.3848848968, 0.00003135896, 3.62767041758, 77713.7714681205, 0.00002676218, 4.41808351397, 7860.4193924392, 0.00002342687, 6.13516237631, 3930.2096962196,0.00001273166, 2.03709655772, 529.6909650946, 0.00001324292, 0.74246356352, 11506.7697697936, 0.00000901855, 2.04505443513, 26.2983197998, 0.00001199167, 1.10962944315, 1577.3435424478,0.00000857223, 3.50849156957, 398.1490034082, 0.00000779786, 1.17882652114, 5223.6939198022, 0.00000990250, 5.23268129594, 5884.9268465832, 0.00000753141, 2.53339053818, 5507.5532386674,0.00000505264, 4.58292563052, 18849.2275499742, 0.00000492379, 4.20506639861, 775.5226113240, 0.00000356655, 2.91954116867, 0.0673103028, 0.00000284125, 1.89869034186, 796.2980068164,0.00000242810, 0.34481140906, 5486.7778431750, 0.00000317087, 5.84901952218, 11790.6290886588, 0.00000271039, 0.31488607649, 10977.0788046990, 0.00000206160, 4.80646606059, 2544.3144198834,0.00000205385, 1.86947813692, 5573.1428014331, 0.00000202261, 2.45767795458, 6069.7767545534, 0.00000126184, 1.08302630210, 20.7753954924, 0.00000155516, 0.83306073807, 213.2990954380,0.00000115132, 0.64544911683, 0.9803210682, 0.00000102851, 0.63599846727, 4694.0029547076, 0.00000101724, 4.26679821365, 7.1135470008, 0.00000099206, 6.20992940258, 2146.1654164752,0.00000132212, 3.41118275555, 2942.4634232916, 0.00000097607, 0.68101272270, 155.4203994342, 0.00000085128, 1.29870743025, 6275.9623029906, 0.00000074651, 1.75508916159, 5088.6288397668,0.00000101895, 0.97569221824, 15720.8387848784, 0.00000084711, 3.67080093025, 71430.6956181291, 0.00000073547, 4.67926565481, 801.8209311238, 0.00000073874, 3.50319443167, 3154.6870848956,0.00000078756, 3.03698313141, 12036.4607348882, 0.00000079637, 1.80791330700, 17260.1546546904, 0.00000085803, 5.98322631256,161000.6857376741, 0.00000056963, 2.78430398043, 6286.5989683404,0.00000061148, 1.81839811024, 7084.8967811152, 0.00000069627, 0.83297596966, 9437.7629348870, 0.00000056116, 4.38694880779, 14143.4952424306, 0.00000062449, 3.97763880587, 8827.3902698748,0.00000051145, 0.28306864501, 5856.4776591154, 0.00000055577, 3.47006009062, 6279.5527316424, 0.00000041036, 5.36817351402, 8429.2412664666, 0.00000051605, 1.33282746983, 1748.0164130670,0.00000051992, 0.18914945834, 12139.5535091068, 0.00000049000, 0.48735065033, 1194.4470102246, 0.00000039200, 6.16832995016, 10447.3878396044, 0.00000035566, 1.77597314691, 6812.7668150860,0.00000036770, 6.04133859347, 10213.2855462110, 0.00000036596, 2.56955238628, 1059.3819301892, 0.00000033291, 0.59309499459, 17789.8456197850, 0.00000035954, 1.70876111898, 2352.8661537718}
--黄经泊松1项
local E11={6283.31966747491,0.00000000000, 0.0000000000, 0.00206058863, 2.67823455584, 6283.0758499914, 0.00004303430, 2.63512650414, 12566.1516999828, 0.00000425264, 1.59046980729, 3.5231183490,0.00000108977, 2.96618001993, 1577.3435424478, 0.00000093478, 2.59212835365, 18849.2275499742, 0.00000119261, 5.79557487799, 26.2983197998, 0.00000072122, 1.13846158196, 529.6909650946,0.00000067768, 1.87472304791, 398.1490034082, 0.00000067327, 4.40918235168, 5507.5532386674, 0.00000059027, 2.88797038460, 5223.6939198022, 0.00000055976, 2.17471680261, 155.4203994342,0.00000045407, 0.39803079805, 796.2980068164, 0.00000036369, 0.46624739835, 775.5226113240, 0.00000028958, 2.64707383882, 7.1135470008, 0.00000019097, 1.84628332577, 5486.7778431750,
0.00000020844, 5.34138275149, 0.9803210682, 0.00000018508, 4.96855124577, 213.2990954380, 0.00000016233, 0.03216483047, 2544.3144198834, 0.00000017293, 2.99116864949, 6275.9623029906}
--黄经泊松2项
local E12={0.00052918870, 0.00000000000, 0.0000000000, 0.00008719837, 1.07209665242, 6283.0758499914, 0.00000309125, 0.86728818832, 12566.1516999828, 0.00000027339, 0.05297871691, 3.5231183490,0.00000016334, 5.18826691036, 26.2983197998, 0.00000015752, 3.68457889430, 155.4203994342, 0.00000009541, 0.75742297675, 18849.2275499742, 0.00000008937, 2.05705419118, 77713.7714681205,0.00000006952, 0.82673305410, 775.5226113240, 0.00000005064, 4.66284525271, 1577.3435424478}
local E13={0.00000289226, 5.84384198723, 6283.0758499914, 0.00000034955, 0.00000000000, 0.0000000000, 0.00000016819, 5.48766912348, 12566.1516999828}
local E14={0.00000114084, 3.14159265359, 0.0000000000, 0.00000007717, 4.13446589358, 6283.0758499914, 0.00000000765, 3.83803776214, 12566.1516999828}
local E15={0.00000000878, 3.14159265359, 0.0000000000 }
--黄纬周期项
local E20={0.00000279620, 3.19870156017, 84334.6615813083, 0.00000101643, 5.42248619256, 5507.5532386674, 0.00000080445, 3.88013204458, 5223.6939198022, 0.00000043806, 3.70444689758, 2352.8661537718,0.00000031933, 4.00026369781, 1577.3435424478, 0.00000022724, 3.98473831560, 1047.7473117547, 0.00000016392, 3.56456119782, 5856.4776591154, 0.00000018141, 4.98367470263, 6283.0758499914,0.00000014443, 3.70275614914, 9437.7629348870, 0.00000014304, 3.41117857525, 10213.2855462110}
local E21={0.00000009030, 3.89729061890, 5507.5532386674, 0.00000006177, 1.73038850355, 5223.6939198022}
--距离周期项
local E30={1.00013988799, 0.00000000000, 0.0000000000, 0.01670699626, 3.09846350771, 6283.0758499914, 0.00013956023, 3.05524609620, 12566.1516999828, 0.00003083720, 5.19846674381, 77713.7714681205,0.00001628461, 1.17387749012, 5753.3848848968, 0.00001575568, 2.84685245825, 7860.4193924392, 0.00000924799, 5.45292234084, 11506.7697697936, 0.00000542444, 4.56409149777, 3930.2096962196}
local E31={0.00103018608, 1.10748969588, 6283.0758499914, 0.00001721238, 1.06442301418, 12566.1516999828, 0.00000702215, 3.14159265359, 0.0000000000}
local E32={0.00004359385, 5.78455133738, 6283.0758499914 }
local E33={0.00000144595, 4.27319435148, 6283.0758499914 }
--月球运动参数
local M10={22639.5858800, 2.3555545723, 8328.6914247251, 1.5231275E-04, 2.5041111E-07,-1.1863391E-09, 4586.4383203, 8.0413790709, 7214.0628654588,-2.1850087E-04,-1.8646419E-07, 8.7760973E-10, 2369.9139357, 10.3969336431, 15542.7542901840,-6.6188121E-05, 6.3946925E-08,-3.0872935E-10, 769.0257187, 4.7111091445, 16657.3828494503, 3.0462550E-04, 5.0082223E-07,-2.3726782E-09,-666.4175399, -0.0431256817, 628.3019552485,-2.6638815E-06, 6.1639211E-10,-5.4439728E-11, -411.5957339, 3.2558104895, 16866.9323152810,-1.2804259E-04,-9.8998954E-09, 4.0433461E-11, 211.6555524, 5.6858244986, -1114.6285592663,-3.7081362E-04,-4.3687530E-07, 2.0639488E-09, 205.4359530, 8.0845047526, 6585.7609102104,-2.1583699E-04,-1.8708058E-07, 9.3204945E-10,191.9561973, 12.7524882154, 23871.4457149091, 8.6124629E-05, 3.1435804E-07,-1.4950684E-09, 164.7286185, 10.4400593249, 14914.4523349355,-6.3524240E-05, 6.3330532E-08,-2.5428962E-10, -147.3213842, -2.3986802540, -7700.3894694766,-1.5497663E-04,-2.4979472E-07, 1.1318993E-09, -124.9881185, 5.1984668216, 7771.3771450920,-3.3094061E-05, 3.1973462E-08,-1.5436468E-10,-109.3803637, 2.3124288905, 8956.9933799736, 1.4964887E-04, 2.5102751E-07,-1.2407788E-09, 55.1770578, 7.1411231536, -1324.1780250970, 6.1854469E-05, 7.3846820E-08,-3.4916281E-10, -45.0996092, 5.6113650618, 25195.6237400061, 2.4270161E-05, 2.4051122E-07,-1.1459056E-09, 39.5333010, -0.9002559173, -8538.2408905558, 2.8035534E-04, 2.6031101E-07,-1.2267725E-09,38.4298346, 18.4383127140, 22756.8171556428,-2.8468899E-04,-1.2251727E-07, 5.6888037E-10, 36.1238141, 7.0666637168, 24986.0742741754, 4.5693825E-04, 7.5123334E-07,-3.5590172E-09, 30.7725751, 16.0827581417, 14428.1257309177,-4.3700174E-04,-3.7292838E-07, 1.7552195E-09, -28.3971008, 7.9982533891, 7842.3648207073,-2.2116475E-04,-1.8584780E-07, 8.2317000E-10,-24.3582283, 10.3538079614, 16171.0562454324,-6.8852003E-05, 6.4563317E-08,-3.6316908E-10, -18.5847068, 2.8429122493, -557.3142796331,-1.8540681E-04,-2.1843765E-07, 1.0319744E-09, 17.9544674, 5.1553411398, 8399.6791003405,-3.5757942E-05, 3.2589854E-08,-2.0880440E-10, 14.5302779, 12.7956138971, 23243.1437596606, 8.8788511E-05, 3.1374165E-07,-1.4406287E-09,14.3796974, 15.1080427876, 32200.1371396342, 2.3843738E-04, 5.6476915E-07,-2.6814075E-09, 14.2514576,-24.0810366320, -2.3011998397, 1.5231275E-04, 2.5041111E-07,-1.1863391E-09, 13.8990596, 20.7938672862, 31085.5085803679,-1.3237624E-04, 1.2789385E-07,-6.1745870E-10, 13.1940636, 3.3302699264, -9443.3199839914,-5.2312637E-04,-6.8728642E-07, 3.2502879E-09,-9.6790568, -4.7542348263,-16029.0808942018,-3.0728938E-04,-5.0020584E-07, 2.3182384E-09, -9.3658635, 11.2971895604, 24080.9951807398,-3.4654346E-04,-1.9636409E-07, 9.1804319E-10, 8.6055318, 5.7289501804, -1742.9305145148,-3.6814974E-04,-4.3749170E-07, 2.1183885E-09, -8.4530982, 7.5540213938, 16100.0685698171, 1.1921869E-04, 2.8238458E-07,-1.3407038E-09,8.0501724, 10.4831850066, 14286.1503796870,-6.0860358E-05, 6.2714140E-08,-1.9984990E-10, -7.6301553, 4.6679834628, 17285.6848046987, 3.0196162E-04, 5.0143862E-07,-2.4271179E-09, -7.4474952, -0.0862513635, 1256.6039104970,-5.3277630E-06, 1.2327842E-09,-1.0887946E-10, 7.3712011, 8.1276304344, 5957.4589549619,-2.1317311E-04,-1.8769697E-07, 9.8648918E-10,7.0629900, 0.9591375719, 33.7570471374,-3.0829302E-05,-3.6967043E-08, 1.7385419E-10, -6.3831491, 9.4966777258, 7004.5133996281, 2.1416722E-04, 3.2425793E-07,-1.5355019E-09, -5.7416071, 13.6527441326, 32409.6866054649,-1.9423071E-04, 5.4047029E-08,-2.6829589E-10, 4.3740095, 18.4814383957, 22128.5152003943,-2.8202511E-04,-1.2313366E-07, 6.2332010E-10,-3.9976134, 7.9669196340, 33524.3151647312, 1.7658291E-04, 4.9092233E-07,-2.3322447E-09, -3.2096876, 13.2398458924, 14985.4400105508,-2.5159493E-04,-1.5449073E-07, 7.2324505E-10, -2.9145404, 12.7093625336, 24499.7476701576, 8.3460748E-05, 3.1497443E-07,-1.5495082E-09, 2.7318890, 16.1258838235, 13799.8237756692,-4.3433786E-04,-3.7354477E-07, 1.8096592E-09,-2.5679459, -2.4418059357, -7072.0875142282,-1.5764051E-04,-2.4917833E-07, 1.0774596E-09, -2.5211990, 7.9551277074, 8470.6667759558,-2.2382863E-04,-1.8523141E-07, 7.6873027E-10, 2.4888871, 5.6426988169, -486.3266040178,-3.7347750E-04,-4.3625891E-07, 2.0095091E-09, 2.1460741, 7.1842488353, -1952.4799803455, 6.4518350E-05, 7.3230428E-08,-2.9472308E-10,1.9777270, 23.1494218585, 39414.2000050930, 1.9936508E-05, 3.7830496E-07,-1.8037978E-09, 1.9336825, 9.4222182890, 33314.7656989005, 6.0925100E-04, 1.0016445E-06,-4.7453563E-09, 1.8707647, 20.8369929680, 30457.2066251194,-1.2971236E-04, 1.2727746E-07,-5.6301898E-10, -1.7529659, 0.4873576771, -8886.0057043583,-3.3771956E-04,-4.6884877E-07, 2.2183135E-09,-1.4371624, 7.0979974718, -695.8760698485, 5.9190587E-05, 7.4463212E-08,-4.0360254E-10, -1.3725701, 1.4552986550, -209.5494658307, 4.3266809E-04, 5.1072212E-07,-2.4131116E-09, 1.2618162, 7.5108957121, 16728.3705250656, 1.1655481E-04, 2.8300097E-07,-1.3951435E-09}
local M11={1.6768000, -0.0431256817, 628.3019552485,-2.6638815E-06, 6.1639211E-10,-5.4439728E-11, 0.5164200, 11.2260974062, 6585.7609102104,-2.1583699E-04,-1.8708058E-07, 9.3204945E-10, 0.4138300, 13.5816519784, 14914.4523349355,-6.3524240E-05, 6.3330532E-08,-2.5428962E-10, 0.3711500, 5.5402729076, 7700.3894694766, 1.5497663E-04, 2.4979472E-07,-1.1318993E-09,0.2756000, 2.3124288905, 8956.9933799736, 1.4964887E-04, 2.5102751E-07,-1.2407788E-09, 0.2459863,-25.6198212459, -2.3011998397, 1.5231275E-04, 2.5041111E-07,-1.1863391E-09, 0.0711800, 7.9982533891, 7842.3648207073,-2.2116475E-04,-1.8584780E-07, 8.2317000E-10, 0.0612800, 10.3538079614, 16171.0562454324,-6.8852003E-05, 6.4563317E-08,-3.6316908E-10}
local M12={0.0048700, -0.0431256817, 628.3019552485,-2.6638815E-06, 6.1639211E-10,-5.4439728E-11, 0.0022800,-27.1705318325, -2.3011998397, 1.5231275E-04, 2.5041111E-07,-1.1863391E-09, 0.0015000, 11.2260974062, 6585.7609102104,-2.1583699E-04,-1.8708058E-07, 9.3204945E-10}
local M20={18461.2400600, 1.6279052448, 8433.4661576405,-6.4021295E-05,-4.9499477E-09, 2.0216731E-11, 1010.1671484, 3.9834598170, 16762.1575823656, 8.8291456E-05, 2.4546117E-07,-1.1661223E-09, 999.6936555, 0.7276493275, -104.7747329154, 2.1633405E-04, 2.5536106E-07,-1.2065558E-09, 623.6524746, 8.7690283983, 7109.2881325435,-2.1668263E-06, 6.8896872E-08,-3.2894608E-10,199.4837596, 9.6692843156, 15647.5290230993,-2.8252217E-04,-1.9141414E-07, 8.9782646E-10, 166.5741153, 6.4134738261, -1219.4032921817,-1.5447958E-04,-1.8151424E-07, 8.5739300E-10, 117.2606951, 12.0248388879, 23976.2204478244,-1.3020942E-04, 5.8996977E-08,-2.8851262E-10, 61.9119504, 6.3390143893, 25090.8490070907, 2.4060421E-04, 4.9587228E-07,-2.3524614E-09,33.3572027, 11.1245829706, 15437.9795572686, 1.5014592E-04, 3.1930799E-07,-1.5152852E-09, 31.7596709, 3.0832038997, 8223.9166918098, 3.6864680E-04, 5.0577218E-07,-2.3928949E-09, 29.5766003, 8.8121540801, 6480.9861772950, 4.9705523E-07, 6.8280480E-08,-2.7450635E-10, 15.5662654, 4.0579192538, -9548.0947169068,-3.0679233E-04,-4.3192536E-07, 2.0437321E-09,15.1215543, 14.3803934601, 32304.9118725496, 2.2103334E-05, 3.0940809E-07,-1.4748517E-09, -12.0941511, 8.7259027166, 7737.5900877920,-4.8307078E-06, 6.9513264E-08,-3.8338581E-10, 8.8681426, 9.7124099974, 15019.2270678508,-2.7985829E-04,-1.9203053E-07, 9.5226618E-10, 8.0450400, 0.6687636586, 8399.7091105030,-3.3191993E-05, 3.2017096E-08,-1.5363746E-10,7.9585542, 12.0679645696, 23347.9184925760,-1.2754553E-04, 5.8380585E-08,-2.3407289E-10, 7.4345550, 6.4565995078, -1847.7052474301,-1.5181570E-04,-1.8213063E-07, 9.1183272E-10, -6.7314363, -4.0265854988,-16133.8556271171,-9.0955337E-05,-2.4484477E-07, 1.1116826E-09, 6.5795750, 16.8104074692, 14323.3509980023,-2.2066770E-04,-1.1756732E-07, 5.4866364E-10,-6.4600721, 1.5847795630, 9061.7681128890,-6.6685176E-05,-4.3335556E-09,-3.4222998E-11, -6.2964773, 4.8837157343, 25300.3984729215,-1.9206388E-04,-1.4849843E-08, 6.0650192E-11, -5.6323538, -0.7707750092, 733.0766881638,-2.1899793E-04,-2.5474467E-07, 1.1521161E-09, -5.3683961, 6.8263720663, 16204.8433027325,-9.7115356E-05, 2.7023515E-08,-1.3414795E-10,-5.3112784, 3.9403341353, 17390.4595376141, 8.5627574E-05, 2.4607756E-07,-1.2205621E-09, -5.0759179, 0.6845236457, 523.5272223331, 2.1367016E-04, 2.5597745E-07,-1.2609955E-09, -4.8396143, -1.6710309265, -7805.1642023920, 6.1357413E-05, 5.5663398E-09,-7.4656459E-11, -4.8057401, 3.5705615768, -662.0890125485, 3.0927234E-05, 3.6923410E-08,-1.7458141E-10,3.9840545, 8.6945689615, 33419.5404318159, 3.9291696E-04, 7.4628340E-07,-3.5388005E-09, 3.6744619, 19.1659620415, 22652.0424227274,-6.8354947E-05, 1.3284380E-07,-6.3767543E-10, 2.9984815, 20.0662179587, 31190.2833132833,-3.4871029E-04,-1.2746721E-07, 5.8909710E-10, 2.7986413, -2.5281611620,-16971.7070481963, 3.4437664E-04, 2.6526096E-07,-1.2469893E-09,2.4138774, 17.7106633865, 22861.5918885581,-5.0102304E-04,-3.7787833E-07, 1.7754362E-09, 2.1863132, 5.5132179088, -9757.6441827375, 1.2587576E-04, 7.8796768E-08,-3.6937954E-10, 2.1461692, 13.4801375428, 23766.6709819937, 3.0245868E-04, 5.6971910E-07,-2.7016242E-09, 1.7659832, 11.1677086523, 14809.6776020201, 1.5280981E-04, 3.1869159E-07,-1.4608454E-09,-1.6244212, 7.3137297434, 7318.8375983742,-4.3483492E-04,-4.4182525E-07, 2.0841655E-09, 1.5813036, 5.4387584720, 16552.6081165349, 5.2095955E-04, 7.5618329E-07,-3.5792340E-09, 1.5197528, 16.7359480324, 40633.6032972747, 1.7441609E-04, 5.5981921E-07,-2.6611908E-09, 1.5156341, 1.7023646816,-17876.7861416319,-4.5910508E-04,-6.8233647E-07, 3.2300712E-09,1.5102092, 5.4977296450, 8399.6847301375,-3.3094061E-05, 3.1973462E-08,-1.5436468E-10, -1.3178223, 9.6261586339, 16275.8309783478,-2.8518605E-04,-1.9079775E-07, 8.4338673E-10, -1.2642739, 11.9817132061, 24604.5224030729,-1.3287330E-04, 5.9613369E-08,-3.4295235E-10, 1.1918723, 22.4217725310, 39518.9747380084,-1.9639754E-04, 1.2294390E-07,-5.9724197E-10,1.1346110, 14.4235191419, 31676.6099173011, 2.4767216E-05, 3.0879170E-07,-1.4204120E-09, 1.0857810, 8.8552797618, 5852.6842220465, 3.1609367E-06, 6.7664088E-08,-2.2006663E-10, -1.0193852, 7.2392703065, 33629.0898976466,-3.9751134E-05, 2.3556127E-07,-1.1256889E-09, -0.8227141, 11.0814572888, 16066.2815125171, 1.4748204E-04, 3.1992438E-07,-1.5697249E-09,0.8042238, 3.5274358950, -33.7870573000, 2.8263353E-05, 3.7539802E-08,-2.2902113E-10, 0.8025939, 6.7832463846, 16833.1452579809,-9.9779237E-05, 2.7639907E-08,-1.8858767E-10, -0.7931866, -6.3821400710,-24462.5470518423,-2.4326809E-04,-4.9525589E-07, 2.2980217E-09, -0.7910153, 6.3703481443, -591.1013369332,-1.5714346E-04,-1.8089785E-07, 8.0295327E-10,-0.6674056, 9.1819266386, 24533.5347274576, 5.5197395E-05, 2.7743463E-07,-1.3204870E-09, 0.6502226, 4.1010449356,-10176.3966721553,-3.0412845E-04,-4.3254175E-07, 2.0981718E-09, -0.6388131, 6.2958887075, 25719.1509623392, 2.3794032E-04, 4.9648867E-07,-2.4069012E-09}
local M21={0.0743000, 11.9537467337, 6480.9861772950, 4.9705523E-07, 6.8280480E-08,-2.7450635E-10, 0.0304300, 8.7259027166, 7737.5900877920,-4.8307078E-06, 6.9513264E-08,-3.8338581E-10, 0.0222900, 12.8540026510, 15019.2270678508,-2.7985829E-04,-1.9203053E-07, 9.5226618E-10, 0.0199900, 15.2095572232, 23347.9184925760,-1.2754553E-04, 5.8380585E-08,-2.3407289E-10,0.0186900, 9.5981921614, -1847.7052474301,-1.5181570E-04,-1.8213063E-07, 9.1183272E-10, 0.0169600, 7.1681781524, 16133.8556271171, 9.0955337E-05, 2.4484477E-07,-1.1116826E-09, 0.0162300, 1.5847795630, 9061.7681128890,-6.6685176E-05,-4.3335556E-09,-3.4222998E-11, 0.0141900, -0.7707750092, 733.0766881638,-2.1899793E-04,-2.5474467E-07, 1.1521161E-09}
local M30={385000.5290396, 1.5707963268, 0.0000000000, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,-20905.3551378, 3.9263508990, 8328.6914247251, 1.5231275E-04, 2.5041111E-07,-1.1863391E-09,-3699.1109330, 9.6121753977, 7214.0628654588,-2.1850087E-04,-1.8646419E-07, 8.7760973E-10,-2955.9675626, 11.9677299699, 15542.7542901840,-6.6188121E-05, 6.3946925E-08,-3.0872935E-10,-569.9251264, 6.2819054713, 16657.3828494503, 3.0462550E-04, 5.0082223E-07,-2.3726782E-09, 246.1584797, 7.2566208254, -1114.6285592663,-3.7081362E-04,-4.3687530E-07, 2.0639488E-09, -204.5861179, 12.0108556517, 14914.4523349355,-6.3524240E-05, 6.3330532E-08,-2.5428962E-10, -170.7330791, 14.3232845422, 23871.4457149091, 8.6124629E-05, 3.1435804E-07,-1.4950684E-09,-152.1378118, 9.6553010794, 6585.7609102104,-2.1583699E-04,-1.8708058E-07, 9.3204945E-10, -129.6202242, -0.8278839272, -7700.3894694766,-1.5497663E-04,-2.4979472E-07, 1.1318993E-09, 108.7427014, 6.7692631483, 7771.3771450920,-3.3094061E-05, 3.1973462E-08,-1.5436468E-10, 104.7552944, 3.8832252173, 8956.9933799736, 1.4964887E-04, 2.5102751E-07,-1.2407788E-09,79.6605685, 0.6705404095, -8538.2408905558, 2.8035534E-04, 2.6031101E-07,-1.2267725E-09, 48.8883284, 1.5276706450, 628.3019552485,-2.6638815E-06, 6.1639211E-10,-5.4439728E-11, -34.7825237, 20.0091090408, 22756.8171556428,-2.8468899E-04,-1.2251727E-07, 5.6888037E-10, 30.8238599, 11.9246042882, 16171.0562454324,-6.8852003E-05, 6.4563317E-08,-3.6316908E-10,24.2084985, 9.5690497159, 7842.3648207073,-2.2116475E-04,-1.8584780E-07, 8.2317000E-10, -23.2104305, 8.6374600436, 24986.0742741754, 4.5693825E-04, 7.5123334E-07,-3.5590172E-09, -21.6363439, 17.6535544685, 14428.1257309177,-4.3700174E-04,-3.7292838E-07, 1.7552195E-09, -16.6747239, 6.7261374666, 8399.6791003405,-3.5757942E-05, 3.2589854E-08,-2.0880440E-10,14.4026890, 4.9010662531, -9443.3199839914,-5.2312637E-04,-6.8728642E-07, 3.2502879E-09, -12.8314035, 14.3664102239, 23243.1437596606, 8.8788511E-05, 3.1374165E-07,-1.4406287E-09, -11.6499478, 22.3646636130, 31085.5085803679,-1.3237624E-04, 1.2789385E-07,-6.1745870E-10, -10.4447578, 16.6788391144, 32200.1371396342, 2.3843738E-04, 5.6476915E-07,-2.6814075E-09,10.3211071, 8.7119194804, -1324.1780250970, 6.1854469E-05, 7.3846820E-08,-3.4916281E-10, 10.0562033, 7.2997465071, -1742.9305145148,-3.6814974E-04,-4.3749170E-07, 2.1183885E-09, -9.8844667, 12.0539813334, 14286.1503796870,-6.0860358E-05, 6.2714140E-08,-1.9984990E-10, 8.7515625, 6.3563649081, -9652.8694498221,-9.0458282E-05,-1.7656429E-07, 8.3717626E-10,-8.3791067, 4.4137085761, -557.3142796331,-1.8540681E-04,-2.1843765E-07, 1.0319744E-09, -7.0026961, -3.1834384995,-16029.0808942018,-3.0728938E-04,-5.0020584E-07, 2.3182384E-09, 6.3220032, 9.1248177206, 16100.0685698171, 1.1921869E-04, 2.8238458E-07,-1.3407038E-09, 5.7508579, 6.2387797896, 17285.6848046987, 3.0196162E-04, 5.0143862E-07,-2.4271179E-09,-4.9501349, 9.6984267611, 5957.4589549619,-2.1317311E-04,-1.8769697E-07, 9.8648918E-10, -4.4211770, 3.0260949818, -209.5494658307, 4.3266809E-04, 5.1072212E-07,-2.4131116E-09, 4.1311145, 11.0674740526, 7004.5133996281, 2.1416722E-04, 3.2425793E-07,-1.5355019E-09, -3.9579827, 20.0522347225, 22128.5152003943,-2.8202511E-04,-1.2313366E-07, 6.2332010E-10,3.2582371, 14.8106422192, 14985.4400105508,-2.5159493E-04,-1.5449073E-07, 7.2324505E-10, -3.1483020, 4.8266068163, 16866.9323152810,-1.2804259E-04,-9.8998954E-09, 4.0433461E-11, 2.6164092, 14.2801588604, 24499.7476701576, 8.3460748E-05, 3.1497443E-07,-1.5495082E-09, 2.3536310, 9.5259240342, 8470.6667759558,-2.2382863E-04,-1.8523141E-07, 7.6873027E-10,-2.1171283, -0.8710096090, -7072.0875142282,-1.5764051E-04,-2.4917833E-07, 1.0774596E-09, -1.8970368, 17.6966801503, 13799.8237756692,-4.3433786E-04,-3.7354477E-07, 1.8096592E-09, -1.7385258, 2.0581540038, -8886.0057043583,-3.3771956E-04,-4.6884877E-07, 2.2183135E-09, -1.5713944, 22.4077892948, 30457.2066251194,-1.2971236E-04, 1.2727746E-07,-5.6301898E-10,-1.4225541, 24.7202181853, 39414.2000050930, 1.9936508E-05, 3.7830496E-07,-1.8037978E-09, -1.4189284, 17.1661967915, 23314.1314352759,-9.9282182E-05, 9.5920387E-08,-4.6309403E-10, 1.1655364, 3.8400995356, 9585.2953352221, 1.4698499E-04, 2.5164390E-07,-1.2952185E-09, -1.1169371, 10.9930146158, 33314.7656989005, 6.0925100E-04, 1.0016445E-06,-4.7453563E-09,1.0656723, 1.4845449633, 1256.6039104970,-5.3277630E-06, 1.2327842E-09,-1.0887946E-10, 1.0586190, 11.9220903668, 8364.7398411275,-2.1850087E-04,-1.8646419E-07, 8.7760973E-10, -0.9333176, 9.0816920389, 16728.3705250656, 1.1655481E-04, 2.8300097E-07,-1.3951435E-09, 0.8624328, 12.4550876470, 6656.7485858257,-4.0390768E-04,-4.0490184E-07, 1.9095841E-09,0.8512404, 4.3705828944, 70.9876756153,-1.8807069E-04,-2.1782126E-07, 9.7753467E-10, -0.8488018, 16.7219647962, 31571.8351843857, 2.4110126E-04, 5.6415276E-07,-2.6269678E-09, -0.7956264, 3.5134526588, -9095.5551701890, 9.4948529E-05, 4.1873358E-08,-1.9479814E-10}
local M31={0.5139500, 12.0108556517, 14914.4523349355,-6.3524240E-05, 6.3330532E-08,-2.5428962E-10, 0.3824500, 9.6553010794, 6585.7609102104,-2.1583699E-04,-1.8708058E-07, 9.3204945E-10, 0.3265400, 3.9694765808, 7700.3894694766, 1.5497663E-04, 2.4979472E-07,-1.1318993E-09, 0.2639600, 0.7416325637, 8956.9933799736, 1.4964887E-04, 2.5102751E-07,-1.2407788E-09,0.1230200, -1.6139220085, 628.3019552485,-2.6638815E-06, 6.1639211E-10,-5.4439728E-11, 0.0775400, 8.7830116346, 16171.0562454324,-6.8852003E-05, 6.4563317E-08,-3.6316908E-10, 0.0606800, 6.4274570623, 7842.3648207073,-2.2116475E-04,-1.8584780E-07, 8.2317000E-10, 0.0497000, 12.0539813334, 14286.1503796870,-6.0860358E-05, 6.2714140E-08,-1.9984990E-10}
--月球平黄经系数
local M1n={3.81034392032, 8.39968473021E+03,-3.31919929753E-05,3.20170955005E-08,-1.53637455544E-10 }--==================日位置计算===================
--调用Enn前先设置EnnT时间变量
local EnnT=0
--计算E10,E11,E20等,即:某一组周期项或泊松项算出,计算前先设置EnnT时间
local function Enn(F)local ilocal v=0for i=1,#F,3 dov=v+F[i]*math.cos(F[i+1]+EnnT*F[i+2])--print('Fsize='..#F, 'i='..i, 'v='..v, 'F[i]='..F[i], 'm='..math.cos(F[i+1]+EnnT*F[i+2]))endreturn v
end--返回地球位置,日心Date黄道分点坐标
local function earCal(jd)EnnT=jd/365250--print('EnnT='..EnnT)local llr={}local t1=EnnTlocal t2=t1*t1local t3=t2*t1local t4=t3*t1local t5=t4*t1--print('t1='..t1, 't2='..t2, 't3='..t3, 't4='..t4, 't5='..t5)llr[1] =Enn(E10) +Enn(E11)*t1 +Enn(E12)*t2 +Enn(E13)*t3 +Enn(E14)*t4 +Enn(E15)*t5--print('sppp')llr[2] =Enn(E20) +Enn(E21)*t1--print('eppp')llr[3] =Enn(E30) +Enn(E31)*t1 +Enn(E32)*t2 +Enn(E33)*t3llr[1]=rad2mrad(llr[1])--print('llr[0]='..llr[1], 'llr[1]='..llr[2], 'llr[2]='..llr[3])return llr
end--传回jd时刻太阳的地心视黄经及黄纬
local function sunCal2(jd)--计算太阳真位置local sun=earCal(jd)sun[1]=sun[1] + math.pisun[2]=-sun[2]local d=nutation(jd)--补章动sun[1]=rad2mrad(sun[1]+d.Lon)--补周年黄经光行差addGxc(jd,sun)--返回太阳视位置return sun
end--==================月位置计算===================
--调用Mnn前先设置MnnT时间变量
local MnnT=0
--计算M10,M11,M20等,计算前先设置MnnT时间
local function Mnn(F)local ilocal v=0local t1=MnnTlocal t2=t1*t1local t3=t2*t1local t4=t3*t1for i=1,#F,6 dov=v+F[i]*math.sin(F[i+1] +t1*F[i+2] +t2*F[i+3] +t3*F[i+4] +t4*F[i+5])endreturn v
end--返回月球位置,返回地心Date黄道坐标
local function moonCal(jd)MnnT=jd/36525local t1=MnnTlocal t2=t1*t1local t3=t2*t1local t4=t3*t1local llr={}llr[1] =(Mnn(M10) +Mnn(M11)*t1 +Mnn(M12)*t2)/radllr[2] =(Mnn(M20) +Mnn(M21)*t1)/radllr[3] =(Mnn(M30) +Mnn(M31)*t1)*0.999999949827llr[1] =llr[1] +M1n[1] +M1n[2]*t1 +M1n[3]*t2 +M1n[4]*t3 +M1n[5]*t4--地心Date黄道原点坐标(不含岁差)llr[1] =rad2mrad(llr[1])--补岁差addPrece(jd,llr)return llr
end--传回月球的地心视黄经及视黄纬
local function moonCal2(jd)local moon=moonCal(jd)local d=nutation(jd)--补章动moon[1]=rad2mrad(moon[1]+d.Lon)return moon
end--传回月球的地心视赤经及视赤纬
local function moonCal3(jd)local moon=moonCal(jd)HCconv(moon,hcjj1(jd))--补赤经及赤纬章动nutationRaDec(jd,moon)--如果黄赤转换前补了黄经章动及交章动,就不能再补赤经赤纬章动return moon
end--==================地心坐标中的日月位置计算===================
local function jiaoCai(lx,t,jiao)--lx=1时计算t时刻日月角距与jiao的差, lx=0计算t时刻太阳黄经与jiao的差--计算太阳真位置(先算出日心坐标中地球的位置)local sun=earCal(t)--转为地心坐标sun[1]=sun[1] + math.pisun[2]=-sun[2]--补周年光行差addGxc(t,sun)--print('sun[1]='..sun[1], 'sun[2]='..sun[2])if lx==0 then--补黄经章动local d=nutation(t)sun[1]=sun[1] + d.Lonreturn rad2mrad(jiao-sun[1])else--日月角差与章动无关local moon=moonCal(t)return rad2mrad(jiao-(moon[1]-sun[1]))end
end--==================已知位置反求时间===================
local function jiaoCal(t1,jiao,lx) --t1是J2000起算儒略日数--已知角度(jiao)求时间(t)--lx=0是太阳黄经达某角度的时刻计算(用于节气计算)--lx=1是日月角距达某角度的时刻计算(用于定朔望等)--传入的t1是指定角度对应真时刻t的前一些天--对于节气计算,应满足t在t1到t1+360天之间,对于Y年第n个节气(n=0是春分),t1可取值Y*365.2422+n*15.2--对于朔望计算,应满足t在t1到t1+25天之间,在此范围之外,求右边的根local t2=t1local t=0local vif lx==0 then--在t1到t2范围内求解(范气360天范围),结果置于tt2=t2+360elset2=t2+25end--待搜索目标角jiao=jiao*math.pi/180--利用截弦法计算--v1,v2为t1,t2时对应的黄经local v1=jiaoCai(lx,t1,jiao)local v2=jiaoCai(lx,t2,jiao)if v1<v2 then--减2pi作用是将周期性角度转为连续角度v2=v2 - 2*math.piend--k是截弦的斜率local k=1local k2local i--快速截弦求根,通常截弦三四次就已达所需精度for i=1,10 do--算出斜率k2=(v2-v1)/(t2-t1)if math.abs(k2)>1e-15 then--差商可能为零,应排除k=k2end--直线逼近法求根(直线方程的根)t=t1-v1/kv=jiaoCai(lx,t,jiao)--一次逼近后,v1就已接近0,如果很大,则应减1周if v>1 thenv=v-2*math.piendif math.abs(v)<1e-8 then--已达精度breakend--下一次截弦t1=t2v1=v2t2=tv2=vendreturn t
end--==================节气计算===================--返回一年中各个节气的时间表，从春分开始，y是阳历的年分/北京时
local function jqFromChunFen(y)local ilocal jd=365.2422*(y-2000)local qlocal jq = {}for i=0,23 do--计算第i个节气(i=0是春分),结果转为北京时q=jiaoCal(jd+i*15.2,i*15,0)+J2000+8/24--将节气时转成世界时JDate:setFromJD(q,1)jq[i+1] = JDate:JQ()endreturn jq
end--返回一年的二十四个节气,从立春开始，y是阳历的年分/北京时
local function jqFromLiChun(y)--上一年local jq1 = jqFromChunFen(y-1)-- 当年local jq2 = jqFromChunFen(y)local jq = {}for i=1,3 dojq[i] = jq1[i+21]endfor i=1,21 dojq[i+3] = jq2[i]endreturn jq
end--==================节气暂存，用于快速查询===================
--初始化当前年份前后三年内的节气数据
local function jq3Y_Build()--取日期：20230508local date_YYYYMMDD = os.date("%Y%m%d")--取年: 2023local date_y=os.date("%Y")--取月: 05local date_m=os.date("%m")--取日: 08local date_d=os.date("%d")local jq_lastYear = jqFromChunFen(date_y-1)local jq_thisYear = jqFromChunFen(date_y)local jq_nextYear = jqFromChunFen(date_y+1)local ifor i=1,24 dojq3Y[i] = jq_lastYear[i]jqN3Y[i] = jqB[i]endfor i=1,24 dojq3Y[24+i] = jq_thisYear[i]jqN3Y[24+i] = jqB[i]endfor i=1,24 dojq3Y[48+i] = jq_nextYear[i]jqN3Y[48+i] = jqB[i]end
end-- 以 jbB 为 base，创建jqIdx查询字典，用于快速查询某一给定的节气在jqB中的索引位置
local jqIdxDic={}
local function jqIdxBuild()local idxfor idx=1,#jqB dojqIdxDic[jqB[idx]] = idxend
end--根据指定的时间基准，获取此时间之后的jq信息，返回两个table：timeList, nameList
local function jqComming(t)local timeList = {}local nameList = {}t = t or os.time()local tBase = os.time()if type(t) == type(tBase) thentBase = tendtBase = os.time()local tBaseStruct = os.date('!*t',tBase)if tBase>43200 then--校准tBase到00:00:00tBase = os.time({year=tBaseStruct.year,month=tBaseStruct.month,day=tBaseStruct.day,hour=0})endlocal idxfor idx=1,#jq3Y doif jq3Y[idx]>=tBase thentable.insert(timeList,jq3Y[idx])table.insert(nameList,jqN3Y[idx])endendreturn timeList,nameList
end--获取给定的节气名称在 jbB中的索引位置，这个主要用于查询某个关键字是否是一个节气名称
local function jqIdxByName(jqName)return jqIdxDic[jqName] or 0
end--根据给定的一个时间戳，查询这天是否存在节气
local function jqInfoByTime(t)t = t or os.time()local thisDay = os.date("%Y%m%d",t)local idx = 1for idx=1,#jq3Y doif thisDay == os.date("%Y%m%d",jq3Y[idx]) thenreturn jq3Y[idx],jqN3Y[idx]endendreturn 0,''
end--这个函数将建立节气列表，用于节气信息的查询
local function jqListBuild()jq3Y_Build()jqIdxBuild()
endlocal function test(printPrefix)if nil == printPrefix thenprintPrefix = ''end--调用引用模块的 test 方法--开始本模块的 test 方法print(printPrefix..'test in lunarJieQiModule start')end--=========================模块化封装=========================
local M={}
function M.init(...)--抛出功能函数M.jqListBuild = jqListBuildM.jqFromChunFen = jqFromChunFenM.jqComming = jqCommingM.jqIdxByName = jqIdxByNameM.jqInfoByTime = jqInfoByTimeM.setDbg = setDbgM.test = test
endM.init()return M

👆以上的脚本中，我们实现了计算二十四节气的功能，并且整理出了一些函数方法，例如计算当前日期开始的节气序列，例如检索指定的节气信息等。这为下游的其它脚本提供了极大的便利。

lunarModule.lua

lunarModule.lua 脚本实现了农历日期的计算，lunarModule.lua文档的脚本如下👇：

--此处获取农历的代码来自博客
--https://blog.csdn.net/BlueMustard/article/details/120907984local dbgFlg = false--引入24节气计算模块
local ok, jq = pcall(require, 'lunarjieQiModule')local function setDbg(flg,printPrefix)dbgFlg = flgif nil == printPrefix thenprintPrefix = ''end--设置引用子模块的 dbgFlgjq.setDbg(flg,' '..printPrefix)if flg thenprint(printPrefix..'flg in lunarJieQiModule is true')end
end--天干名称
local tianGan = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"}
--地支名称
local diZhi = {"子","丑","寅","卯","辰","巳","午", "未","申","酉","戌","亥"}
--属相名称
local shengXiao = {"鼠","牛","虎","兔","龙","蛇", "马","羊","猴","鸡","狗","猪"}
--农历日期名
local lunarDayShuXu = {"初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","二十","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十"}--农历月份名
local lunarMonthShuXu = {"正","二","三","四","五","六", "七","八","九","十","冬","腊"}local daysToMonth365= {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334}
local daysToMonth366= {0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335}--每个农历月所属的季节名称和季节符号表
local jiJieNames = {'春','春','春','夏','夏','夏','秋','秋','秋','冬','冬','冬'}
local jiJieLogos = {'🌱','🌱','🌱','🌾','🌾','🌾','🍂','🍂','🍂','❄','❄','❄'}--[[dateLunarInfo说明：
自1901年起，至2100年每年的农历信息，与万年历核对完成
每年第1个数字为闰月月份
每年第2、3个数字为当年春节所在的阳历月份和日期
每年第4个数字为当年中对应月分的大小进，左边起为1月，往后依次为2月，3月，4月，。。。]]
local BEGIN_YEAR = 1901
local NUMBER_YEAR = 199
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}}--将给定的十进制数转为二进制字符串
local function dec2Bin(num)local str = ""local tmp = numwhile (tmp > 0) doif (tmp % 2 == 1) thenstr = str.."1"elsestr = str.."0"endtmp = math.modf(tmp / 2)endstr = string.reverse(str)return str
end--将给定的两个十进制数转换为两个长度相等的二进制字符串
local function dec2BinWithSameLen(num1, num2)local str1 = dec2Bin(num1)local str2 = dec2Bin(num2)local len1 = string.len(str1)local len2 = string.len(str2)local len = 0local x = 0--长度较短的字符串前方补零if (len1 > len2) thenx = len1 - len2for i = 1, x dostr2 = "0"..str2endlen = len1elseif (len2 > len1) thenx = len2 - len1for i = 1, x dostr1 = "0"..str1endlen = len2endlen = len1return str1, str2, len
end--将给定的两个十进制数，进行按位与运算，返回算结果
local function bitAnd(num1, num2)local str1, str2, len = dec2BinWithSameLen(num1, num2)local rtmp = ""for i = 1, len dolocal st1 = tonumber(string.sub(str1, i, i))local st2 = tonumber(string.sub(str2, i, i))if(st1 == 0) thenrtmp = rtmp.."0"elseif (st2 ~= 0) thenrtmp = rtmp.."1"elsertmp = rtmp.."0"endendendreturn tonumber(rtmp,2)
end--判断所在年份是否为闰年
local function IsLeapYear(solarYear)if solarYear%4 ~= 0 thenreturn 0endif solarYear%100 ~= 0 thenreturn 1endif solarYear%400 == 0 thenreturn 1endreturn 0
endlocal function getYearInfo(lunarYear,index)if lunarYear < BEGIN_YEAR or lunarYear > BEGIN_YEAR + NUMBER_YEAR - 1 thenreturnendreturn dateLunarInfo[lunarYear-1901+1][index]
end--计算指定公历日期是这一年中的第几天
local function daysCntInSolar(solarYear,solarMonth,solarDay)local daysToMonth = daysToMonth365if solarYear % 4 == 0 thenif solarYear % 100 ~= 0 thendaysToMonth = daysToMonth366endif solarYear % 400 == 0 thendaysToMonth = daysToMonth366endendreturn daysToMonth[solarMonth] + solarDay
end--[[根据指定的阳历日期，返回一个农历日期的结构体，结构如下：
lunarDate.solarYear：对应的阳历日期年份
lunarDate.solarMonth：对应的阳历日期月份
lunarDate.solarDay：对应的阳历日期日期
lunarDate.solarDate_YYYYMMDD：对应的阳历日期 YYYYMMDD
lunarDate.year：对应农历年份
lunarDate.month：对应农历月份
lunarDate.day：对应农历的日期
lunarDate.leap：是否为农历的闰年
lunarDate.year_shengXiao：用生肖表示的农历年份
lunarDate.year_ganZhi：用干支表示的农历年份
lunarDate.month_shuXu：农历月份的名称
lunarDate.month_ganZhi：用干支表示的农历月份
lunarDate.day_shuXu：农历日期的名称
lunarDate.day_ganZhi：用干支表示的农历日期
lunarDate.lunarDate_YYYYMMDD：以 YYYYMMDD 格式表示的农历日期
lunarDate.lunarDate_1：癸卯年四月十一
lunarDate.lunarDate_2：兔年四月十一
lunarDate.lunarDate_3：癸卯年四月丁亥日
lunarDate.lunarDate_4：癸卯(兔)年四月十一
lunarDate.jiJieName: 日期所属的季节名称
lunarDate.jiJieLogo：日期所属的季节的符号
]]
--阳历转阴历
local function solar2Lunar(solarYear,solarMonth,solarDay)local lunarDate = {}lunarDate.solarYear = solarYearlunarDate.solarMonth = solarMonthlunarDate.solarDay = solarDaylunarDate.solarDate=''lunarDate.solarDate_YYYYMMDD = ''lunarDate.year=solarYearlunarDate.month=0lunarDate.day=0lunarDate.leap=falselunarDate.year_shengXiao=''lunarDate.year_ganZhi=''lunarDate.month_shuXu=''lunarDate.month_ganZhi=''lunarDate.day_shuXu=''lunarDate.day_ganZhi=''lunarDate.lunarDate_YYYYMMDD=''lunarDate.lunarDate_1=''lunarDate.lunarDate_2=''lunarDate.lunarDate_3=''lunarDate.lunarDate_4=''lunarDate.jiJieName = ''lunarDate.jiJieLogo = ''--确定当前日期相对于2000年1月7日的天数，此日期是一个甲子记日的起点local tBase = os.time({year=2000,month=1,day=7})local tThisDay = os.time({year=math.min(solarYear,2037),month=solarMonth,day=solarDay})lunarDate.daysToBase = math.floor((tThisDay-tBase)/86400)lunarDate.solarDate_YYYYMMDD = os.date("%Y%m%d",tThisDay)if lunarDate.solarYear <= BEGIN_YEAR or lunarDate.solarYear > BEGIN_YEAR + NUMBER_YEAR- 1 thenreturn lunarDateend--春节的公历日期local solarMontSpring = getYearInfo(lunarDate.year,2)local solarDaySpring = getYearInfo(lunarDate.year,3)--计算这天是公历年的第几天local daysCntInSolarThisDate = daysCntInSolar(solarYear, solarMonth, solarDay)--计算春节是公历年的第几天local daysCntInSolarSprint = daysCntInSolar(solarYear, solarMontSpring, solarDaySpring)--计算这天是农历年的第几天local daysCntInLunarThisDate = daysCntInSolarThisDate - daysCntInSolarSprint + 1if daysCntInLunarThisDate <= 0 then--如果 daysCntInLunarThisDate 为负，说明指定的日期在农历中位于上一年的年度内lunarDate.year = lunarDate.year-1if lunarDate.year <= BEGIN_YEAR thenreturn lunar_dateend--重新确定农历春节所在的公历日期solarMontSpring = getYearInfo(lunarDate.year,2)solarDaySpring = getYearInfo(lunarDate.year,3)--重新计算上一年春节是第几天daysCntInSolarSprint = daysCntInSolar(solarYear-1, solarMontSpring, solarDaySpring)--计算上一年共几天local daysCntInSolarTotal = daysCntInSolar(solarYear-1, 12, 31)--上一年农历年的第几天daysCntInLunarThisDate = daysCntInSolarThisDate + daysCntInSolarTotal - daysCntInSolarSprint + 1end--开始计算月份local lunarMonth = 1local lunarDaysCntInMonth = 0--dec 32768 =bin 1000000000000000，一个掩码local bitMask = 32768--大小月份的flg数据local lunarMonth30Flg = getYearInfo(lunarDate.year,4)--从正月开始，每个月进行以下计算while lunarMonth <= 13 do--计算这个月总共有多少天if bitAnd(lunarMonth30Flg,bitMask) ~= 0 thenlunarDaysCntInMonth = 30elselunarDaysCntInMonth = 29end--检查thisDate距离这个月初一的天数是否小于这个月的总天数if daysCntInLunarThisDate <= lunarDaysCntInMonth thenlunarDate.month = lunarMonthlunarDate.day = daysCntInLunarThisDatebreakelse--如果剩余天数还大于这个月的天数，则继续往下个月算daysCntInLunarThisDate = daysCntInLunarThisDate - lunarDaysCntInMonthlunarMonth = lunarMonth + 1--掩码除2，相当于bit位向右移动一位bitMask = bitMask/2endend--闰月所在的月份local leapMontInLunar = getYearInfo(lunarDate.year,1)--确定闰月信息if leapMontInLunar > 0 and leapMontInLunar < lunarDate.month then--如果存在闰月，且闰在前面判断的月份前面，则农历月份需要减 1 处理lunarDate.month = lunarDate.month - 1if leapMontInLunar == lunarDate.month then--如果恰好闰在这个月，则把闰月标记位置lunarDate.leap = trueendend--合成农历的年月日格式：20240215local tmpMonthStr = '0'..lunarDate.monthtmpMonthStr = string.sub(tmpMonthStr,(#tmpMonthStr<3 and 1 or 2),(#tmpMonthStr<3 and 2 or 3))local tmpDayStr = '0'..lunarDate.daytmpDayStr = string.sub(tmpDayStr,(#tmpDayStr<3 and 1 or 2),(#tmpDayStr<3 and 2 or 3))lunarDate.lunarDate_YYYYMMDD = lunarDate.year..tmpMonthStr..tmpDayStrlunarDate.jiJieName = jiJieNames[lunarDate.month]lunarDate.jiJieLogo = jiJieLogos[lunarDate.month]--确定年份的生肖lunarDate.year_shengXiao = shengXiao[(((lunarDate.year - 4) % 60) % 12) + 1]--确定年份的干支lunarDate.year_ganZhi = tianGan[(((lunarDate.year - 4) % 60) % 10)+1]..diZhi[(((lunarDate.year - 4) % 60) % 12) + 1]--确定月份的数序lunarDate.month_shuXu = (lunarDate.leap and '闰' or '')..lunarMonthShuXu[lunarDate.month]--确定月份的干支，暂不支持计算lunarDate.month_ganZhi = ''--确定日期的数序lunarDate.day_shuXu = lunarDayShuXu[lunarDate.day]--确定日期的干支lunarDate.day_ganZhi = tianGan[(((lunarDate.daysToBase) % 60) % 10)+1]..diZhi[(((lunarDate.daysToBase) % 60) % 12) + 1]--提供国标第一类计年表示格式lunarDate.lunarDate_1 = lunarDate.year_ganZhi..'年'..lunarDate.month_shuXu..'月'..lunarDate.day_shuXu--提供国标第二类计年表示格式lunarDate.lunarDate_2 = lunarDate.year_shengXiao..'年'..lunarDate.month_shuXu..'月'..lunarDate.day_shuXu--提供国标第三类计年表示格式lunarDate.lunarDate_3 = lunarDate.year_ganZhi..'年'..lunarDate.month_shuXu..'月'..lunarDate.day_ganZhi..'日'--提供非国标的第四类计年表示格式lunarDate.lunarDate_4 = lunarDate.year_ganZhi..'('..lunarDate.year_shengXiao..')年'..lunarDate.month_shuXu..'月'..lunarDate.day_shuXureturn lunarDate
end--通过传入的阳历时间，返回一个阴历数据结构
local function solar2LunarByTime(t)local solarDate = os.date('*t',t)return solar2Lunar(solarDate.year,solarDate.month,solarDate.day)
end--抛出 农历节气 信息，今年自今天起未来的 农历节气 信息
local function jqListComming(t)t = t or os.time()local timeBase = os.time()if type(t) == type(timeBase) thentimeBase = tendlocal lunarList = {}local jqList = {}local timeList = {}--获取 timeBase开始的农历信息local jqTimeList, jqNameList = jq.jqComming(timeBase)--整理未来的节气信息local idxlocal thisY,thisM,thisD,thisYLlocal thisLunarDatelocal jqNamelocal jqTimefor idx=1,#jqTimeList dojqName = jqNameList[idx]jqTime = jqTimeList[idx]if jqName ~= jqToday thenthisY = tonumber(os.date('%Y',jqTime))thisM = tonumber(os.date('%m',jqTime))thisD = tonumber(os.date('%d',jqTime))thisLunarDate = solar2Lunar(thisY,thisM,thisD)table.insert(lunarList,thisLunarDate.lunarDate_4)table.insert(jqList,jqName)table.insert(timeList,jqTime)endend--输出 lunar 信息return lunarList,jqList,timeList
end--[[根据指定的节气名，整理并输出这个节气的信息，节气的信息是个如下的结构体
jqInfo.jqName：节气的名称
jqInfo.jqTimeList：节气的时间序列
jqInfo.lunarList：节气的农历日期序列
]]
local function jqInfoByName(jqN)local jqInfo = {}jqInfo.jqName = jqN or ''jqInfo.jqTimeList = {}jqInfo.lunarList = {}if '' == jqInfo.jqName thenreturn jqInfoend--以 0 为参数，获取所有的节气信息local jqTimeList, jqNameList = jq.jqComming(0)local idx = 0for idx=1,#jqNameList doif jqNameList[idx] == jqInfo.jqName thentable.insert(jqInfo.jqTimeList, jqTimeList[idx])local thisLunarDate = solar2LunarByTime(jqTimeList[idx])table.insert(jqInfo.lunarList, thisLunarDate.lunarDate_4)endendreturn jqInfo
end--=========================这是测试函数=======================
local function test(printPrefix)if nil == printPrefix thenprintPrefix = ''end--调用引用模块的 test 方法res.test(' '..printPrefix)--开始本模块的 test 方法print(printPrefix..'test in lunarModule start')local idxlocal lunarList,jqList,timeList = jqListComming()print(printPrefix..'idx\tlunar\t\t\t\tjqName\t\t\t\tdateYL')for idx=1,#lunarList doprint(printPrefix..idx..'\t'..lunarList[idx]..'\t\t'..jqList[idx]..'\t\t'..os.date("%Y%m%d",timeList[idx]))end
end--=========================模块化封装=========================
local M={}
function M.init(...)--抛出功能函数M.jqListBuild = jq.jqListBuildM.jqIdxByName = jq.jqIdxByNameM.jqInfoByTime = jq.jqInfoByTimeM.jqListComming = jqListCommingM.solar2LunarByTime = solar2LunarByTimeM.jqInfoByName = jqInfoByNameM.setDbg = setDbgM.test = test
endM.init()return M

👆以上代码引用了上文中的 lunarjieQiModule.lua 脚本内的二十四节气相关模块。并整合了自身所提供了的农历日期信息，封装成了 lunarModule 模块，进一步为下游脚本提供了引用的便利。

事件信息

为了在输入事件关键字时检索显示出对应的事件信息，或者在合适的日期显示有关的事件，我们需要实现事件的记录和管理，并提供事件和日期之间映射的检索方法。为此，我们需要以下 eventsList.txt 和 eventsListModule.lua 两个文档。

eventsList.txt

eventsList.txt 文档是一个事件和时间信息的映射列表，这个文档提供了事件和时间映射关系的管理接口。eventsList.txt 文档内容截取如下👇：

# 常备节日信息，这里一般维护周期性的，相对比较稳定的事件/节日信息，例如每年 or 每月都会发生的事件
[lunar][Y][M01]-1	春节 过年	(中国)除夕
[lunar][Y]0101	春节 过年	(中国)春节
[solar][Y]0101	元旦	(中国)元旦休3天
[solar][Y]0110	警察	(中国)警察节

eventsList.txt 文档内容分三列，以tab制表符分隔，三列数据分述如下👇：

• 第一列是时间定义，关于时间的定义格式暂不成熟，暂不多表
• 第二列是事件关键字，可以有多个关键字，多关键字以空格分隔，滤镜将会响应命中的关键字
• 第三列是事件内容，即将要显示在候选项comment区的内容

eventsListModule.lua

eventsListModule.lua 脚本文档提供了将 eventsList.txt 中所列事件加载为lua 字典对象的方法，并提供一些检索的接口。eventsListModule.lua 脚本内容如下👇：

-- eventsListModule.lua
-- Copyright (C) 2023 yaoyuan.dou <douyaoyuan@126.com>
local M={}
local dbgFlg = false
--按照公历日期建立的事件索引表
local eventsDicBySolarDates={}
--按照关键字建立的事件索引表
local eventsDicListByKeyW={}--[[事件是一个结构体，每一个事件的结构如下：
e.c1：文档第一列的内容
e.c2：文档第二列的内容，如果没有内容，此为空
e.c3：文档第三列的内容，如果没有内容，此为空
e.kWs：这是文档第二列的内容通过空格切分后的关键字列表
e.time：这是事件的时间值
e.solarDate：这是事件的日期：20230102
]]--一个农历日期表，用于根据农历反查对应阳历时间，提高查询效率
local lunarDatesList = {}--引入系统变更处理模块
local ok, sysInfoRes = pcall(require, 'sysInfo')--引入农历计算模块
local ok, lunar = pcall(require, 'lunarModule')--引入日期时间计算模块
local ok, dt = pcall(require,'dateTimeModule')--设置 dbg 开关
local function setDbg(flg)flg = flg or dbgFlgdbgFlg = flgsysInfoRes.setDbg(flg)lunar.setDbg(flg)dt.setDbg(flg)print('eventsListModule dbgFlg is '..tostring(dbgFlg))
end--将这附串拆散成 table
local function stringSplit(str,sp,sp1)sp=(type(sp)=="string") and sp or " "if 0==#sp thensp="([%z\1-\127\194-\244][\128-\191]*)"elseif 1==#sp thensp="[^"..(sp=="%" and "%%" or sp).."]*"elsesp1=sp1 or "^"str=str:gsub(sp,sp1)sp="[^"..sp1.."]*"endlocal tab={}for v in str:gmatch(sp) doif ''~=v thentable.insert(tab,v)endendreturn tab
end--将一个日期字符串转换为时间值，'20230125' -> xxxxxx
local function dateStr2Time(dateStr)dateStr = dateStr or ''if #dateStr ~= 8 thendateStr = os.date("%Y%m%d")endlocal year = tonumber(string.sub(dateStr,1,4))local month = tonumber(string.sub(dateStr,5,6))local day = tonumber(string.sub(dateStr,7,8))return os.time({year=year,month=month,day=day})
end--根据指定的天数偏移量，建立农历日期序列表，以借后期快速查询农历对应的阳历日期
local function lunarDatesListBuild(preDays,posDays)if nil == preDays thenpreDays = 100endif nil == posDays thenposDays = 365endpreDays = math.max(preDays,1)posDays = math.max(posDays,1)local idx = 0local todayTime = os.date("*t")local tmpLunar,tmpSolar,tmpTime--以昨天为base，计算前preDays日期内的日期序列for idx = 1, preDays dotmpTime = os.time({year=todayTime.year,month=todayTime.month,day=todayTime.day - idx})tmpSolar = os.date("%Y%m%d",tmpTime)tmpLunar = lunar.solar2LunarByTime(tmpTime)lunarDatesList[tmpLunar.lunarDate_YYYYMMDD..(tmpLunar.leap and '.1' or '.0')] = tmpSolarend--以今天为base，计算后posDays日期内的日期序列for idx = 0, posDays dotmpTime = os.time({year=todayTime.year,month=todayTime.month,day=todayTime.day + idx})tmpSolar = os.date("%Y%m%d",tmpTime)tmpLunar = lunar.solar2LunarByTime(tmpTime)lunarDatesList[tmpLunar.lunarDate_YYYYMMDD..(tmpLunar.leap and '.1' or '.0')] = tmpSolarend
end--以指定时间为基准，计算并把该基准前 or 后指定周数的周序对应的时间值
local function timeOfWeekDayBaseOnTime0(t,wCnt,wCntType,wDay)t = t or os.time()local tBase = os.time()if type(t)==type(tBase) thentBase = tendwCnt = wCnt or 0if 0==wCnt thenwCnt = 1endwCntType = wCntType or 'w'if 'w'~=wCntType and 'W'~=wCntType thenwCntType = 'w'endwDay = wDay or 0if wDay < 0 or wDay > 6 thenwDay = 0endlocal fakeSolarDateTime = tBaselocal fakeSolarDate_wDay = tonumber(os.date("%w",fakeSolarDateTime))if wCnt > 0 then--找描点之后第 wCnt 周的位置if fakeSolarDate_wDay <= wDay thenfakeSolarDateTime=fakeSolarDateTime+(wDay-fakeSolarDate_wDay+7*(wCnt-1))*86400if 'W'==wCntType and 0~=fakeSolarDate_wDay then--如果要求整周且初一不为周日，则需要额外加7天fakeSolarDateTime = fakeSolarDateTime + 7*86400endelsefakeSolarDateTime=fakeSolarDateTime+(wDay-fakeSolarDate_wDay+7*wCnt)*86400endelse--找描点之前第 wCnt 周的位置if fakeSolarDate_wDay <= wDay thenfakeSolarDateTime = fakeSolarDateTime + (wDay-fakeSolarDate_wDay+7*wCnt)*86400elsefakeSolarDateTime = fakeSolarDateTime + (wDay-fakeSolarDate_wDay+7*(wCnt+1))*86400if 'W'==wCntType and 0~=fakeSolarDate_wDay then--如果要求整周且初一不为周日，则需要额外减7天fakeSolarDateTime = fakeSolarDateTime - 7*86400endendendreturn fakeSolarDateTime
end--[[对传入的锚点信息进行解码：[solar][Y]0315
函数返回一个锚点结构体，说明如下：
anchor.desc：锚点的描述
anchor.lunarFlg：锚点是否 base农历
anchor.solarFlg：锚点是否 base公历
anchor.yearFlg：锚点是否以 年 为循环周期
anchor.monthFlg：锚点是否以 月 为循环周期
anchor.weekFlg：锚点是否以 周 为循环周期
anchor.dayFlg：锚点是否为指定日期事件
anchor.jqFlg：锚点是否 base节气
anchor.eventFlg：锚点是否 base事件
anchor.solarDatesList：锚点解析的事件日期序列
]]
local function anchorDecode(anchorStr)local anchor = {}anchor.desc = ''anchor.lunarFlg = falseanchor.solarFlg = falseanchor.yearFlg = falseanchor.monthFlg = falseanchor.weekFlg = falseanchor.dayFlg = falseanchor.jqFlg = falseanchor.eventFlg = falseanchor.solarDatesList = {}anchorStr = anchorStr or ''if '' == anchorStr thenreturn anchorendanchor.desc = anchorStr--1.1解码公历指定日期的事件dolocal solarDate = string.match(anchor.desc,"%[solar%]%[D%](%d%d%d%d%d%d%d%d)")if nil ~= solarDate thentable.insert(anchor.solarDatesList,solarDate)anchor.solarFlg = trueanchor.dayFlg = truereturn anchorendend--2.1/2解码农历指定日期的事件dolocal lunarDate = string.match(anchor.desc,"%[lunar%]%[D%](%d%d%d%d%d%d%d%d)")if nil ~= lunarDate thenlocal solarDateOfThisLunarDateif string.find(anchor.desc,lunarDate..'%.1') then--这是一个带有.1标记的农历日期solarDateOfThisLunarDate = lunarDatesList[lunarDate..'.1']else--这是一个没有.1标记的农历日期solarDateOfThisLunarDate = lunarDatesList[lunarDate..'.0']endif nil ~= solarDateOfThisLunarDate thentable.insert(anchor.solarDatesList,solarDateOfThisLunarDate)anchor.lunarFlg = trueanchor.dayFlg = trueendreturn anchorendend--3.1/2/3解码周循环事件dolocal weekDay = string.match(anchor.desc,"%[solar%]%[[Ww]%]([0-9]+)$")if nil == weekDay thenweekDay = string.match(anchor.desc,"%[lunar%]%[[Ww]%]([0-6]+)$")endif nil ~= weekDay thenweekDay = tonumber(weekDay)if weekDay>6 thenweekDay = nilendendif nil ~= weekDay then--获取今天的周序值，距离周日的天数local daysToSundayToday = tostring(os.date('%w'))local timeBase = os.date("*t")timeBase.day = timeBase.day + weekDay - daysToSundayTodaylocal tmpTimelocal idx--前查5周的日期local preWs = 5--后查10周的日期local posWs = 10for idx = 1,preWs dotmpTime = os.date("*t",os.time(timeBase))tmpTime.day = tmpTime.day - 7*(preWs-idx+1)table.insert(anchor.solarDatesList,os.date("%Y%m%d",os.time(tmpTime)))endfor idx = 0,posWs dotmpTime = os.date("*t",os.time(timeBase))tmpTime.day = tmpTime.day + 7*idxtable.insert(anchor.solarDatesList,os.date("%Y%m%d",os.time(tmpTime)))endif 0<#anchor.solarDatesList thenanchor.solarFlg = trueanchor.weekFlg = trueendreturn anchorendend--4.1/2解码公历月循环事件dolocal daysOffset = string.match(anchor.desc,"%[solar%]%[[Mm]%](-*[0-9]+)$")if nil ~= daysOffset thendaysOffset = tonumber(daysOffset)if 0==daysOffset or daysOffset<-31 or daysOffset>31 thendaysOffset = nilendendif nil ~= daysOffset thenlocal timeBase = os.date("*t")timeBase = os.time({year=timeBase.year,month=timeBase.month,day=1})local fakeTimelocal anchorMonthlocal idx--前查12个月的日期local preMs = 12--后查12个月的日期local posMs = 10for idx = 1,preMs dofakeTime = os.date('*t',timeBase)fakeTime.month = fakeTime.month - (preMs-idx+1)local t = os.time(fakeTime)anchorMonth = tonumber(os.date("%m",t))t = t + (daysOffset-(daysOffset>0 and 1 or 0))*86400if daysOffset > 0 thenif tonumber(os.date('%m',t)) == anchorMonth thentable.insert(anchor.solarDatesList,os.date("%Y%m%d",t))endelseif daysOffset < 0 thenif tonumber(os.date('%m',t)) == (anchorMonth==1 and 12 or anchorMonth-1) thentable.insert(anchor.solarDatesList,os.date("%Y%m%d",t))endendendfor idx = 0,posMs dofakeTime = os.date('*t',timeBase)fakeTime.month = fakeTime.month + idxlocal t = os.time(fakeTime)anchorMonth = tonumber(os.date("%m",t))t = t + (daysOffset-(daysOffset>0 and 1 or 0))*86400if daysOffset > 0 thenif tonumber(os.date('%m',t)) == anchorMonth thentable.insert(anchor.solarDatesList,os.date("%Y%m%d",t))endelseif daysOffset < 0 thenif tonumber(os.date('%m',t)) == (anchorMonth==1 and 12 or anchorMonth-1) thentable.insert(anchor.solarDatesList,os.date("%Y%m%d",t))endendendif 0<#anchor.solarDatesList thenanchor.solarFlg = trueanchor.monthFlg = trueendreturn anchorendend--5.1/2解码农历月循环事件dolocal daysOffset = string.match(anchor.desc,"%[lunar%]%[[Mm]%](-*[0-9]+)$")if nil ~= daysOffset thendaysOffset = tonumber(daysOffset)if 0==daysOffset or daysOffset<-31 or daysOffset>31 thendaysOffset = nilendendif nil ~= daysOffset thenlocal lunarYear = tonumber(os.date("%Y"))local fakeLunarDatesList = {}--合成去年1-9月度的月度字符串for idx = 1,9 dotable.insert(fakeLunarDatesList,(lunarYear-1)..'0'..idx..'01.0')end--合成去年10-12月度的月度字符串for idx = 10,12 dotable.insert(fakeLunarDatesList,(lunarYear-1)..idx..'01.0')end--合成今年1-9月度的月度字符串for idx = 1,9 dotable.insert(fakeLunarDatesList,lunarYear..'0'..idx..'01.0')end--合成今年10-12月度的月度字符串for idx = 10,12 dotable.insert(fakeLunarDatesList,lunarYear..idx..'01.0')end--合成明年1-9月度的月度字符串for idx = 1,9 dotable.insert(fakeLunarDatesList,(lunarYear+1)..'0'..idx..'01.0')end--合成明年10-12月度的月度字符串for idx = 10,12 dotable.insert(fakeLunarDatesList,(lunarYear+1)..idx..'01.0')endlocal fakeSolarDatefor idx=1,#fakeLunarDatesList dofakeSolarDate = lunarDatesList[fakeLunarDatesList[idx]]local t = dateStr2Time(fakeSolarDate)local anchorMonth = tonumber(string.sub(fakeLunarDatesList[idx],5,6))t = t + (daysOffset-(daysOffset>0 and 1 or 0))*86400local lunarCheck = lunar.solar2LunarByTime(t)if daysOffset>0 thenif anchorMonth == lunarCheck.month and false==lunarCheck.leap thentable.insert(anchor.solarDatesList,os.date("%Y%m%d",t))endelseif daysOffset<0 thenif lunarCheck.month==(anchorMonth==1 and 12 or anchorMonth-1) thentable.insert(anchor.solarDatesList,os.date("%Y%m%d",t))endendendif 0<#anchor.solarDatesList thenanchor.lunarFlg = trueanchor.monthFlg = trueendreturn anchorendend--6.1解码农历年循环事件dolocal lunarYearMonth = string.match(anchor.desc,"%[lunar%]%[[Yy]%](%d%d%d%d)")if nil ~= lunarYearMonth thenlocal lm,ld = string.match(anchor.desc,"%[lunar%]%[Y%](%d%d)(%d%d)")local ly = tonumber(os.date("%Y"))--预查前2年，后2年以及本年的农历日期，不考虑闰月local fakeLunarDatesList = {(ly-2)..lm..ld..'.0',(ly-1)..lm..ld..'.0',(ly-0)..lm..ld..'.0',(ly+1)..lm..ld..'.0',(ly+2)..lm..ld..'.0'}local thisSolarDatefor idx = 1,#fakeLunarDatesList dothisSolarDate = lunarDatesList[fakeLunarDatesList[idx]]if nil ~= thisSolarDate thentable.insert(anchor.solarDatesList,thisSolarDate)endendif 0<#anchor.solarDatesList thenanchor.lunarFlg = trueanchor.yearFlg = trueendreturn anchorendend--7.1解码公历年循环事件dolocal solarYearMonth = string.match(anchor.desc,"%[solar%]%[[Yy]%](%d%d%d%d)")if nil ~= solarYearMonth thenlocal m,d = string.match(anchor.desc,"%[solar%]%[Y%](%d%d)(%d%d)")local y = tonumber(os.date("%Y"))local fakeDateStr--定义去年的事件fakeDateStr = (y - 1)..m..dif fakeDateStr == os.date("%Y%m%d",dateStr2Time(fakeDateStr)) thentable.insert(anchor.solarDatesList,fakeDateStr)end--定义今年的事件fakeDateStr = y..m..dif fakeDateStr == os.date("%Y%m%d",dateStr2Time(fakeDateStr)) thentable.insert(anchor.solarDatesList,fakeDateStr)end--定义明年的事件fakeDateStr = (y + 1)..m..dif fakeDateStr == os.date("%Y%m%d",dateStr2Time(fakeDateStr)) thentable.insert(anchor.solarDatesList,fakeDateStr)endif 0<#anchor.solarDatesList thenanchor.solarFlg = trueanchor.yearFlg = trueendreturn anchorendend--8.1/2解码锚定在农历月份+指定周序上的事件--[lunar][Y][M05][1Ww]4dolocal anchorLunarMonth,anchorWCnt,anchorWType,anchorWDay = string.match(anchor.desc,"%[[Ll]unar%]%[[Yy]%]%[[Mm]([0-9]+)%]%[(-*[0-9]+)([Ww])%]([0-9]+)$")if nil~=anchorLunarMonth and nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenanchorLunarMonth = tonumber(anchorLunarMonth)if anchorLunarMonth<1 or anchorLunarMonth>12 thenanchorLunarMonth = nilelseif anchorLunarMonth<10 thenanchorLunarMonth = '0'..anchorLunarMonthelseanchorLunarMonth = tostring(anchorLunarMonth)endanchorWCnt = tonumber(anchorWCnt)if 0==anchorWCnt thenanchorWCnt = nilendanchorWDay = tonumber(anchorWDay)if anchorWDay<0 or anchorWDay>6 thenanchorWDay = nilendendif nil~=anchorLunarMonth and nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenlocal fakeLunarYear = 0local fakeSolarDate = ''local fakeSolarDateTime = ''local fakeLunarDate = ''local idx = 0--处理去年，今年，明天三年内的事件for idx=1,3 dofakeLunarYear = tonumber(os.date('%Y'))+(idx-2)--找到农历对应月的初一，做为基准日期fakeLunarDate = fakeLunarYear..anchorLunarMonth..'01.0'fakeSolarDate = lunarDatesList[fakeLunarDate]if nil ~= fakeSolarDate thentable.insert(anchor.solarDatesList,os.date('%Y%m%d',timeOfWeekDayBaseOnTime0(dateStr2Time(fakeSolarDate),anchorWCnt,anchorWType,anchorWDay)))endendif 0<#anchor.solarDatesList thenanchor.lunarFlg = trueanchor.yearFlg = trueendreturn anchorendend--9.1/2解码锚定在公历月份+指定周序上的事件--[solar][Y][M05][1Ww]4dolocal anchorSolarMonth,anchorWCnt,anchorWType,anchorWDay = string.match(anchor.desc,"%[[Ss]olar%]%[[Yy]%]%[[Mm]([0-9]+)%]%[(-*[0-9]+)([Ww])%]([0-9]+)$")if nil~=anchorSolarMonth and nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenanchorSolarMonth = tonumber(anchorSolarMonth)if anchorSolarMonth<1 or anchorSolarMonth>12 thenanchorSolarMonth = nilelseif anchorSolarMonth<10 thenanchorSolarMonth = '0'..anchorSolarMonthelseanchorSolarMonth = tostring(anchorSolarMonth)endanchorWCnt = tonumber(anchorWCnt)if 0==anchorWCnt thenanchorWCnt = nilendanchorWDay = tonumber(anchorWDay)if anchorWDay<0 or anchorWDay>6 thenanchorWDay = nilendendif nil~=anchorSolarMonth and nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenlocal fakeSolarYear = 0local fakeSolarDate = ''local fakeSolarDateTime = ''local idx = 0--处理去年，今年，明天三年内的事件for idx=1,3 dofakeSolarYear = tonumber(os.date('%Y'))+(idx-2)--以每指定月的1号作为指定的基准日期fakeSolarDate = fakeSolarYear..anchorSolarMonth..'01'if nil ~= fakeSolarDate thentable.insert(anchor.solarDatesList,os.date('%Y%m%d',timeOfWeekDayBaseOnTime0(dateStr2Time(fakeSolarDate),anchorWCnt,anchorWType,anchorWDay)))endendif 0<#anchor.solarDatesList thenanchor.solarFlg = trueanchor.yearFlg = trueendreturn anchorendend--10.1/2/3/4解码锚定在节气上的+指定周序上的事件--[lunar][Y][JQ清明][1w]4dolocal anchorJqName,anchorWCnt,anchorWType,anchorWDay = string.match(anchor.desc,"%[[Ll]unar%]%[[Yy]%]%[[Jj][Qq](.+)%]%[(-*[0-9]+)([Ww])%]([0-9]+)$")if nil~=anchorJqName and nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenif 0==lunar.jqIdxByName(anchorJqName) thenanchorJqName = nilendanchorWCnt = tonumber(anchorWCnt)if 0==anchorWCnt thenanchorWCnt = nilendanchorWDay = tonumber(anchorWDay)if anchorWDay<0 or anchorWDay>6 thenanchorWDay = nilendendif nil~=anchorJqName and nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenlocal jqInfo = lunar.jqInfoByName(anchorJqName)if #jqInfo.jqTimeList>0 thenlocal idxfor idx =1,#jqInfo.jqTimeList do--以每一个节气的时间为指定的基准时间table.insert(anchor.solarDatesList,os.date('%Y%m%d',timeOfWeekDayBaseOnTime0(jqInfo.jqTimeList[idx],anchorWCnt,anchorWType,anchorWDay)))endendif 0<#anchor.solarDatesList thenanchor.lunarFlg = trueanchor.yearFlg = trueanchor.jqFlg = trueendreturn anchorendend--11.1/2/3/4解码锚定在公历每月+指定周序上的事件--[solar][M][2w]2dolocal anchorWCnt,anchorWType,anchorWDay = string.match(anchor.desc,"%[[Ss]olar%]%[[Mm]%]%[(-*[0-9]+)([Ww])%]([0-9]+)$")if nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenanchorWCnt = tonumber(anchorWCnt)if 0==anchorWCnt thenanchorWCnt = nilendanchorWDay = tonumber(anchorWDay)if anchorWDay<0 or anchorWDay>6 thenanchorWDay = nilendendif nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenlocal solarDateBase = os.date('*t')solarDateBase = os.date('*t',os.time({year=solarDateBase.year,month=solarDateBase.month,day=1}))local idx = 0local fakeSolarDatefor idx=1,24 dofakeSolarDate = os.date('*t',os.time(solarDateBase))fakeSolarDate.month = fakeSolarDate.month + (idx - 13)table.insert(anchor.solarDatesList,os.date('%Y%m%d',timeOfWeekDayBaseOnTime0(os.time(fakeSolarDate),anchorWCnt,anchorWType,anchorWDay)))endif 0<#anchor.solarDatesList thenanchor.solarFlg = trueanchor.monthFlg = trueendreturn anchorendend--12.1/2/3/4解码锚定在农历每月+指定周序上的事件--[lunar][M][2w]2dolocal anchorWCnt,anchorWType,anchorWDay = string.match(anchor.desc,"%[[Ll]unar%]%[[Mm]%]%[(-*[0-9]+)([Ww])%]([0-9]+)$")if nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenanchorWCnt = tonumber(anchorWCnt)if 0==anchorWCnt thenanchorWCnt = nilendanchorWDay = tonumber(anchorWDay)if anchorWDay<0 or anchorWDay>6 thenanchorWDay = nilendendif nil~=anchorWCnt and nil~=anchorWType and nil~=anchorWDay thenlocal lunarDateBase = lunar.solar2LunarByTime(os.time())local fakeLunarDate = ''local fakeSolarDate = ''local idx--处理前12个月以及后12个月的事件--第一步，处理去年的月份事件for idx=lunarDateBase.month,12 doif idx < 10 thenfakeSolarDate = lunarDatesList[(lunarDateBase.year-1)..'0'..idx..'01.0']elsefakeSolarDate = lunarDatesList[(lunarDateBase.year-1)..idx..'01.0']endif nil ~= fakeSolarDate thentable.insert(anchor.solarDatesList,os.date('%Y%m%d',timeOfWeekDayBaseOnTime0(dateStr2Time(fakeSolarDate),anchorWCnt,anchorWType,anchorWDay)))endend--第二步，处理今年的月份事件for idx=1,12 doif idx < 10 thenfakeSolarDate = lunarDatesList[lunarDateBase.year..'0'..idx..'01.0']elsefakeSolarDate = lunarDatesList[lunarDateBase.year..idx..'01.0']endif nil ~= fakeSolarDate thentable.insert(anchor.solarDatesList,os.date('%Y%m%d',timeOfWeekDayBaseOnTime0(dateStr2Time(fakeSolarDate),anchorWCnt,anchorWType,anchorWDay)))endend--第三步，处理明年的月份事件for idx=1,lunarDateBase.month doif idx < 10 thenfakeSolarDate = lunarDatesList[(lunarDateBase.year+1)..'0'..idx..'01.0']elsefakeSolarDate = lunarDatesList[(lunarDateBase.year+1)..idx..'01.0']endif nil ~= fakeSolarDate thentable.insert(anchor.solarDatesList,os.date('%Y%m%d',timeOfWeekDayBaseOnTime0(dateStr2Time(fakeSolarDate),anchorWCnt,anchorWType,anchorWDay)))endendif 0<#anchor.solarDatesList thenanchor.lunarFlg = trueanchor.monthFlg = trueendreturn anchorendend--13.1解码锚定在农历指定月+指定天数上的事件--[lunar][Y][M05]4dolocal anchorMonth,anchorDayOffset = string.match(anchor.desc,"%[[Ll]unar%]%[[Yy]%]%[[Mm]([0-9]+)%](-*[0-9]+)$")if nil~=anchorMonth and nil~=anchorDayOffset thenanchorMonth = tonumber(anchorMonth)if anchorMonth<1 or anchorMonth>12 thenanchorMonth = nilendanchorDayOffset = tonumber(anchorDayOffset)if 0==anchorDayOffset thenanchorDayOffset = nilendendif nil~=anchorMonth and nil~=anchorDayOffset thenlocal lunarDateBase = lunar.solar2LunarByTime(os.time())local fakeSolarDate = ''--第一步，处理去年的事件if anchorMonth < 10 thenfakeSolarDate = lunarDatesList[(lunarDateBase.year-1)..'0'..anchorMonth..'01.0']elsefakeSolarDate = lunarDatesList[(lunarDateBase.year-1)..anchorMonth..'01.0']endif nil ~= fakeSolarDate thenfakeSolarDate = os.date('*t',dateStr2Time(fakeSolarDate))fakeSolarDate.day = fakeSolarDate.day + anchorDayOffset - (anchorDayOffset>0 and 1 or 0)table.insert(anchor.solarDatesList,os.date('%Y%m%d',os.time(fakeSolarDate)))end--第二步，处理今年的事件if anchorMonth < 10 thenfakeSolarDate = lunarDatesList[lunarDateBase.year..'0'..anchorMonth..'01.0']elsefakeSolarDate = lunarDatesList[lunarDateBase.year..anchorMonth..'01.0']endif nil ~= fakeSolarDate thenfakeSolarDate = os.date('*t',dateStr2Time(fakeSolarDate))fakeSolarDate.day = fakeSolarDate.day + anchorDayOffset - (anchorDayOffset>0 and 1 or 0)table.insert(anchor.solarDatesList,os.date('%Y%m%d',os.time(fakeSolarDate)))end--第三步，处理明年的事件if anchorMonth < 10 thenfakeSolarDate = lunarDatesList[(lunarDateBase.year+1)..'0'..anchorMonth..'01.0']elsefakeSolarDate = lunarDatesList[(lunarDateBase.year+1)..anchorMonth..'01.0']endif nil ~= fakeSolarDate thenfakeSolarDate = os.date('*t',dateStr2Time(fakeSolarDate))fakeSolarDate.day = fakeSolarDate.day + anchorDayOffset - (anchorDayOffset>0 and 1 or 0)table.insert(anchor.solarDatesList,os.date('%Y%m%d',os.time(fakeSolarDate)))endif 0<#anchor.solarDatesList thenanchor.lunarFlg = trueanchor.yearFlg = trueendreturn anchorendend--14.1解码锚定在公历指定月+指定天数上的事件--[solar][Y][M05]4dolocal anchorMonth,anchorDayOffset = string.match(anchor.desc,"%[[Ss]olar%]%[[Yy]%]%[[Mm]([0-9]+)%](-*[0-9]+)$")if nil~=anchorMonth and nil~=anchorDayOffset thenanchorMonth = tonumber(anchorMonth)if anchorMonth<1 or anchorMonth>12 thenanchorMonth = nilendanchorDayOffset = tonumber(anchorDayOffset)if 0==anchorDayOffset thenanchorDayOffset = nilendendif nil~=anchorMonth and nil~=anchorDayOffset thenlocal solarDateBase = os.date('*t')local fakeSolarDate--第一步，处理去年的事件fakeSolarDate = os.date('*t',os.time({year=solarDateBase.year,month=anchorMonth,day=1}))fakeSolarDate.year = fakeSolarDate.year - 1fakeSolarDate.day = fakeSolarDate.day + anchorDayOffset - (anchorDayOffset>0 and 1 or 0)table.insert(anchor.solarDatesList,os.date('%Y%m%d',os.time(fakeSolarDate)))--第二步，处理今年的事件fakeSolarDate = os.date('*t',os.time({year=solarDateBase.year,month=anchorMonth,day=1}))fakeSolarDate.day = fakeSolarDate.day + anchorDayOffset - (anchorDayOffset>0 and 1 or 0)table.insert(anchor.solarDatesList,os.date('%Y%m%d',os.time(fakeSolarDate)))--第三步，处理明年的事件fakeSolarDate = os.date('*t',os.time({year=solarDateBase.year,month=anchorMonth,day=1}))fakeSolarDate.year = fakeSolarDate.year + 1fakeSolarDate.day = fakeSolarDate.day + anchorDayOffset - (anchorDayOffset>0 and 1 or 0)table.insert(anchor.solarDatesList,os.date('%Y%m%d',os.time(fakeSolarDate)))if 0<#anchor.solarDatesList thenanchor.solarFlg = trueanchor.yearFlg = trueendreturn anchorendend--15.1/2解码锚定在指定节气+指定天数上的事件--[lunar][Y][JQ春分]4dolocal anchorJqName,anchorDayOffset = string.match(anchor.desc,"%[[Ll]unar%]%[[Yy]%]%[[Jj][Qq](.+)%](-*[0-9]+)$")if nil~=anchorJqName and nil~=anchorDayOffset thenif 0==lunar.jqIdxByName(anchorJqName) thenanchorJqName = nilendanchorDayOffset = tonumber(anchorDayOffset)if 0==anchorDayOffset thenanchorDayOffset = nilendendif nil~=anchorJqName and nil~=anchorDayOffset thenlocal jqInfo = lunar.jqInfoByName(anchorJqName)if #jqInfo.jqTimeList>0 thenlocal idxlocal tfor idx =1,#jqInfo.jqTimeList do--以每一个节气的时间为指定的基准时间t = jqInfo.jqTimeList[idx]t = t + (anchorDayOffset - (anchorDayOffset>0 and 1 or 0))*86400table.insert(anchor.solarDatesList,os.date('%Y%m%d',t))endendif 0<#anchor.solarDatesList thenanchor.lunarFlg = trueanchor.yearFlg = trueanchor.jqFlg = trueendreturn anchorendendreturn anchor
end--将文档处理成行数组
local function files_to_lines(...)if dbgFlg thenprint("--->files_to_lines called here")endlocal tab=setmetatable({},{__index=table})local index=1for i,filename in next,{...} dolocal fn = io.open(filename)if fn thenfor line in fn:lines() doif not line or #line > 0 thentab:insert(line)endendfn:close()endendif dbgFlg thenprint("--->files_to_lines completed here")endreturn tab
end--根据加载的文档，创建事件字典，以公历日期为索引
local function eventsDicBySolarDatesBuild(...)if dbgFlg thenprint("-->eventsDicBySolarDatesBuild called here")endlocal lines=files_to_lines(...)for i,line in next ,lines doif dbgFlg thenprint('line is: ', line)endif not line:match("^%s*#") then  -- 第一字 # 为注释行local d,kW,c = string.match(line,"(.+)\t(%C*)\t(%C*)")if nil ~= d thenlocal thisEvent = {}thisEvent.d = dthisEvent.kW = kW or ''thisEvent.c = c or thisEvent.kWif '' ~= thisEvent.kW thenthisEvent.kWs = stringSplit(thisEvent.kW,' ')endif nil == thisEvent.kWs thenthisEvent.kWs = {thisEvent.kW}endlocal anchorInfo = anchorDecode(thisEvent.d)local thisKw = ''for idx = 1,#anchorInfo.solarDatesList dolocal subEvent = {}subEvent.c1 = thisEvent.dsubEvent.c2 = thisEvent.kWsubEvent.c3 = thisEvent.csubEvent.kWs = thisEvent.kWslocal thisSolarDate = anchorInfo.solarDatesList[idx]subEvent.time = dateStr2Time(thisSolarDate)subEvent.solarDate = thisSolarDatelocal tDiff = dt.timeDiff(subEvent.time)if tDiff.monthsDiff<-1 then--如果这个事件的时间点已经过去大于一个月了，则不做处理if dbgFlg thenprint('这个事件放弃：',subEvent.c1,thisSolarDate)endelse--添加一个新的事件if nil == eventsDicBySolarDates[thisSolarDate] theneventsDicBySolarDates[thisSolarDate] = {subEvent}elsetable.insert(eventsDicBySolarDates[thisSolarDate],subEvent)endfor subIdx = 1, #subEvent.kWs dothisKw = subEvent.kWs[subIdx] or ''if ''~=thisKw thenif nil == eventsDicListByKeyW[thisKw] then--这是一个新的 kWeventsDicListByKeyW[thisKw] = {subEvent}else--这不是一个新的 kWtable.insert(eventsDicListByKeyW[thisKw],subEvent)endendendendendendendendif dbgFlg thenprint("-->eventsDicBySolarDatesBuild completed here")end
end--通过keyWord来获取对应的事件列表
local function getEventsByKw(kW)local eventsList = {}kW = kW or ''if '' == kW thenreturn eventsListendif nil==eventsDicListByKeyW theneventsList = {}elseeventsList = eventsDicListByKeyW[kW] or {}end--需要进行一个排序处理，以方便后端使用if #eventsList > 0 then--做一个排序，按time升序排列table.sort(eventsList,function(a,b)if a.time < b.time thenreturn trueendreturn falseend)endreturn eventsList
end--通过时间来获取对应的事件列表
local function getEventsByTime(t)local eventsList = {}if nil == t thent = os.time()endif nil==eventsDicBySolarDates theneventsList = {}elseeventsList = eventsDicBySolarDates[os.date('%Y%m%d',t)]endreturn eventsList or {}
end--===========================test========================
local function test(printPrefix)if nil == printPrefix thenprintPrefix = ' 'endif dbgFlg thenprint('eventsListModule test starting...')end--sysInfoRes.test(printPrefix..' ')--lunar.test(printPrefix..' ')--dt.test(printPrefix..' ')for k,v in pairs(eventsDicBySolarDates) doif dbgFlg thenprint(printPrefix..k..'\t'..v)endend
endfunction M.init(...)--准备日期序列，包括去年一整年，以及将来一整年的日期在内local daysCntThisYear = tonumber(os.date("%j"))lunarDatesListBuild(370+daysCntThisYear,740-daysCntThisYear)--创建节气表lunar.jqListBuild()--加载文档中的事件信息local files={...}--文件名不支持中文，其中 # 开始的行为注释行table.insert(files,"eventsList.txt")for i,v in next, files dofiles[i] = sysInfoRes.currentDir().."/".. vendeventsDicBySolarDatesBuild(table.unpack(files))--抛出功能函数M.getEventsByKw = getEventsByKwM.getEventsByTime = getEventsByTimeM.setDbg = setDbgM.test = test
endM.init()return M

日期与时间

为了实现增强版的日期时间输入效果，我们需要整理出来日期与农历，事件，二十四节气之间的对应关系；同时为了实现时间的快捷输入，我们需要整理出不同格式的时间信息。为此，我们需要 dateTimeModule.lua 脚本文档以实现此功能。 dateTimeModule.lua 脚本内容如下👇：

--dateTimeModule.lua
--Copyright (C) 2023 yaoyuan.dou <douyaoyuan@126.com>
--该模块主要提供一些当前的时间和日期的相关信息
local M={}
local dbgFlg = false--引入农历计算模块
local lunarEnable, lunar = pcall(require, 'lunarModule')-- 导入log模块记录日志
local logEnable, log = pcall(require, "runLog")--设置 dbg 开关
local function setDbg(flg)flg = flg or dbgFlgdbgFlg = flgif lunarEnable thenlunar.setDbg(flg)endif logEnable thenlog.setDbg(flg)endprint('dateTimeModule dbgFlg is '..tostring(dbgFlg))
endlocal wNames_CN = {'星期日','星期一','星期二','星期三','星期四','星期五','星期六'}
local wNames_EN = {'Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'}
local wNames_Short = {'Sun.','Mon.','Tues.','Wed.','Thur.','Fri.','Sat.'}
local mName_EN = {'January','February','March','April','May','June','July','August','September','October','November','December'}
local mName_Short = {'Jan.','Feb.','Mar.','Apr.','May.','Jun.','Jul.','Aug.','Sep.','Oct.','Nov.','Dec.'}
local numSymbals = {'st','nd','rd','th'}
local timeLogos = {['0000']='🕛',['0030']='🕧',['0100']='🕐',['0130']='🕜',['0200']='🕑',['0230']='🕝',['0300']='🕒',['0330']='🕞',['0400']='🕓',['0430']='🕟',['0500']='🕔',['0530']='🕠',['0600']='🕕',['0630']='🕡',['0700']='🕖',['0730']='🕢',['0800']='🕗',['0830']='🕣',['0900']='🕘',['0930']='🕤',['1000']='🕙',['1030']='🕥',['1100']='🕚',['1130']='🕦',['1200']='🕛',['1230']='🕧',['1300']='🕐',['1330']='🕜',['1400']='🕑',['1430']='🕝',['1500']='🕒',['1530']='🕞',['1600']='🕓',['1630']='🕟',['1700']='🕔',['1730']='🕠',['1800']='🕕',['1830']='🕡',['1900']='🕖',['1930']='🕢',['2000']='🕗',['2030']='🕣',['2100']='🕘',['2130']='🕤',['2200']='🕙',['2230']='🕥',['2300']='🕚',['2330']='🕦',['2400']='🕛'}
local diZhi = {"子","丑","寅","卯","辰","巳","午", "未","申","酉","戌","亥"}local function numSymbal(num)if num > 4 thenreturn numSymbals[4]elsereturn numSymbals[num]end
end--获取timeLogo 
local function timeLogo(t)t = t or os.time()local timeNow = os.time()if type(t) == type(timeNow) thentimeNow = tendlocal hourValue = os.date("%H",timeNow)local minValue=tonumber(os.date("%M",timeNow))if 15 < minValue and minValue < 45 thenreturn timeLogos[string.format("%02d30",hourValue)]elseif 15 > minValue thenreturn timeLogos[string.format("%02d00",hourValue)]elsereturn timeLogos[string.format("%02d00",hourValue+1)]end
end--[[提供一个timeInfo的时间结构，定义如下
timeInfo.time: 以秒为单位的时间戳
timeInfo.shiChen：时辰
timeInfo.time1：22:47:12
timeInfo.time2：22:47
timeInfo.time3：22点47分16秒
timeInfo.timeLogo: 时间对应的钟表符号
]]
local function timeInfoByTime(t)t = t or os.time()local tBase=os.time()if type(t)==type(tBase) thentBase = tendlocal timeInfo = {}timeInfo.time = tBasetimeInfo.shiChen = ''timeInfo.time1 = os.date("%H:%M:%S",tBase)timeInfo.time2 = os.date("%H:%M",tBase)timeInfo.time3 = os.date("%H点%M分%S秒",tBase)local h = tonumber(os.date('%H',tBase))h = math.floor((h + 1)/2)+1timeInfo.shiChen = (diZhi[h] or diZhi[1])..'时'timeInfo.timeLogo = timeLogo(tBase)return timeInfo
end--[[根据指定的时间，返回结构化的 alltimeInfo 对象，结构如下
alltimeInfo.time: 时间值
alltimeInfo.YYYYMMDD_hhmmss: 2022-05-09 22:47:12
alltimeInfo.YYYYMMDD_hhmm: 2022-05-09 22:47
alltimeInfo.YYYYMMDD_W_hhmmss: 2022年5月9日 星期一 22点47分16秒
alltimeInfo.W_M_Date_hhmmss_YYYY: Mon. May. 09th, 22:47:01, 2022
alltimeInfo.timeLogo: 时间对应的时钟符号
]]
local function alltimeInfo(t)t = t or os.time()local tBase = os.time()if type(t) == type(tBase) thentBase = tendlocal alltimeInfo = {}alltimeInfo.time = tBase--处理星期信息, os.date("%w"): 距离周日的天数local wN=tonumber(os.date("%w",tBase)) + 1local wInfo={wNames_CN[wN],wNames_EN[wN],wNames_Short[wN]}--处理月份信息local mN=tonumber(os.date("%m",tBase))local mInfo={mName_EN[mN],mName_Short[mN]}--处理日期信息local dN=tonumber(os.date("%d",tBase))local dInfo={os.date("%d")..numSymbal(dN)}--处理时分信息local timeInfo = timeInfoByTime(tBase)--合成alltime信息--2022-05-09 22:47:12alltimeInfo.YYYYMMDD_hhmmss=os.date("%Y-%m-%d")..' '..timeInfo.time1--2022-05-09 22:47alltimeInfo.YYYYMMDD_hhmm=os.date("%Y-%m-%d")..' '..timeInfo.time2--2022年5月9日 星期一 22点47分16秒alltimeInfo.YYYYMMDD_W_hhmmss = os.date("%Y年")..tonumber(os.date("%m"))..'月'..tonumber(os.date('%d'))..'日 '..wInfo[1]..' '..timeInfo.time3--Mon. May. 09th, 22:47:01, 2022alltimeInfo.W_M_Date_hhmmss_YYYY = wInfo[3]..' '..mInfo[2]..' '..dInfo[1]..' '..timeInfo.time1..', '..os.date("%Y")alltimeInfo.timeLogo = timeInfo.timeLogo--返回alltime信息return alltimeInfo
end--提供 alltList 信息
local function allt()--处理星期信息, os.date("%w"): 距离周日的天数local wN=tonumber(os.date("%w")) + 1local wInfo={wNames_CN[wN],wNames_EN[wN],wNames_Short[wN]}--处理月份信息local mN=tonumber(os.date("%m"))local mInfo={mName_EN[mN],mName_Short[mN]}--处理日期信息local dN=tonumber(os.date("%d"))local dInfo={os.date("%d")..numSymbal(dN)}--处理时分信息local timeInfo = timeInfoByTime()--合成alltime信息--2022-05-09 22:47:12local allt_1 = os.date("%Y-%m-%d")..' '..timeInfo.time1--2022-05-09 22:47local allt_2 = os.date("%Y-%m-%d")..' '..timeInfo.time2--2022年5月9日 星期一 22点47分16秒local allt_3 = os.date("%Y年")..tonumber(os.date("%m"))..'月'..tonumber(os.date('%d'))..'日 '..wInfo[1]..' '..timeInfo.time3--Mon. May. 09th, 22:47:01, 2022local allt_4 = wInfo[3]..' '..mInfo[2]..' '..dInfo[1]..' '..timeInfo.time1..', '..os.date("%Y")--返回alltime信息return {allt_1,allt_2,allt_3,allt_4}
end--[[根据时间返回日期信息，一个日期信息结构如下
dateInfo.time：日期的时间值
dateInfo.YYYY：日期的年份值
dateInfo.MM：日期的年份值
dateInfo.DD：日期的年份值
dateInfo.date_YYYYMMDD_1：2022/05/09
dateInfo.date_MMDD_1：05/09
dateInfo.date_YYYYMMDD_2：2022-05-09
dateInfo.date_MMDD_2：05-09
dateInfo.date_YYYY_MM_DD_1：2022年05月09日
dateInfo.date_YYYY_M_D_1：2022年5月9日
dateInfo.date_M_D_1：5月9日
dateInfo.date_M_Dth_YYYY：Mar. 09th, 2022
dateInfo.date_M_Dth_YYYY_2：May 09th, 2022
dateInfo.date10：二〇二二年五月九日
dateInfo.date_yyMxx：23M04
dateInfo.date_YYYYMMDD：20230412
dateInfo.lunarInfo: 一个lunar的结构体
]]
local function dateInfoByTime(t)t = t or os.time()local baseTime = os.time()if type(t) == type(baseTime) thenbaseTime = tend--处理年份信息local yN=tonumber(os.date("%Y",baseTime))local yN_1=''yN_1=os.date("%Y",baseTime):gsub("%d",{["1"]="一",["2"]="二",["3"]="三",["4"]="四",["5"]="五",["6"]="六",["7"]="七",["8"]="八",["9"]="九",["0"]="〇",})local yInfo={yN_1.."年"}--处理月份信息local mN=tonumber(os.date("%m",baseTime))local mN_1=''mN_1=os.date("%m",baseTime):gsub("%d",{["1"]="一",["2"]="二",["3"]="三",["4"]="四",["5"]="五",["6"]="六",["7"]="七",["8"]="八",["9"]="九",["0"]="",})if mN == 10 thenmN_1 = '十'elseif mN == 11 thenmN_1 = '十一'elseif mN == 12 thenmN_1 = '十二'endlocal mInfo={mName_EN[mN],mName_Short[mN],mN_1..'月'}--处理日期信息local dN=tonumber(os.date("%d",baseTime))local dN_1=''dN_1=os.date("%d",baseTime):gsub("%d",{["1"]="一",["2"]="二",["3"]="三",["4"]="四",["5"]="五",["6"]="六",["7"]="七",["8"]="八",["9"]="九",["0"]="",})if dN > 19 thendN_1 = string.sub(dN_1,1,3).."十"..string.sub(dN_1,4,#dN_1)elseif dN > 9 thendN_1="十"..string.sub(dN_1,4,#dN_1)enddN_1 = dN_1..'日'local dInfo={os.date("%d",baseTime)..numSymbal(dN),dN_1}local dateInfo = {}dateInfo.time = baseTimedateInfo.YYYY = os.date("%Y",baseTime)dateInfo.MM = os.date("%m",baseTime)dateInfo.DD = os.date("%d",baseTime)--合成 dateInfo 信息--2022/05/09dateInfo.date_YYYYMMDD_1 = os.date("%Y/%m/%d",baseTime)--05/09dateInfo.date_MMDD_1 = os.date("%m/%d",baseTime)--2022-05-09dateInfo.date_YYYYMMDD_2 = os.date("%Y-%m-%d",baseTime)--05-09dateInfo.date_MMDD_2 = os.date("%m-%d",baseTime)--2022年05月09日dateInfo.date_YYYY_MM_DD_1 = os.date("%Y年%m月%d日",baseTime)--2022年5月9日dateInfo.date_YYYY_M_D_1 = os.date("%Y年",baseTime)..tonumber(os.date("%m",baseTime)).."月"..tonumber(os.date("%d",baseTime)).."日"--5月9日dateInfo.date_M_D_1 = tonumber(os.date("%m",baseTime)).."月"..tonumber(os.date("%d",baseTime)).."日"--May. 09th, 2022dateInfo.date_M_Dth_YYYY_1 = mInfo[2]..' '..dInfo[1]..', '..os.date("%Y",baseTime)--May 09th, 2022dateInfo.date_M_Dth_YYYY_2 = mInfo[1]..' '..dInfo[1]..', '..os.date("%Y",baseTime)--二〇二二年五月九日dateInfo.date10 = yInfo[1]..mInfo[3]..dInfo[2]--23M04dateInfo.date_yyMxx = os.date("%yM%m",baseTime)--20230412dateInfo.date_YYYYMMDD = os.date("%Y%m%d",baseTime)dateInfo.lunarInfo = lunar.solar2LunarByTime(baseTime)--输出 dateInfo 信息return dateInfo
end--提供 date信息
local function dateInfoByDaysOffset(daysOffset)--baseDate准备daysOffset = daysOffset or 0local thisOffset = 0if type(thisOffset) == type(daysOffset) thenthisOffset = daysOffsetendlocal baseTime = os.date("*t")baseTime.day = baseTime.day + thisOffsetlocal info = dateInfoByTime(os.time(baseTime))--输出 dateInfo 信息return info
end--提供指定时间的 wInfo 信息
--[[week结构如下
wInfo.time：时间戳
wInfo.nameCN：周名称，中文
wInfo.nameEN：周名称，英文
wInfo.nameShort：周名称，简写
wInfo.xxWxx：周序，23W29
wInfo.offset2Sun：距离周日的天数
wInfo.offset2Year：年内周数，同步于xxWxx
]]
local function wInfoByTime(t)t = t or os.time()local timeBase = os.time()if type(t) == type(timeBase) thentimeBase = tend--处理星期信息, os.date("%w"): 距离周日的天数local wN=tonumber(os.date("%w",timeBase))--计算今年以来的周数local weekNo=os.date("%W",timeBase) + 1local wInfo = {}wInfo.time = timeBasewInfo.nameCN = wNames_CN[wN+1]wInfo.nameEN = wNames_EN[wN+1]wInfo.nameShort = wNames_Short[wN+1]wInfo.offset2Sun = wNwInfo.offset2Year = weekNowInfo.xxWxx = os.date("%y",timeBase).."W"..wInfo.offset2Yearreturn wInfo
end--提供指定时间的 week 信息
local function week(t)local thisInfo = wInfoByTime(t)return {thisInfo.nameCN,thisInfo.nameEN,thisInfo.nameShort,thisInfo.xxWxx}
end--[[计算两个时间之间的差别，以 t1 为参考点，返回结构体如下：
diff.tRef：这是计算的基准时间
diff.tTgt：这是计算的目标时间
diff.timeDiff：这是时间戳差，单位是s
diff.daysDiff：这是天数差，单位是天
diff.monthsDiff：这是月数差，单位是月
diff.yearsDiff：这是年数差，单位是年
diff.weeksDiff：这是周数差，单位是周
]]
local function timeDiff(t1,t2)local diff = {}if nil == t1 thent1 = os.time()endif nil == t2 then--如果只有一个参数，则计算所给的 t1与当前时间的差值t2 = t1t1 = os.time()enddiff.tRef = t1diff.tTgt = t2diff.timeDiff = 0diff.daysDiff = 0diff.monthsDiff = 0diff.yearsDiff = 0diff.weeksDiff = 0local t11 = os.date("*t", t1)local t22 = os.date("*t", t2)--计算时间差diff.timeDiff = t2 - t1--计算天数差local t11_noTime = os.time({year=t11.year, month=t11.month, day=t11.day})local t22_noTime = os.time({year=t22.year, month=t22.month, day=t22.day})diff.daysDiff = math.floor((t22_noTime - t11_noTime) / (3600 * 24))--计算年数差diff.yearsDiff = t22.year - t11.year--计算月数差diff.monthsDiff = diff.yearsDiff * 12 + t22.month - t11.month--计算周数差local t1_wn = tonumber(os.date("%w",t1))local t2_wn = tonumber(os.date("%w",t2))local daysDiffToWeekStart = diff.daysDiff + t1_wn - t2_wndiff.weeksDiff = math.floor(daysDiffToWeekStart/7)return diff
end--计算时间偏差的语义，以 t1 为base，计算 t2 的偏离量
local function daysDiffName(t1,t2)local tDiff = timeDiff(t1,t2)local comment = ''if tDiff.daysDiff == -3 thencomment = '大前天'elseif tDiff.daysDiff == -2 thencomment = '前天'elseif tDiff.daysDiff == 0 thencomment = '今天'elseif tDiff.daysDiff == -1 thencomment = '昨天'elseif tDiff.daysDiff == 1 thencomment = '明天'elseif tDiff.daysDiff == 2 thencomment = '后天'elseif tDiff.daysDiff == 3 thencomment = '大后天'elseif tDiff.weeksDiff == -2 thencomment = '上上周'elseif tDiff.weeksDiff == -1 thencomment = '上周'elseif tDiff.weeksDiff == 1 thencomment = '下周'elseif tDiff.weeksDiff == 2 thencomment = '下下周'elseif tDiff.monthsDiff == -2 thencomment = '上上月'elseif tDiff.monthsDiff == -1 thencomment = '上月'elseif tDiff.monthsDiff == 1 thencomment = '下月'elseif tDiff.monthsDiff == 2 thencomment = '下下月'elseif tDiff.yearsDiff == -3 thencomment = '大前年'elseif tDiff.yearsDiff == -2 thencomment = '前年'elseif tDiff.yearsDiff == -1 thencomment = '去年'elseif tDiff.yearsDiff == 1 thencomment = '明年'elseif tDiff.yearsDiff == 2 thencomment = '后年'elseif tDiff.yearsDiff == 3 thencomment = '大后年'elseif tDiff.yearsDiff ~= 0 thencomment = math.abs(tDiff.yearsDiff)..'年'..((tDiff.yearsDiff<0) and '前' or '后')elseif tDiff.monthsDiff ~= 0 thencomment = math.abs(tDiff.monthsDiff)..'个月'..((tDiff.monthsDiff<0) and '前' or '后')elseif tDiff.weeksDiff ~= 0 thencomment = math.abs(tDiff.weeksDiff)..'周'..((tDiff.weeksDiff<0) and '前' or '后')elseif tDiff.daysDiff ~= 0 thencomment = math.abs(tDiff.daysDiff)..'天'..((tDiff.daysDiff<0) and '前' or '后')endreturn comment
end--=========================这是测试函数=======================
local function test()local alltList = allt()local idxprint("allt")for idx=1,#alltList doprint('\t'..alltList[idx])endlocal lunarList,jqList,dateList = lunar.jqListComming()print("lunarInfo")for idx=1,#lunarList doprint('\t'..lunarList[idx]..'\t'..jqList[idx]..'\t'..dateList[idx])endlocal wInfo = week()print("week info")for idx=1,#wInfo doprint('\t'..wInfo[idx])end
end--=========================模块化封装=========================
function M.init(...)print("-> M.init called here")--抛出功能函数M.jqListComming = lunar.jqListCommingM.jqIdxByName = lunar.jqIdxByNameM.jqInfoByTime = lunar.jqInfoByTimeM.jqListBuild = lunar.jqListBuildM.timeInfoByTime = timeInfoByTimeM.alltimeInfo = alltimeInfoM.allt = alltM.dateInfoByTime = dateInfoByTimeM.dateInfoByDaysOffset = dateInfoByDaysOffsetM.week = weekM.wInfoByTime = wInfoByTimeM.timeLogo = timeLogoM.timeDiff = timeDiffM.daysDiffName = daysDiffNameM.setDbg = setDbgM.test = test
endM.init()return M

👆以上脚本中，我们整合了包括二十四节气，农历，事件，日期，时间在内的所有与日期时间概念挂钩的信息，同时为了在事件提示时更人性化可阅读，我们实现了语义日期函数。

dateTime_filter.lua

dateTime_filter.lua 脚本将以上所有的日期时间信息进行了整合，以适配rime引擎滤镜调用。dateTime_filter.lua 脚本内容如下👇：

--dateTime_filter.lua
--Copyright (C) 2023 yaoyuan.dou <douyaoyuan@126.com>
--本脚本主要用于提供一些与时间日期信息相关的处理服务--引入支持模块，处理日期和时间信息
local ok, res = pcall(require, 'dateTimeModule')
local alltimeInfo = res.alltimeInfo
local jqListComming = res.jqListComming
local jqIdxByName = res.jqIdxByName
local jqInfoByTime = res.jqInfoByTime
local wInfoByTime = res.wInfoByTime
local daysDiffName = res.daysDiffName
local dateInfoByTime = res.dateInfoByTime
local dateInfoByDaysOffset = res.dateInfoByDaysOffset
local timeInfoByTime = res.timeInfoByTime-- 导入log模块记录日志
local logEnable, log = pcall(require, "runLog")--创建节气表
res.jqListBuild()--引入 eventsList 模块，处理日期相关事件信息
local ok, res1 = pcall(require, 'eventsListModule')
local getEventsByKw = res1.getEventsByKw
local getEventsByTime = res1.getEventsByTime--最长的comment长度限制
local maxLenOfComment = 250--加载农历信息
local lunarList,jqList,timeList
local thisLunar,thisJq,thisTime
local cands
local theCands
local candTxt_lower
local thisComment
local alltInfo
local dateInfoList
local jqTime
local jqName
local eventsList
local thisEvent
local thisTxt
local wInfo
local timeBase
local timeReBase
local dateInfolocal function Filter(input, env)--获取dateTimeInfo开关状态local on = true --env.engine.context:get_option("dateTime")cands={}for cand in input:iter() do--抛出原选项if nil == cands[cand.text] thenyield(cand)cands[cand.text]=trueendif on thencandTxt_lower = cand.text:lower()--时间选项整理if ({['time']=true,['时间']=true,['现在']=true,['now']=true,['此刻']=true,['此时']=true})[candTxt_lower] then--处理时间信息alltInfo = alltimeInfo()theCands={}if ({['现在']=true,['now']=true,['此刻']=true,['此时']=true})[candTxt_lower] thentable.insert(theCands,{candTxt_lower.."("..alltInfo.YYYYMMDD_hhmmss..")",alltInfo.timeLogo})endtable.insert(theCands,{alltInfo.YYYYMMDD_hhmmss,alltInfo.timeLogo})table.insert(theCands,{alltInfo.YYYYMMDD_hhmm,alltInfo.timeLogo})table.insert(theCands,{alltInfo.YYYYMMDD_W_hhmmss,alltInfo.timeLogo})table.insert(theCands,{alltInfo.W_M_Date_hhmmss_YYYY,alltInfo.timeLogo})--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['时辰']=true})[candTxt_lower] thenlocal timeInfo = timeInfoByTime()theCands={}table.insert(theCands,{timeInfo.shiChen,timeInfo.timeLogo})for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['钟表']=true,['时钟']=true,['clock']=true,['表']=true})[candTxt_lower] thenlocal timeInfo = timeInfoByTime()theCands={}table.insert(theCands,{timeInfo.timeLogo,'💡'})--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['date']=true,['日期']=true,['今天']=true,['今日']=true,['today']=true,['明天']=true,['明日']=true,['后天']=true,['昨天']=true,['前天']=true})[candTxt_lower] then--处理日期信息if ({['date']=true,['日期']=true,['今天']=true,['今日']=true,['today']=true})[candTxt_lower] thendateInfo = dateInfoByDaysOffset(0)elseif ({['明天']=true,['明日']=true})[candTxt_lower] thendateInfo = dateInfoByDaysOffset(1)elseif ({['后天']=true})[candTxt_lower] thendateInfo = dateInfoByDaysOffset(2)elseif ({['昨天']=true})[candTxt_lower] thendateInfo = dateInfoByDaysOffset(-1)elseif ({['前天']=true})[candTxt_lower] thendateInfo = dateInfoByDaysOffset(-2)end--获取周序信息wInfo = wInfoByTime(dateInfo.time)--获取今天的事件信息eventsList = getEventsByTime(dateInfo.time)--获取今天的24节气信息jqTime, jqName = jqInfoByTime(dateInfo.time)--如果今天有特殊事件，则合成事件的comment信息local eventsStr = ''for idx = 1, #eventsList dothisEvent = eventsList[idx]if '' ~= eventsStr theneventsStr = eventsStr..'\r[🔊]'..thisEvent.c3elseeventsStr = '[🔊]'..thisEvent.c3endendtheCands = {}if ({['今天']=true,['今日']=true,['today']=true,['明天']=true,['明日']=true,['后天']=true,['昨天']=true,['前天']=true})[candTxt_lower] thenif ''~=eventsStr thentable.insert(theCands,{candTxt_lower.."("..dateInfo.date_YYYYMMDD..")",eventsStr})elsetable.insert(theCands,{candTxt_lower.."("..dateInfo.date_YYYYMMDD..")",'💡'})endtable.insert(theCands,{dateInfo.date_YYYYMMDD_1..' '..wInfo.nameCN,'💡'})elseif ''~=eventsStr thentable.insert(theCands,{dateInfo.date_YYYYMMDD_1..' '..wInfo.nameCN,eventsStr})elsetable.insert(theCands,{dateInfo.date_YYYYMMDD_1..' '..wInfo.nameCN,'💡'})endendtable.insert(theCands,{dateInfo.date_M_Dth_YYYY_1,'💡'})table.insert(theCands,{dateInfo.date_YYYYMMDD,'💡'})if jqTime>0 thentable.insert(theCands,{dateInfo.lunarInfo.lunarDate_1,dateInfo.lunarInfo.jiJieLogo..jqName})elsetable.insert(theCands,{dateInfo.lunarInfo.lunarDate_4,dateInfo.lunarInfo.jiJieLogo})end--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['周日']=true,['周一']=true,['周二']=true,['周三']=true,['周四']=true,['周五']=true,['周六']=true})[candTxt_lower] then--获取今天的周信息timeBase = os.date('*t')wInfo = wInfoByTime()local wOffsetInput = ({['周日']=0,['周一']=1,['周二']=2,['周三']=3,['周四']=4,['周五']=5,['周六']=6})[candTxt_lower]--调整 basetimeBase.day = timeBase.day + wOffsetInput - wInfo.offset2SunwInfo = wInfoByTime(os.time(timeBase))jqTime, jqName = jqInfoByTime(os.time(timeBase))dateInfo = dateInfoByDaysOffset(wOffsetInput-tonumber(os.date('%w')))local daysDiff = daysDiffName(os.time(),os.time(timeBase))eventsList = getEventsByTime(os.time(timeBase))local eventsStr = ''for idx = 1, #eventsList dothisEvent = eventsList[idx]if '' ~= eventsStr theneventsStr = eventsStr..'\r[🔊]'..thisEvent.c3elseeventsStr = '[🔊]'..thisEvent.c3endendlocal commentStr = ''if '今天'==daysDiff thencommentStr = '[🚩]'elseif ''~=daysDiff thenif os.time() < os.time(timeBase) thencommentStr = '[👉'..daysDiff..']'elsecommentStr = '['..daysDiff..'👈]'endendif ''~=jqName thenif ''==commentStr thencommentStr = jqNameelsecommentStr = commentStr..'\r'..jqNameendendif ''~=eventsStr thenif ''==commentStr thencommentStr = eventsStrelsecommentStr = commentStr..'\r'..eventsStrendenddateInfoList = {dateInfo.date_YYYYMMDD_1,dateInfo.date_YYYYMMDD_2,dateInfo.date_M_Dth_YYYY_1,dateInfo.date_YYYYMMDD}for idx = 1, #dateInfoList dothisTxt = dateInfoList[idx]if nil == cands[thisTxt] thenif 1==idx and ''~=commentStr thenyield(Candidate("word", cand.start, cand._end, thisTxt, commentStr))elseyield(Candidate("word", cand.start, cand._end, thisTxt, '💡'))endcands[thisTxt]=trueendendelseif ({['lunar']=true,['农历']=true,['节气']=true})[candTxt_lower] then--处理农历信息lunarList,jqList,timeList = jqListComming()theCands={}for idx = 1, math.min(6,#lunarList) dothisJq = jqList[idx]thisTime = timeList[idx]dateInfo = dateInfoByTime(thisTime)thisLunar = dateInfo.lunarInfo.lunarDate_4if os.date("%Y/%m/%d",thisTime) == os.date("%Y/%m/%d") thenthisJq = '🚩/'..dateInfo.lunarInfo.jiJieLogo..thisJqelselocal daysDiff = daysDiffName(os.time(),thisTime)if '' ~= daysDiff thenif os.time() < thisTime thendaysDiff = '[👉'..daysDiff..']'elsedaysDiff = '['..daysDiff..'👈]'endendthisLunar = dateInfo.lunarInfo.lunarDate_4..'('..thisJq..')'thisJq = dateInfo.lunarInfo.jiJieLogo..dateInfo.date_YYYYMMDD..daysDiffendtable.insert(theCands,{thisLunar,thisJq})end--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['wx']=true,['周序']=true,['周数']=true})[candTxt_lower] then--处理周信息wInfo = wInfoByTime()theCands={}table.insert(theCands,{wInfo.xxWxx,'💡'})--抛出周序选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['本周']=true,['这周']=true,['上周']=true,['下周']=true})[candTxt_lower] then--处理周信息timeBase = os.date('*t')--对齐到周一timeBase.day = timeBase.day - os.date('%w') + 1if ({['上周']=true})[candTxt_lower] thentimeBase.day = timeBase.day - 7elseif ({['下周']=true})[candTxt_lower] thentimeBase.day = timeBase.day + 7endwInfo = wInfoByTime(os.time(timeBase))theCands={}if ({['本周']=true,['上周']=true,['下周']=true})[candTxt_lower] thentable.insert(theCands,{candTxt_lower.."("..wInfo.xxWxx..")",'💡'})endtable.insert(theCands,{wInfo.xxWxx,'💡'})for idx=0,6 dotimeReBase = os.date('*t',os.time(timeBase))timeReBase.day = timeReBase.day + idxlocal daysDiff = daysDiffName(os.time(),os.time(timeReBase))--获取事件eventsList = getEventsByTime(os.time(timeReBase))--节取节气local jqT,jqN = jqInfoByTime(os.time(timeReBase))--日期信息dateInfo = dateInfoByTime(os.time(timeReBase))--周序信息wInfo = wInfoByTime(os.time(timeReBase))--如果存在节气，或者存在事件if ''~=jqN or 0<#eventsList thenthisComment = ''local daysDiffInfo = os.date("%Y/%m/%d",os.time(timeReBase))if os.date("%Y/%m/%d") == os.date("%Y/%m/%d",os.time(timeReBase)) thendaysDiffInfo = '[🚩]'elseif ''~=daysDiff and candTxt_lower~=daysDiff then--为了避免关键字与日期差异的信息冗余，增加条件 candTxt_lower~=daysDiffif os.time() < os.time(timeReBase) thendaysDiffInfo = '[👉'..daysDiff..']'elsedaysDiffInfo = '['..daysDiff..'👈]'endend--如果节气存在if jqT>0 thenif ''==thisComment thenif ''~=daysDiffInfo thenthisComment = dateInfo.lunarInfo.jiJieLogo..jqN..daysDiffInfodaysDiffInfo = ''elsethisComment = dateInfo.lunarInfo.jiJieLogo..jqNendelseif ''~=daysDiffInfo thenthisComment = thisComment..'\r'..dateInfo.lunarInfo.jiJieLogo..jqN..daysDiffInfodaysDiffInfo = ''elsethisComment = thisComment..'\r'..dateInfo.lunarInfo.jiJieLogo..jqNendendend--如果事件存在for idx = 1,#eventsList dothisEvent = eventsList[idx]if ''~=thisEvent.c3 and ''~=thisEvent.cycleType thenif ''~=daysDiffInfo thenif ''==thisComment thenthisComment = '[🔊]'..thisEvent.c3..daysDiffInfoelsethisComment = thisComment..'\r[🔊]'..thisEvent.c3..daysDiffInfoenddaysDiffInfo = ''elseif ''==thisComment thenthisComment = '[🔊]'..thisEvent.c3elsethisComment = thisComment..'\r[🔊]'..thisEvent.c3endendendendif ''==thisComment thenthisComment = '💡'endtable.insert(theCands,{dateInfo.date_YYYYMMDD_1..' '..wInfo.nameCN,thisComment})endend--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['week']=true,['星期']=true})[candTxt_lower] then--处理周信息wInfo = wInfoByTime()theCands={}table.insert(theCands,{wInfo.nameCN,'💡'})table.insert(theCands,{wInfo.nameEN,'💡'})table.insert(theCands,{wInfo.nameShort,'💡'})--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['本月']=true,['上月']=true,['下月']=true})[candTxt_lower] then--处理月份信息if ({['本月']=true})[candTxt_lower] thendateInfo = dateInfoByTime(os.time())elseif ({['上月']=true})[candTxt_lower] thendateInfo = dateInfoByDaysOffset(-os.date("%d")-1)elseif ({['下月']=true})[candTxt_lower] thendateInfo = dateInfoByDaysOffset(45-os.date("%d"))endtheCands={}if ({['本月']=true,['上月']=true,['下月']=true})[candTxt_lower] thentable.insert(theCands,{candTxt_lower.."("..dateInfo.date_yyMxx..")",'💡'})endtable.insert(theCands,{dateInfo.date_yyMxx,'💡'})--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif ({['今年']=true,['去年']=true,['明年']=true,['前年']=true,['后年']=true})[candTxt_lower] thenif ({['今年']=true})[candTxt_lower] thendateInfo = dateInfoByTime(os.time({year = tonumber(os.date("%Y")), month = 5, day = 1, hour = 8, min = 0, sec = 0}))elseif ({['去年']=true})[candTxt_lower] thendateInfo = dateInfoByTime(os.time({year = tonumber(os.date("%Y"))-1, month = 5, day = 1, hour = 8, min = 0, sec = 0}))elseif ({['明年']=true})[candTxt_lower] thendateInfo = dateInfoByTime(os.time({year = tonumber(os.date("%Y"))+1, month = 5, day = 1, hour = 8, min = 0, sec = 0}))elseif ({['前年']=true})[candTxt_lower] thendateInfo = dateInfoByTime(os.time({year = tonumber(os.date("%Y"))-2, month = 5, day = 1, hour = 8, min = 0, sec = 0}))elseif ({['后年']=true})[candTxt_lower] thendateInfo = dateInfoByTime(os.time({year = tonumber(os.date("%Y"))+2, month = 5, day = 1, hour = 8, min = 0, sec = 0}))endtheCands={}table.insert(theCands,{candTxt_lower.."("..dateInfo.YYYY..")",'💡'})table.insert(theCands,{dateInfo.lunarInfo.year_shengXiao..'年','💡'})table.insert(theCands,{dateInfo.lunarInfo.year_ganZhi..'年','💡'})table.insert(theCands,{dateInfo.lunarInfo.year_ganZhi.."("..dateInfo.lunarInfo.year_shengXiao..")"..'年','💡'})--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendelseif jqIdxByName(candTxt_lower)>0 then--查找指定的节气信息lunarList,jqList,timeList = jqListComming()local matchFlg = falselocal jqCnt = 0theCands={}for idx = 1, #jqList dothisLunar = lunarList[idx]thisJq = jqList[idx]thisTime = timeList[idx]wInfo = wInfoByTime(thisTime)dateInfo = dateInfoByTime(thisTime)if not matchFlg thenmatchFlg = (thisJq == candTxt_lower) or falseendif matchFlg thenlocal daysDiff = daysDiffName(os.time(),thisTime)if '今天' == daysDiff thenthisJq = ' 🚩'..thisJqelseif '' ~= daysDiff thenif os.time() < thisTime thendaysDiff = '[👉'..daysDiff..']'elsedaysDiff = '['..daysDiff..'👈]'endendthisLunar = thisLunar..'('..thisJq..')'thisJq = dateInfo.lunarInfo.jiJieLogo..os.date("%Y/%m/%d",thisTime)..daysDiffend--加入周信息thisLunar = thisLunar..' '..wInfo.nameCNif nil == cands[thisLunar] thentable.insert(theCands,{thisLunar,thisJq})jqCnt = jqCnt + 1endif jqCnt >= 4 thenbreakendendend--抛出选项for idx = 1, #theCands dothisTxt = theCands[idx][1]thisComment = theCands[idx][2]if nil == cands[thisTxt] thenyield(Candidate("word", cand.start, cand._end, thisTxt, thisComment))cands[thisTxt] = trueendendenddo--事件选项整理local eventsList = getEventsByKw(candTxt_lower)if 0<#eventsList thenlocal timeNow = os.date('*t')--校准到零点timeNow = os.time({year=timeNow.year,month=timeNow.month,day=timeNow.day,hour=0})for idx=1,#eventsList dolocal thisE = eventsList[idx]if thisE.time > timeNow thendateInfo = dateInfoByTime(thisE.time)wInfo = wInfoByTime(thisE.time)local tDiff = daysDiffName(thisE.time) or ''local thisComment = thisE.c3local thisCandTxt = dateInfo.date_YYYYMMDD_1..' '..wInfo.nameCNif nil==cands[thisCandTxt] and ''~= thisComment thenif ''==tDiff thenthisComment = '[👉]'..thisCommentelseif os.time() < thisE.time thenthisComment = '[👉'..tDiff..']'..thisCommentelsethisComment = '['..tDiff..'👈]'..thisCommentendendyield(Candidate("word", cand.start, cand._end, thisCandTxt, thisComment))cands[thisCandTxt]=trueendendendendendendend
endreturn Filter

💣注意：
截止目前，以上👆所述的txt文档或者lua文档，均应该在用户文件夹下的lua文件夹内，如下👇：

rime.lua

一如继往，我们需要在 rime.lua 脚本中将 dateTime_filter 方法转换成 rime引擎滤镜，以便我们在输入方案中配置使用该滤镜。rime.lua脚本内容如下👇：

help_translator = require("help")
inputShow_translator = require("inputShow")
inputShow_Filter = require("inputShow_Filter")
Upper_Filter = require("Upper_Filter")
dic_4w_Filter = require("dic_4w_Filter")
phraseReplace_Filter = require("phraseReplace_Filter")
pinyinAdding_Filter = require("pinyinAdding_Filter")
dateTime_Filter = require("dateTime_filter")

👆以上脚本中，注意最后一行，我们在下游的输入方案中配置lua滤镜时，所引用的名称是 ＝ 号左边的 dateTime_Filter 名称，而不是 dateTime_filter（注意大小写）。

wubi_pinyin.custom.yaml

截止目前，我们已经完成了dateTime_Filter滤镜的定义。此处以五笔・拼音输入方案为例，展示如何配置使用 dateTime_Filter 滤镜。

我们在 五笔・拼音 输入方案的方案文档 wubi_pinyin.schema.yaml 的补丁文档 wubi_pinyin.schema.yaml 中增加以下👇滤镜配置：

# encoding:utf-8
patch:engine/filters:									# 设置以下filter- simplifier- lua_filter@dateTime_Filter					# 时间信息，对于特定的时间或者事件关键字，添加时间信息，例如日期，今天，明天，肝炎，父亲等# 上面的滤镜会减少或者改变候先词选项- uniquifier									# 过滤重复候选项，依赖 simplifier

👆上面的配置并不是wubi_pinyin.custom.yaml中的所有配置，此处仅展示了与 dateTime_Filter 滤镜配置有关的部分。

效果欣赏

至此，我们已经完成了所有的dateTime_Filter滤镜的功能配置，保存你的配置，并重新部署你的rime，你应该可以在输入日期时显示如下👇的效果：

而且，这无关你使用什么输入法，五笔，拼音，双拼，都一样。

配置文档

本文所涉配置文档共 9 个（其中文档 runLog.lua 与滤镜功能无关，文中没有专项介绍），这些文档你可以在 rime中州韵小狼毫须鼠管 dateTime滤镜 日期时间滤镜 配置.zip 下载取用。

如果你可以访问gitHub，你也可以在 dyyRime 中找到完全版本的配置包。

小结

本文分享了一种在rime中州韵小狼毫须鼠管输入法中使用的dateTime滤镜。该滤镜可以实现增强的日期和时间输入效果。同时该滤镜可以支持二十四节气，农历，事件的映射提示和输入。大大扩展了rime中州韵小狼毫须鼠管输入法的功能性和实用性。