年份干支计算方法和代码

嫂子

包含了代码和计算说明

  

子程序名	返回值类型	公开	备 注
年干支	文本型
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型

变量名	类 型	静态	数组	备 注
Year	整数型
Year_g	整数型
天干	文本型		10
地支	文本型		12
干	文本型
支	文本型
zhiIndex	整数型

' 天干序数按：1（甲），2（乙），3（丙），4（丁），5（戊），6（己），7（庚），8（辛），9（壬），10（癸）
' 地支序数按：1（寅），2（卯），3（辰），4（巳），5（午），6（未），7（申），8（酉），9（戌），10（亥），11（子），12（丑）
' 年干支推算：
' ①年干公式：年干=年份个位数- 3（适用于任何西元年，个位数小于3，借10）
' ②年支公式：年支=（年份+7）÷12余数（整除余0，即余12=丑）
天干 ＝ { “甲”, “乙”, “丙”, “丁”, “戊”, “己”, “庚”, “辛”, “壬”, “癸” }
地支 ＝ { “寅”, “卯”, “辰”, “巳”, “午”, “未”, “申”, “酉”, “戌”, “亥”, “子”, “丑” }
Year ＝ 取年份 (时间)
Year_g ＝ Year ％ 10
如果真 (Year_g ＜ 3)
Year_g ＝ Year_g ＋ 10

干 ＝ 天干 [Year_g － 3]
zhiIndex ＝ (Year ＋ 7) ％ 12
如果真 (zhiIndex ＝ 0)
zhiIndex ＝ 12
支 ＝ 地支 [zhiIndex]
返回 (干 ＋ 支)

.版本 2<br /> <br /> .子程序 年干支, 文本型<br /> .参数 时间, 日期时间型<br /> .局部变量 Year, 整数型<br /> .局部变量 Year_g, 整数型<br /> .局部变量 天干, 文本型, , "10"<br /> .局部变量 地支, 文本型, , "12"<br /> .局部变量 干, 文本型<br /> .局部变量 支, 文本型<br /> .局部变量 zhiIndex, 整数型<br /> <br /> ' 天干序数按：1（甲），2（乙），3（丙），4（丁），5（戊），6（己），7（庚），8（辛），9（壬），10（癸）<br /> ' 地支序数按：1（寅），2（卯），3（辰），4（巳），5（午），6（未），7（申），8（酉），9（戌），10（亥），11（子），12（丑）<br /> ' 年干支推算：<br /> ' ①年干公式：年干=年份个位数- 3（适用于任何西元年，个位数小于3，借10）<br /> ' ②年支公式：年支=（年份+7）÷12余数（整除余0，即余12=丑）<br /> <br /> 天干 ＝ { “甲”, “乙”, “丙”, “丁”, “戊”, “己”, “庚”, “辛”, “壬”, “癸” }<br /> 地支 ＝ { “寅”, “卯”, “辰”, “巳”, “午”, “未”, “申”, “酉”, “戌”, “亥”, “子”, “丑” }<br /> Year ＝ 取年份 (时间)<br /> Year_g ＝ Year ％ 10<br /> .如果真 (Year_g ＜ 3)<br />     Year_g ＝ Year_g ＋ 10<br /> .如果真结束<br /> <br /> 干 ＝ 天干 [Year_g － 3]<br /> zhiIndex ＝ (Year ＋ 7) ％ 12<br /> .如果真 (zhiIndex ＝ 0)<br />     zhiIndex ＝ 12<br /> .如果真结束<br /> 支 ＝ 地支 [zhiIndex]<br /> <br /> 返回 (干 ＋ 支)

小磊88

感谢分享，很给力！nb

嫂子

1678895471 发表于 2024-6-5 17:03
有针对这种情况的算法吗

暂无。要先算出 节气。易语言支持库也不是按照节气算的 。

1678895471

嫂子 发表于 2024-6-5 11:06
那是因为 有望朔的算法。

如果按照望朔计算那就不是简单的顺序推算了。也就是说 正月不一定是新年开始

有针对这种情况的算法吗

嫂子

1678895471 发表于 2024-6-5 10:26
2023年12月6号和7号是两个不同的月干支就算不出来了

12.6和12.7 不同月 因为12.7 时大雪。

干支按照节气推算才是这个结果。

嫂子

1678895471 发表于 2024-6-5 10:26
2023年12月6号和7号是两个不同的月干支就算不出来了

那是因为 有望朔的算法。

如果按照望朔计算那就不是简单的顺序推算了。也就是说 正月不一定是新年开始

按照顺序推算是同一个月。

1678895471

嫂子 发表于 2024-6-5 10:19
月干支 我已经告诉你办法了 并且是准确的。

2023年12月6号和7号是两个不同的月干支就算不出来了

嫂子

1678895471 发表于 2024-6-4 15:39
我在百du和谷歌都查了，但是写出来的查多了都是不准的

月干支 我已经告诉你办法了 并且是准确的。

1678895471

嫂子 发表于 2024-6-2 21:20
继续百du 谷歌呗  要算月日 其实最关键是先算 农历

我在百du和谷歌都查了，但是写出来的查多了都是不准的

嫂子

1678895471 发表于 2024-6-2 17:34
年月日时要四个呢……

继续百du 谷歌呗  要算月日 其实最关键是先算 农历