干支纪年计算

aoe1981

大半夜的搞了一个所谓“干支纪年计算”，权当无事生事吧。。。。。。呵呵。。。代码公开。。。

干支纪年计算.rar (25.44 KB, 下载次数: 169)

2013-12-25 22:38 上传

点击文件名下载附件

dragonthree

看不懂“干支纪年计算”与1984年有什么关系？

dragonthree

Private Sub CommandButton1_Click()
Dim nfc%, tgs%, dzs%, tg(), dz(), rng As Range
tg = Array("甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸")
dz = Array("子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥")
If TextBox1.Text = "" Then TextBox2.Text = "": MsgBox "请输入要查询的年份！", , "友情提示": Exit Sub
If IsNumeric(TextBox1.Text) = False Then MsgBox "请输入数字年份，中间不能有空格！", , "友情提示": TextBox1.Text = "": TextBox2.Text = "": Exit Sub
If TextBox1.Text <> Int(TextBox1.Text) Then MsgBox "请输入整数年份！", , "友情提示":  TextBox1.Text = "": TextBox2.Text = "": Exit Sub
If TextBox1.Text > 34750 Or TextBox1.Text < -30784 Then MsgBox "输入年份范围应当在[-30784，34750]之间！", , "友情提示":  TextBox1.Text = "": TextBox2.Text = "": Exit Sub
nfc = TextBox1.Text - 4
tgs = nfc Mod 10
dzs = nfc Mod 12
TextBox2.Text = tg(tgs) & dz(dzs)
'If TextBox1.Text > 1984 Then
'    nfc = TextBox1.Text - 1984 + 1
'    tgs = nfc Mod 10: If tgs = 0 Then tgs = 10
'    dzs = nfc Mod 12: If dzs = 0 Then dzs = 12
'    TextBox2.Text = tg(tgs - 1) & dz(dzs - 1)
'End If
'If TextBox1.Text < 1984 Then
'    nfc = 1984 - TextBox1.Text - 1
'    tgs = nfc Mod 10: tgs = 10 - tgs
'    dzs = nfc Mod 12: dzs = 12 - dzs
'    TextBox2.Text = tg(tgs - 1) & dz(dzs - 1)
'End If
For Each rng In 参照表.Range("d6:d65")
    If rng.Value = TextBox2.Text Then
       rng.Resize(1, 3).Select
    End If
Next
End Sub

aoe1981

“没有公元0年。只有公元元年，即公元1年。公元1年之前的那年就是公元前1年。”
发现了一个问题：没有公元0年，因此，上述代码要排除0，而且负数要统统加1.。。。。。。。待会再传修改后的

aoe1981

Private Sub CommandButton1_Click()
Dim nf%, nfc%, tgs%, dzs%, tg(), dz(), rng As Range
tg = Array("甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸")
dz = Array("子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥")
If TextBox1.Text = "" Then TextBox2.Text = "": MsgBox "请输入要查询的年份！", , "友情提示": Exit Sub
If IsNumeric(TextBox1.Text) = False Then MsgBox "请输入数字年份，中间不能有空格！", , "友情提示": TextBox1.Text = "": TextBox2.Text = "": Exit Sub
If TextBox1.Text <> Int(TextBox1.Text) Then MsgBox "请输入整数年份！", , "友情提示":  TextBox1.Text = "": TextBox2.Text = "": Exit Sub
If TextBox1.Text > 34750 Or TextBox1.Text < -30784 Then MsgBox "输入年份范围应当在[-30784，34750]之间！", , "友情提示":  TextBox1.Text = "": TextBox2.Text = "": Exit Sub
If TextBox1.Text = 0 Then MsgBox "输入错误，没有公元0年！", , "友情提示":  TextBox1.Text = "": TextBox2.Text = "": Exit Sub
If TextBox1.Text = 1984 Then TextBox2.Text = "甲子"
If TextBox1.Text > 1984 Then
    nfc = TextBox1.Text - 1984 + 1
    tgs = nfc Mod 10: If tgs = 0 Then tgs = 10
    dzs = nfc Mod 12: If dzs = 0 Then dzs = 12
    TextBox2.Text = tg(tgs - 1) & dz(dzs - 1)
End If
If TextBox1.Text < 1984 Then
    nf = TextBox1.Text
    If nf < 0 Then nf = nf + 1
    nfc = 1984 - nf - 1
    tgs = nfc Mod 10: tgs = 10 - tgs
    dzs = nfc Mod 12: dzs = 12 - dzs
    TextBox2.Text = tg(tgs - 1) & dz(dzs - 1)
End If
For Each rng In 参照表.Range("d6:d65")
    If rng.Value = TextBox2.Text Then
       rng.Resize(1, 3).Select
    End If
Next
End Sub
这是修改后的代码，待会再传一个新附件。。。

aoe1981

这是排除了公元0年，解决了公元前纪年问题的附件。。。

aoe1981

dragonthree 发表于 2013-12-25 23:07
看不懂“干支纪年计算”与1984年有什么关系？

以1984为基准往前推，往后推呀，一个甲子60年为一个周期。。。

aoe1981

dragonthree 发表于 2013-12-25 23:15
Private Sub CommandButton1_Click()
Dim nfc%, tgs%, dzs%, tg(), dz(), rng As Range
tg = Array("甲", ...

做过修改吗？能不能说明下思路。。。

aoe1981

dragonthree 发表于 2013-12-25 23:15
Private Sub CommandButton1_Click()
Dim nfc%, tgs%, dzs%, tg(), dz(), rng As Range
tg = Array("甲", ...

推算干支方法众多，可能有更简便的，贵大侠的经测试对于公元前的会报错，比如输入为负数时。。。

香川群子

楼主把问题搞复杂了吧……

看我的自定义函数直接搞定：

1. 
   
2. Function YC(Year&)
   
3.     If Year < 0 Then Year = Year + 1 '公元前年份+1调整
   
4.     YC = Mid("庚辛壬癸甲乙丙丁戊己", Year Mod 10 + IIf(Year Mod 10 < 0, 11, 1), 1) & _
   
5.       Mid("申酉戌亥子丑寅卯辰巳午未", Year Mod 12 + IIf(Year Mod 12 < 0, 13, 1), 1)
   
6. End Function
   

复制代码

计算原理：
天干以10年为一循环，因此把年份对10求余数即可得到对应位置。
为方便起见，实际起始位置不是"甲乙丙丁……" 的顺序，而是"庚辛壬癸甲乙丙丁戊己"的顺序。

地支以12年为一循环，因此把年份对12求余数即可得到对应位置。
为方便起见，实际起始位置不是"子丑寅卯……" 的顺序，而是"申酉戌亥子丑寅卯辰巳午未"的顺序。

为啥呢？其实很简单：
天干、地支求余都为0的最简单年份是 公元0年的干支纪年是【庚申】年。

另外，考虑到实际不存在公元0年（对应为公元前1年）
所以所有公元前年份和实际计算会相差1年。
那么公元负数年份（公元前年份）需要+1调整