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

zopey

Function sizhu(birth As Date) As String

Dim A, B1, B2, F
A = Array("甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸") 'yy1+mm1+yy3
B1 = Array("子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥") 'yy2+yy4
B2 = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪") 'yy2
F = Array("小寒", "立春", "惊蛰", "清明", "立夏", "芒种", "小暑", "立秋", "白露", "寒露", "立冬", "大雪") 'i

yy = year(birth)
mm = month(birth)
dd = Day(birth)
hh = TimeSerial(Hour(birth), Minute(birth), Second(birth))

'''''''''''''''''''''''''年柱+生肖
lichun = getjq(Val(yy), 2)

If DateDiff("d", lichun, birth) >= 0 Then
  yy1 = (yy - 4) Mod 10
  yy2 = (yy - 4) Mod 12
Else
  yy1 = (yy - 5) Mod 10
  yy2 = (yy - 5) Mod 12
End If

D0 = A(yy1)
d1 = B1(yy2) & B2(yy2)

'''''''''''''''''月柱+节气
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("d", jieqi, birth) >= 0 Then
   mm1 = (yy1 * 2 + i) Mod 10
   d2 = A(mm1)
   D3 = B1(i) & F(i - 1)
   Exit For
End If
Next i

''''''''''''''''''''''日柱
birth2 = DateDiff("d", "1901-2-15", birth)
yy3 = birth2 Mod 10
If yy3 < 0 Then yy3 = yy3 + 10
yy4 = birth2 Mod 12
If yy4 < 0 Then yy4 = yy4 + 12

D4 = A(yy3)
D5 = B1(yy4)

''''''''''''''''''''' 时柱
If DateDiff("n", "23:00", hh) >= 0 Or DateDiff("n", "1:00", hh) < 0 Then
   yy5 = 0
Else
   yy5 = Int(DateDiff("n", "1:00", hh) / 120) + 1
End If
yy6 = (yy3 * 2 + yy5) Mod 10

D6 = A(yy6)
D7 = B1(yy5)

''''''''''''''''''''' 四柱综合

sizhu = D0 & d1 & "年 " & d2 & D3 & "月令 " & D4 & D5 & "日 " & D6 & D7 & "时"

End Function

WYS67

zopey 发表于 2018-11-6 15:13
Function sizhu(birth As Date) As String

Dim A, B1, B2, F

老师：怎样在J5:M50000里输入公式？试了几次都显示错误。麻烦用1楼附件作个示范传上来。

zopey

自行了解 mid函数：
=mid(sizhu(xxxx),1,2)
=mid(sizhu(xxxx),6,2)
=mid(sizhu(xxxx),13,2)
=mid(sizhu(xxxx),17,2)

WYS67

zopey 发表于 2018-11-6 18:24
自行了解 mid函数：
=mid(sizhu(xxxx),1,2)
=mid(sizhu(xxxx),6,2)

？？？？J5:M5里怎样输入公式？

WYS67

zopey 发表于 2018-11-6 18:24
自行了解 mid函数：
=mid(sizhu(xxxx),1,2)
=mid(sizhu(xxxx),6,2)

老师：反复测试，计算结果总是显示#VALUE!错误，恳请按1楼格式作个附件上传。

zopey

显示#VALUE!错误的 文件 制作附件上传，给你检查下。

WYS67

zopey 发表于 2018-11-6 19:14
显示#VALUE!错误的 文件 制作附件上传，给你检查下。

公历与干支换算.zip (1.62 MB, 下载次数: 97)

2018-11-6 19:32 上传

点击文件名下载附件

zopey

我的附件里有2个模块 ：模块1，模块2。
模块2被你弄丢了。

干支换算2.rar (1.54 MB, 下载次数: 169)

2018-11-6 19:40 上传

点击文件名下载附件

WYS67

zopey 发表于 2018-11-6 19:42
我的附件里有2个模块 ：模块1，模块2。
模块2被你弄丢了。

1.可不可以把模块1、2里的代码合并，以防加载宏时和别的自定义函数混淆？
2.J21593:M21593以下显示#VALUE!是怎么回事？
3.月建每次改变【如辛卯变为壬辰】，都是在日辰的开始【08:45】，这一点不符合实际情况【应该严格按照12节变更的时辰自动变更】
4.能不能提高运算速度【目前的代码运行速度太慢】？

zopey

第3点 啥意思？ 截图 举例说明 ：
3.月建每次改变【如辛卯变为壬辰】，都是在日辰的开始【08:45】，这一点不符合实际情况【应该严格按照12节变更的时辰自动变更】

速度只能这样，工作表里 有上万个公式 ，能快到哪里去 ？