干支纪年与公历、农历间的相互转换

r_zxf

经查，1936年农历闰三月，公历1936年7月24日对应农历日为六月初七，丙子年、乙未月、丁未日。

YZC51

zopey 发表于 2018-9-12 11:04
由第一行的八字1（黄色）反推出 阳历日期 1936-7-24（黄色），再代入第二行  重新计算此日期的八字。
两个 ...

谢谢老师指教！已经修改，烦请老师测试！

YZC51

附件来了 皇帝纪年 V1.31-2018-9-12修复3处错误.rar (49.07 KB, 下载次数: 71)

2018-9-12 22:57 上传

点击文件名下载附件

zopey

干支纪年的时间跨度 可以很大（暂定为 公元0 --2500 年），不应该被农历束缚住。
为了避免杜撰、伪造八字，用个具体日期来生成它，再查找相同八字的日期列表。



同八字日期.zip (35.05 KB, 下载次数: 54)

2018-9-13 08:48 上传

点击文件名下载附件

zopey

Sub 按钮1_Click()
Rows("3:65535").ClearContents

yy1 = year([a1])
yz2 = Mid(sizhu([a1]), 6, 2)
rz3 = Mid(sizhu([a1]), 13, 2)

Dim A, B, C, F
A = Array("甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸")
B = Array("子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥")
C = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪")
F = Array("小寒", "立春", "惊蛰", "清明", "立夏", "芒种", "小暑", "立秋", "白露", "寒露", "立冬", "大雪")

Dim i As Long, j%, k2
k2 = 2
For i = (yy1 Mod 60) To 2500 Step 60
k0 = (i - 1864) Mod 10
If k0 < 0 Then k0 = k0 + 10

For j = 1 To 12
    k = (k0 * 2 + j) Mod 10
   
    If A(k) & B(j Mod 12) = yz2 Then
       For m = 1 To DateDiff("d", getjq(i, (j - 1) * 2), getjq(i, j * 2))
          sz2 = sizhu(getjq(i, (j - 1) * 2, m - 1))
          If Mid(sz2, 13, 2) = rz3 Then
             k2 = k2 + 1
             Cells(k2, 1) = getjq(i, (j - 1) * 2, m - 1)
             Cells(k2, 2) = sz2
             GoTo haha
          End If
       Next
    End If
Next j
haha:
Next i
End Sub

玉阳山人

老师：恳请您看看http://club.excelhome.net/forum. ... 1435322&pid=9655232  里面的问题。怎样编写sub过程代码？

YZC51

1楼附件已经更新！
增加了手动输入干支，自动输出农历和公历日期！

r_zxf

个人觉得，在《GB农历的编算和颁行》中关于农历干支纪年、干支纪日及属相纪年的规定仅针对农历而言，应该与生辰八字的四柱无关。所以，生辰八字的年从立春始，月从节气始，日从子时始。

YZC51

r_zxf 发表于 2018-9-21 16:49
个人觉得，在《GB农历的编算和颁行》中关于农历干支纪年、干支纪日及属相纪年的规定仅针对农历而言，应该与 ...

请参考
http://club.excelhome.net/thread-1391444-1-1.html

蓝盾设计

YZC51 发表于 2018-9-12 22:57
附件来了

好好学习，好多年没有练习了