如何计算天干地支?如何计算某年某月某日的天干地支,有没有公式?我想用VB写一个日历程序.

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/09 11:11:15
如何计算天干地支?如何计算某年某月某日的天干地支,有没有公式?我想用VB写一个日历程序.
xSoAWm]vX$Xƃꡄ*\VjEL% 6XV\~7@Ƌq}y}y͛@2D϶ɸ<D]ZR{:Ni-p[1ף%Ve:ZmQqeإ4W%1rvsraoW2b-20b:%b hFdXPhHG߰MQz=aj,TH^Ϣ)Hw= [zu<)fU8`aVOSW<$E%M: Ko q$Ƹ>}脝x4 wQ(eɱrn#͚s =NM>h]u*:GΑ zSy9"!} A_Y:5 kET)A<'aX 2~# Aԯ"ѣ.UR^콉zc׃D_? 24USɸb:FNT`>ϕ ԛvc@Ǭ|pm$F_`-`

如何计算天干地支?如何计算某年某月某日的天干地支,有没有公式?我想用VB写一个日历程序.
如何计算天干地支?
如何计算某年某月某日的天干地支,有没有公式?我想用VB写一个日历程序.

如何计算天干地支?如何计算某年某月某日的天干地支,有没有公式?我想用VB写一个日历程序.
某年的第n个节气为几日(从0小寒起算) 'function sTerm(y,n) { ' var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000 ) + Date.UTC(1900,0,6,2,5) ) ' return(offDate.getUTCDate()) '例如:查2006年4月1日的干支日.将数值代入计算公式.'G =4*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 - 3 =197 'Z =8*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 + 7 + 6 =213 '其中 C 是世纪数减一,y 是年份后两位,M 是月份,d 是日数.1月和2月按上一年的13月和14月来算.奇数月i=0,偶数月i=6.G 除以10的余数是天干,Z 除以12的余数是地支.' 计算时带[ ]的数表示取整