干支纪年计算

aoe1981

香川群子 发表于 2013-12-26 22:00
楼主把问题搞复杂了吧……

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

这个确实简洁，果然高手啊。。。。。。。。你的天干与地去的编码与我的不一样。。。。我在百度文库一篇文章中看到过像贵大侠一样的编码方法，想必是主流。。。我是自我理解的，甲从1开始，子也从1开始。。。。方法是有点啰嗦。。。

香川群子

把干支字符改成国际双码字符……以便其它语言环境的电脑也能使用。

1. Function YC$(Year&)
   
2.     If Year < 0 Then Year = Year + 1
   
3.     s1$ = ChrW(24218) & ChrW(36763) & ChrW(22764) & ChrW(30328) & ChrW(30002) & ChrW(20057) & ChrW(19993) & ChrW(19969) & ChrW(25098) & ChrW(24049)
   
4.     s2$ = ChrW(30003) & ChrW(37193) & ChrW(25100) & ChrW(20133) & ChrW(23376) & ChrW(19985) & ChrW(23493) & ChrW(21359) & ChrW(36784) & ChrW(24051) & ChrW(21320) & ChrW(26410)
   
5.     YC = Mid(s1, Year Mod 10 + IIf(Year Mod 10 < 0, 11, 1), 1) & Mid(s2, Year Mod 12 + IIf(Year Mod 12 < 0, 13, 1), 1)
   
6. End Function
   

复制代码

aoe1981

香川群子 发表于 2013-12-26 22:00
楼主把问题搞复杂了吧……

看我的自定义函数直接搞定：计算原理：

这个自定义函数所蕴含的算理算法应当是研究了年份与天干除以10的余数的关系，年份与地支除以12的关系才形成的。。。。。。。。。这样可能更为直接、便捷。。。。我的思路从一开始的算理理解、算法设计上，只是考虑了“后推”与“前推”，没有研究年份与各自余数间存在何种函数关系。。。。。。。代码其实是技巧，是形式化的东西，蕴含其中的算理算法才是最核心的。。。不知所谈可否接近一二。。。。。。。。文档中类似ChrW(24218)的符号表示对应该字符的代码或其他什么吗。。。。这个不懂。。。

aoe1981

香川群子 发表于 2013-12-26 22:00
楼主把问题搞复杂了吧……

看我的自定义函数直接搞定：计算原理：

不过其实我还是闹着玩的居多，干支纪年其实是针对农历年份的。。。。。。。用公历是有出入的，比如2013年是癸巳年，但2014年1月春节前仍是癸巳年，而2013年1月是壬辰年。。。。。。我想，再深入下去，还是要对历法有所深入认识。。。

香川群子

aoe1981 发表于 2013-12-26 22:25
这个自定义函数所蕴含的算理算法应当是研究了年份与天干除以10的余数的关系，年份与地支除以12的关系才形 ...

我已经补充解释了……

原理非常简单，以公元0年的起始干支年份作为计算基点即可。

aoe1981

香川群子 发表于 2013-12-26 22:33
我已经补充解释了……

原理非常简单，以公元0年的起始干支年份作为计算基点即可。

之后看到了，网速的原因，只顾下附件了、只顾说自己的想法了。。。

hnwxm

没有多少价值

aoe1981

hnwxm 发表于 2013-12-27 10:13
没有多少价值

境界高哇。。。本就是玩玩的。。。呵呵

香川群子

aoe1981 发表于 2013-12-27 13:06
境界高哇。。。本就是玩玩的。。。呵呵

嗯……

没什么不要气馁。

我自己刚开始接触Excel，很多也是自己瞎摸，绕了很多弯路……最后发现别人一句代码就解决了。

但是对于学习过程来说，这样的自主探索很重要！
只有在不断的实践中，才会取得进步。


日积月累，水到渠成。

TYGK8U8

学习了,但月份要怎么弄呢?我按网上的方法将年和日都做出来了,但月份没找到办法,请楼主解决