摘要： 的计算机上运行。6.是日数。1月和2月按上一年的13月和14月来算。奇数月i=0，偶数月i=6。除以12的余数是地支。]的数表示取整。例如:查2006年4月1日的干支日。将数值代入计算公式。，天干的第7位是‘庚’。，地支的第9位是‘申’。答案是:2006年4月1日的干支日是庚申日。是日数。1月和2月按上一年的13月和14月来算。奇数月i=0，偶数月i=6。除以12的余数是地支。]的数表示取整。例如:查2006年4月1日的干支日。将数值代入计算公式。，天干的第7位是‘庚’。，地支的第9位是‘申’。答案是:2006年4月1日的干支日是庚申日。... 【精品】公历日期与干支纪日的对应关系18公历日期与干支纪日的对应关系 ' 代码(把以下内容复制到记事本，以vbs为扩展名保存阳历与天干地支，在“我的电脑”或“资源管理器”中双击文件，可以在没有安装 Basic 的计算机上运行。) d = ("请输入日期(公历)" + + _ "年月之间,月日之间用减号(连字符-)或正斜杠/隔开," + _ "如果计算今天的干支,直接按回车键或单击确定", , Date) n = ("d", "100 - 1 - 1", d) Case n Mod 10 + 1 Case 1: g = "戊" Case 2: g = "己" Case 3: g = "庚" Case 4: g = "辛" Case 5: g = "壬" Case 6: g = "癸" Case 7: g = "甲" Case 8: g = "乙" Case 9: g = "丙" Case 10: g = "丁" End Case n Mod 12 + 1 Case 1: z = "午" Case 2: z = "未" Case 3: z = "申" Case 4: z = "酉" Case 5: z = "戌" Case 6: z = "亥" Case 7: z = "子" Case 8: z = "丑" Case 9: z = "寅" Case 10: z = "卯" Case 11: z = "辰" Case 12: z = "巳" End "公历" & Year(d) & "年" & Month(d) & "月" & Day(d) & "日" & "是" & g & z & "日", 64 '如果安装了 Basic 6.0 可以使用下面的更短的代码: Sub () d = ("请输入日期(公历)" + + "年月之间,月日之间用减号(连字符-)或正斜杠/隔开," _ + "如果计算今天的干支,直接按回车键或单击确定", , Date) n = ("d", "100 - 1 - 1", d) g = (n Mod 10 + 1, "戊", "己", "庚", "辛", "壬", "癸", "甲", "乙", "丙", "丁") z = (n Mod 12 + 1, "午", "未", "申", "酉", "戌", "亥", "子", "丑", "寅", "卯", "辰", "巳") 'Print "公历"; (d, ""); "是"; g; z; "日" End Sub 速查干支纪日法 速查干支纪日法 从已知日期计算干支纪日的公式为: G = 4C + [C / 4] + 5y + [y / 4] + [3 * (M + 1) / 5] + d - 3 Z = 8C + [C / 4] + 5y + [y / 4] + [3 * (M + 1) / 5] + d + 7 + i 其中 C 是世纪数减一，y 是年份后两位，M 是月份，d 是日数。
1月和2月按上一年的13月和14月来算。奇数月i=0，偶数月i=6。G 除以10的余数是天干，Z 除以12的余数是地支。 计算时带[ ]的数表示取整。 例如:查2006年4月1日的干支日。 将数值代入计算公式。 G =4*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 - 3 =197 除以10 余数为 7 ，天干的第7位是‘庚’。 Z =8*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 + 7 + 6 =213 除以12 余数为 9 ，地支的第9位是‘申’。 答案是:2006年4月1日的干支日是庚申日。 速查干支纪日法 从已知日期计算干支纪日的公式为: G = 4C + [C / 4] + 5y + [y / 4] + [3 * (M + 1) / 5] + d - 3 Z = 8C + [C / 4] + 5y + [y / 4] + [3 * (M + 1) / 5] + d + 7 + i 其中 C 是世纪数减一，y 是年份后两位阳历与天干地支，M 是月份，d 是日数。
1月和2月按上一年的13月和14月来算。奇数月i=0，偶数月i=6。G 除以10的余数是天干，Z 除以12的余数是地支。 计算时带[ ]的数表示取整。 例如:查2006年4月1日的干支日。 将数值代入计算公式。 G =4*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 - 3 =197 除以10 余数为 7 ，天干的第7位是‘庚’。 Z =8*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 + 7 + 6 =213 除以12 余数为 9 ，地支的第9位是‘申’。 答案是:2006年4月1日的干支日是庚申日。
