公历年月日时转换四柱干支

BAIHF · 发表于 2020-5-12 00:16

感谢楼主分享

BAIHF · 发表于 2020-7-28 22:33

谢谢楼主无私奉献

WYS67 · 发表于 2021-1-28 03:50

zopey 发表于 2018-11-7 11:47
这是有多懒，麻烦你打开模块1 删除原代码后，自己复制粘贴。

公历转换天干地支 zopey.zip (578.92 KB, 下载次数: 66)

老师，发现大批量计算时，计算结果中间会出现#VALUE!错误（见sheet2和sheet3存放结果的B列），是什么原因造成的？

WYS67 · 发表于 2021-1-28 23:07

zopey 发表于 2018-11-7 14:00
把1楼附件复制粘贴到22楼的附件里，便能得出正确结果。

这不是最简单的方式吗？（恭喜你）

老师：都怪我太菜，怎么也找不到33楼中B列部分结果显示"#VALUE!"错误的原因何在？烦请老师看看问题出在哪里了？

WYS67 · 发表于 2021-1-28 23:44

zopey 发表于 2018-11-7 11:47
这是有多懒，麻烦你打开模块1 删除原代码后，自己复制粘贴。

老师：经过反复验证，发现33楼的自定义函数sizhu，对任何年的12-07~12-31号期间的25天，进行天干地支转换时，就会出现#VALUE!错误。而01-01~12-06号则能显示正确结果。
麻烦老师看看是什么原因引起的？

WYS67 · 发表于 2021-1-29 03:35

zopey 发表于 2018-11-7 09:49
datediff 函数参数原来为“d” ，精确到天，现在改为 “n” ，精确到分钟。

老师：经反复验证，发现自定义函数sizhu在计算任何一年的12/07~12/31这25天的天干地支时，都会发生#VALUE!错误。您可以试试。

zopey · 发表于 2021-1-29 22:21

'''''''''''''''''月柱+节气
mm1 = (yy1 * 2) Mod 10
d2 = A(mm1)
D3 = B1(0) & F(11)

For i = 12 To 1 Step -1
jieqi = getjq(Val(yy), (i - 1) * 2)
If DateDiff("n", jieqi, birth) >= 0 Then
mm1 = (yy1 * 2 + i) Mod 10
d2 = A(mm1)
If i = 12 Then ik = 0 Else ik = i
D3 = B1(ik) & F(i - 1)
Exit For
End If
Next i

WYS67 · 发表于 2021-1-29 23:05

zopey 发表于 2021-1-29 22:21
'''''''''''''''''月柱+节气
mm1 = (yy1 * 2) Mod 10
d2 = A(mm1)

经测试，完全正确！感谢老师！

WYS67 · 发表于 2021-1-30 06:42

本帖最后由 WYS67 于 2021-1-31 23:48 编辑

zopey 发表于 2021-1-29 22:21
'''''''''''''''''月柱+节气
mm1 = (yy1 * 2) Mod 10
d2 = A(mm1)

新建 Microsoft Excel 工作表.zip (8.41 KB, 下载次数: 88)

老师：百思不得其解--必须把代码粘贴在本工作簿的模块里【见表2】，B列才能显示正确结果-- 庚子鼠年戊子大雪月令壬寅日辛亥时
；

如果做成加载宏，在其它新建工作簿内调用自定义函数 SIZHU【见表1】函数计算，B列却显示为 庚7.00643676985055年戊子大雪月令壬寅日辛亥时

其庚子鼠年变成了庚7.00643676985055年，不能正确显示年支和属相，请问这是怎么回事？

WYS67 · 发表于 2021-1-30 20:52

请老师们看看40楼所述问题发生的原因，怎样解决？

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

[求助] 公历年月日时转换四柱干支

评分