1、excel输入阳历转八字
步骤 1:准备数据
在 Excel 工作表中输入阳历日期(列 A)和时间(列 B)。
格式化阳历日期和时间以匹配以下格式:
日期:yyyymmdd
时间:hh:mm:ss
步骤 2:创建自定义函数
使用 Visual Basic Editor (VBE) 创建一个自定义函数来转换阳历日期和时间为八字:
1. 按 Alt + F11 打开 VBE。
2. 在“插入”菜单上,选择“模块”。
3. 在模块窗口中,输入以下代码:
vba
Function ConvertToBaZi(dt As Date) As String
' 返回八字
Const Gan = "甲乙丙丁戊己庚辛壬癸"
Const Zhi = "子丑寅卯辰巳午未申酉戌亥"
Dim y, m, d, h, i, s
y = Year(dt)
m = Month(dt)
d = Day(dt)
h = Hour(dt)
i = Minute(dt)
s = Second(dt)
Dim ym, mh, dh, hs
ym = (y 4) Mod 60
mh = (m + 9) Mod 12
dh = (d + 5) Mod 10
hs = (h + 11) Mod 12
ConvertToBaZi = Left(Gan(ym \ 10) & Zhi(ym Mod 10), 1) & _
Left(Gan(mh \ 10) & Zhi(mh Mod 10), 1) & _
Left(Gan(dh \ 10) & Zhi(dh Mod 10), 1) & _
Left(Gan(hs \ 10) & Zhi(hs Mod 10), 1)
End Function
步骤 3:应用自定义函数
在包含阳历日期和时间的单元格中输入以下公式:
```
=ConvertToBaZi(A2&" "&B2)
```
其中,A2 表示包含阳历日期的单元格,B2 表示包含阳历时间的单元格。
示例:
假设在单元格 A2 中输入了阳历日期 "",在单元格 B2 中输入了阳历时间 "15:30:00"。输入公式 `=ConvertToBaZi(A2&" "&B2)` 后,单元格中将返回八字 "癸卯 甲辰 己巳 丙寅"。
2、excel阳历生日转换阴历生日
使用公式
在单元格中输入以下公式:
```
=TEXT(DATEVALUE(SUBSTITUTE(A2, "/", "")), "yyyymd")
```
其中:
A2 是包含阳历生日的单元格。
示例:
阳历生日:
公式:
```
=TEXT(DATEVALUE(SUBSTITUTE("", "/", "")), "yyyymd")
```
结果:(阴历生日)
说明:
`SUBSTITUTE` 函数将阳历日期中的斜杠 ("/") 替换为连字符 (""),以便 Excel 将其识别为日期。
`DATEVALUE` 函数将文本字符串转换为日期值。
`TEXT` 函数将日期值转换为文本字符串,并指定输出格式 "yyyymd" 以获取阴历生日。
3、excel阴历快速转换阳历日期
使用公式
在单元格中输入以下公式:
```
=DATEVALUE(YEAR(A1)+INT((A1DATE(YEAR(A1),1,1))/(365+MOD(YEAR(A1),4)/4MOD(YEAR(A1),100)/100+MOD(YEAR(A1),400)/400)),MONTH(A1)+INT((A1DATE(YEAR(A1),1,1))/(365+MOD(YEAR(A1),4)/4MOD(YEAR(A1),100)/100+MOD(YEAR(A1),400)/400))29.530589,DAY(A1))
```
其中,A1 是包含阴历日期的单元格。
示例:
| 阴历日期 | 公式 | 阳历日期 |
||||
| 庚寅年二月初一 | =DATEVALUE(YEAR(A1)+INT((A1DATE(YEAR(A1),1,1))/(365+MOD(YEAR(A1),4)/4MOD(YEAR(A1),100)/100+MOD(YEAR(A1),400)/400)),MONTH(A1)+INT((A1DATE(YEAR(A1),1,1))/(365+MOD(YEAR(A1),4)/4MOD(YEAR(A1),100)/100+MOD(YEAR(A1),400)/400))29.530589,DAY(A1)) | |
注意事项:
该公式适用于从 1900 年到 2049 年之间的阴历日期。
如果阴历日期是闰月,则需要在公式中添加一个调整值。闰月调整值可以在网上或通过参考日历获得。
4、excel阴历转阳历换算公式
=阳历日期ROUNDDOWN(阳历日期29.53059,0)
本文来自振梁投稿,不代表侠客易学立场,如若转载,请注明出处:http://www.skyjtgw.com/206412.html