ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: shizx98

公历转换农历及生辰八字

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2007-11-16 12:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

楼主辛苦了,但是八字计算错误!盼望改进!

QUOTE:
缍以下是引用shizx98在2007-7-26 14:44:15的发言:

公历农历转换的帖子有不少,都非常精妙。我经过学习和测试,发现其中还存在一些不足之处,

比如农历有2月29,2月30的时候,有的会显示成3-1,导致再转换公历时出错;以及数组编码里大小月错误的年数不少,

导致计算错误,现在经过研究并加以了改进,并增加了天干地支的生辰八字显示,于是就有了本贴,供大家参考。

本次修改是自从本贴发表以后又发现不少错误之处,这次进行了修改,并可以计算到2030年了。



楼主辛苦了,公历转农历很好用,但是八字计算错误!盼望改进!比如:公历1980-2-4日15:00为立春,此日八字应为: 庚申 戊寅 丁未 丁未,而这上面却显示八字为:己未 丁丑 丁未 丁未,原因在于:每年分隔点以立春为分割点,每个月的分隔点是24蒸气,而不是以农历的一月一日或者每个月的初一,盼着楼主和高手能改进哦!我找了好久哦,一直没找到。本人是一名易学爱好者。很需要。希望哪个高手可以做个函数,可以实现公历或农历到八字的转换!源码可以参考如下地址:http://blog.csdn.net/cosio/archive/2006/05/25/754692.aspx或者http://www.hao123.com/haoserver/wn.htm上面的源码。盼着哪个好心人能完成这个工作。

[此贴子已经被作者于2007-11-16 16:44:35编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-18 21:39 | 显示全部楼层

回复:(shizx98)[分享]公历农历转换及生辰八字

kiAO9QZB.rar (49.28 KB, 下载次数: 3518)
对天干地支的计算作了修改,请再试试看。

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-19 12:15 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复:(xiayongjun1)楼主辛苦了,但是八字计算错误!...


属相根据立春日来区分,现在作了修改。请xiayongjun1兄测试一下。

TA的精华主题

TA的得分主题

发表于 2007-11-19 13:11 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-11-19 17:11 | 显示全部楼层
QUOTE:
娄以下是引用shizx98在2007-11-19 12:15:02的发言:

属相根据立春日来区分,现在作了修改。请xiayongjun1兄测试一下。
感谢楼主的辛苦努力!大概测试了几十个数据,所有的都正确,除了一项:八字的时辰全部变成了:X子,不可能所有的时间都是子时啊!呵呵,盼楼主再接再励!差一步就成功了!

TA的精华主题

TA的得分主题

发表于 2007-11-19 17:25 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

牛人啊

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-19 21:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复:(xiayongjun1)娄以下是引用shizx98在2007-11-...

2Nlccou1.rar (48.27 KB, 下载次数: 29030)
时辰也修改了,请xiayongjun1兄再测试一下。谢谢!

TA的精华主题

TA的得分主题

发表于 2007-11-26 17:26 | 显示全部楼层

[分享]

QUOTE:
以下是引用shizx98在2007-11-19 21:31:00的发言:

时辰也修改了,请xiayongjun1兄再测试一下。谢谢!

不错!终于成功了!shizx98兄功不可末!现在 正在使用!代表所有的易学爱好者向shizx98兄致以最高敬意!如果再加上大运、流年的运算,就堪称一个完成的软件了!如果shizx98有时间的话可以加上大运的算法。此创举将使shizx98兄在中国的易学电算化历史上青史留名!再次向shizx98楼主致谢!大运流年的格式参考:http://www.china95.net/paipan/bazi/

大运的算法如下:

10.1 排大运:

    四柱为命, 大运为运, 命和运合为人一生的命运, 命运结合方知吉凶祸福.大运是以四柱中的月柱来排定的, 有男女顺逆之分, 起运数计算也有顺逆之别.

    大运排法: 阳男阴女顺排, 阴男阳女逆排, 一般排八步运. 如, 庚戌年己卯月生男, 为阳年生男, 其大运为: 庚辰, 辛巳, 壬午, 癸未, 甲申, 乙酉, 丙戌,丁亥. 庚戌年己卯月生女, 为阳年生女, 其大运为: 戊寅, 丁丑, 丙子, 乙亥,甲戌, 癸酉, 壬申, 辛未. 丁酉年甲辰月生男, 为阴年生男, 其大运为: 癸卯,壬寅, 辛丑, 庚子, 己亥, 戊戌, 丁酉, 丙申. 丁酉年甲辰月生女, 为阴年生女,其大运为: 乙巳, 丙午, 丁未, 戊申, 己酉, 庚戌, 辛亥, 壬子.

    起运数: 大运数的起法, 以三天折合一岁计, 即一天折合四个月, 一小时折合五天. 计算时, 如起运总数为18天, 被3除, 等于6, 即为6岁起大运. 如为19天, 则为6岁4个月起大运. 每十年行一步大运.起运天数的计算, 是以出生之日所在月令, 分男女顺逆算出.阳年生男, 男命以出生之日数至本月令结束, 如辰月生人, 其月令为清明之月, 清明结束之时, 即立夏巳月交节前夕. 如九五年四月二十一日生男, 阳年生男从二十一日数至五月初九清明节令结束, 芒种开始, 共十七天, 除3等于从5岁零八个月开始行大运. 如果这一天生女, 从二十一逆数至四月初九, 即立夏开始之日, 共14天, 除3等于从4岁零八个月行大运. 阴年生女同阳年生男,阴年生男同阳年生女.

TA的精华主题

TA的得分主题

发表于 2007-11-26 17:34 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-11-27 12:36 | 显示全部楼层

本人一直致力于中国命理学的程式化研究

QUOTE:
以下是引用彭希仁在2007-11-26 17:34:45的发言:

你可以做一个算命的了

呵呵,不错~!本人一直致力于中国命理学(通俗的说话就是算命)的程式化(电算华)研究!感谢为推动周易电算化进程作出贡献的人!

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-27 06:13 , Processed in 0.033698 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表