用VBA函数实现阴阳历转换生辰八字.

632255273 · 发表于 2019-9-19 21:42

本帖最后由 632255273 于 2019-9-19 21:43 编辑

用VBA函数实现阴阳历转换生辰八字,日期范围1900-2030，有高手能把日期范围扩大到2050年或者2100年吗？前提是功能不改变哦，请见附件，学会分享是一种态度。

xiangbaoan · 发表于 2019-9-20 08:56

附件中时柱据五鼠遁应是应是庚辰，而不是戊辰。

蓝桥玄霜 · 发表于 2019-9-20 10:23

分享引用以前的帖子应该有个说明，把我十年前的（ID：shizx98）帖子翻出来再分享。
建议改为“求助”帖子分类

zopey · 发表于 2019-9-20 15:51

农历数组数据
1：闰月的月份，没有的为 0 ;2-3：春节的阳历日期(农历正月初一);
4-16：农历的每个月天数，含闰月, 1月到13月对应从左往右的顺序

(3, 1, 23, 29, 30, 29, 30, 29, 30, 29, 30, 30, 29, 30, 30, 29),    // 2050
(0, 2, 11, 30, 29, 29, 30, 29, 29, 30, 30, 29, 30, 30, 30, 0),    // 2051
(8, 2, 01, 29, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 30),    // 2052
(0, 2, 19, 29, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 0),    // 2053
(0, 2, 08, 29, 30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 0),    // 2054
(6, 1, 28, 29, 30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29),    // 2055
(0, 2, 15, 30, 30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 0),    // 2056
(0, 2, 04, 29, 30, 30, 29, 30, 29, 30, 30, 29, 29, 30, 29, 0),    // 2057
(4, 1, 24, 30, 29, 30, 29, 30, 29, 30, 30, 29, 30, 30, 29, 29),    // 2058
(0, 2, 12, 30, 29, 30, 29, 30, 29, 30, 29, 30, 30, 30, 29, 0),    // 2059
(0, 2, 02, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 29, 0),    // 2060
(3, 1, 21, 30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 30, 29),    // 2061
(0, 2, 09, 30, 30, 29, 29, 30, 29, 29, 30, 29, 30, 30, 29, 0),    // 2062
(7, 1, 29, 30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 30),    // 2063
(0, 2, 17, 30, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 0),    // 2064
(0, 2, 05, 30, 30, 29, 30, 30, 29, 30, 29, 29, 30, 29, 30, 0),    // 2065
(5, 1, 26, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29, 30, 29, 30),    // 2066
(0, 2, 14, 29, 30, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29, 0),    // 2067
(0, 2, 03, 30, 29, 30, 29, 29, 30, 30, 29, 30, 30, 29, 30, 0),    // 2068
(4, 1, 23, 29, 30, 29, 30, 29, 29, 30, 29, 30, 30, 30, 29, 30),    // 2069
(0, 2, 11, 29, 30, 29, 30, 29, 29, 30, 29, 30, 30, 29, 30, 0),    // 2070
(8, 1, 31, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 30, 30),    // 2071
(0, 2, 19, 30, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 30, 0),    // 2072
(0, 2, 07, 30, 29, 30, 30, 29, 30, 29, 29, 30, 29, 30, 29, 0),    // 2073
(6, 1, 27, 30, 29, 30, 30, 29, 30, 29, 30, 29, 30, 29, 30, 29),    // 2074
(0, 2, 15, 30, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29, 30, 0),    // 2075
(0, 2, 05, 29, 30, 29, 30, 29, 30, 29, 30, 30, 29, 30, 29, 0),    // 2076
(4, 1, 24, 30, 29, 30, 29, 29, 30, 29, 30, 30, 30, 29, 30, 29),    // 2077
(0, 2, 12, 30, 29, 30, 29, 29, 30, 29, 30, 30, 29, 30, 30, 0),    // 2078
(0, 2, 02, 29, 30, 29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 0),    // 2079
(3, 1, 22, 30, 29, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 30),    // 2080
(0, 2, 09, 29, 30, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 0),    // 2081
(7, 1, 29, 29, 30, 30, 30, 29, 29, 30, 29, 30, 29, 29, 30, 30),    // 2082
(0, 2, 17, 29, 30, 30, 29, 30, 29, 30, 29, 30, 29, 30, 29, 0),    // 2083
(0, 2, 06, 30, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29, 30, 0),    // 2084
(5, 1, 26, 29, 30, 29, 29, 30, 30, 29, 30, 30, 29, 30, 29, 30),    // 2085
(0, 2, 14, 29, 30, 29, 29, 30, 29, 30, 30, 29, 30, 30, 29, 0),    // 2086
(0, 2, 03, 30, 29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 30, 0),    // 2087
(4, 1, 24, 29, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 30, 29),    // 2088
(0, 2, 10, 30, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 29, 0),    // 2089
(8, 1, 30, 30, 30, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 29),    // 2090
(0, 2, 18, 30, 30, 29, 30, 29, 30, 29, 30, 29, 29, 30, 29, 0),    // 2091
(0, 2, 07, 30, 30, 29, 30, 30, 29, 30, 29, 30, 29, 30, 29, 0),    // 2092
(6, 1, 27, 29, 30, 30, 29, 30, 29, 30, 30, 29, 30, 29, 30, 29),    // 2093
(0, 2, 15, 29, 30, 29, 30, 29, 30, 30, 29, 30, 30, 29, 30, 0),    // 2094
(0, 2, 05, 29, 30, 29, 29, 30, 29, 30, 29, 30, 30, 30, 29, 0),    // 2095
(4, 1, 25, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 30, 29, 30),    // 2096
(0, 2, 12, 30, 29, 30, 29, 29, 30, 29, 29, 30, 30, 29, 30, 0),    // 2097
(0, 2, 01, 30, 30, 29, 30, 29, 29, 29, 30, 29, 30, 29, 30, 0),    // 2098
(2, 1, 21, 30, 30, 29, 30, 30, 29, 29, 30, 29, 29, 30, 29, 30),    // 2099
(0, 2, 09, 30, 30, 29, 30, 29, 30, 29, 30, 29, 29, 30, 29, 0)       // 2100

632255273 · 发表于 2019-12-14 21:57

本帖最后由 632255273 于 2019-12-14 22:01 编辑

蓝桥玄霜发表于 2019-9-20 10:23
分享引用以前的帖子应该有个说明，把我十年前的（ID：shizx98）帖子翻出来再分享。
建议改为“求助”帖子 ...

是的，可能点错了，大师能把日期增加到2050年吗，谢谢篮版大师

		自动登录	找回密码
密码			免费注册

[分享] 用VBA函数实现阴阳历转换生辰八字.

最新热点 /1