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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/07 03:54:27

如何计算天干地支?如何计算某年某月某日的天干地支,有没有公式?我想用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的余数是地支.' 计算时带[ ]的数表示取整