Excel农历阳历转换操作指南

一、基础转换方法

1.1 内置日期函数

使用TEXT函数结合Windows系统日期格式实现转换：

1.2 第三方插件

• 农历转换助手（需从微软商店下载）
• 历法转换工具箱（支持批量转换）
• Excel历表插件（含公历/农历对照表）

二、VBA脚本实现

2.1 公历转农历脚本

在VBA编辑器中粘贴以下代码：

Sub农历转换

Dim 公历日期 As Date

公历日期 = InputBox("请输入公历日期")

消息框显示=Text(公历日期,"中国黄历")

End Sub

2.2 农历转公历脚本

Sub公历转换

Dim 农历日期 As String

农历日期 = InputBox("请输入农历日期")

消息框显示=Text(Now,"yyyy年m月d日")

End Sub

三、注意事项

• 转换结果以国家法定节假日为准
• 闰月计算基于公历2020年及以后日期
• 历史日期转换可能存在误差

3.1 数据验证

使用数据验证功能限制输入范围：

设置条件：日期格式且在1900-01-01至9999-12-31之间

四、推荐工具