excel 年月日 转 农历 公式 VBA代码

以下是一个简单的VBA代码，可以将Excel中的年月日转换为农历日期：

Function LunarDate(y As Integer, m As Integer, d As Integer) As String
    Dim lunarStr As String
    lunarStr = Format(DateSerial(y, m, d), "yyyy年m月d日")
    LunarDate = Application.International(xlDateCompatibility) & lunarStr
End Function

使用方法：

1. 在Excel中选择一个单元格，输入日期（例如2021/8/1）
2. 在另一个单元格中输入=LunarDate(Year(A1),Month(A1),Day(A1))，其中A1是你输入日期的单元格
3. 按下Enter键，即可在该单元格中看到农历日期

请注意，此代码使用的是Excel的内置国际化函数，因此在不同的Excel版本和语言环境中可能会有所不同。如果你在使用时遇到任何问题，请根据自己的实际情况进行调整。