求助于如何将公历日期转为农历日期

tudozero

如下图，请问如何使用查询，将公历日期批量转化为农历日期。

感谢您的支持和帮助！

admin

论坛有示例哦
http://www.office-cn.net/thread-98119-1-1.html

tudozero

感谢,但您发的这个是窗体,不是查询语句可用.
我研究下,谢谢!

tudozero

好难啊,这个例子不能直接用在查询上

roych

tudozero 发表于 2019-2-28 11:37
好难啊,这个例子不能直接用在查询上

不难啊。创建一个模块调用就好了。

1. Function getLunar(ByVal inDate As Date)
   
2.     Dim cCal As New ChineseCalendar
   
3.     Dim strLunar As String
   
4.     cCal.GetDate Year(inDate), Month(inDate), Day(inDate)
   
5.     strLunar = cCal.LunarLongDate
   
6.     If Len(cCal.SolarTerm) > 0 Then
   
7.         strLunar = strLunar & "," & cCal.SolarTerm
   
8.     End If
   
9.     If Len(cCal.LunarHoliday) > 0 Then
   
10.         strLunar = strLunar & "," & cCal.LunarHoliday
    
11.     End If
    
12.     Set cCal = Nothing
    
13.     getLunar = strLunar
    
14. End Function

复制代码

tudozero

太好了,非常感谢roych老师的无私帮助,感恩!