Dim y As Integer = Date.Today.Year
Dim d,dt As Date
Dim ln As New Lunar(y-1,12,20,False)
Dim Nl As New Lunar(y,12,19,False)
d = ln.SolarDate
dt = Nl.SolarDate

Dim t As Table = Tables("假期安排_Table1")
t.Fill("Select  假期名称,安排项目,Min(日期) As 开始日期,Max(日期) As 结束日期,Max(日期)-Min(日期)+1 减去周六、周日 As 天数 Fro m {假期安排} WHERE 日期 >= #" & d & "# And 日期 <= #" & dt & "# GROUP BY 假期名称,安排项目 ORDER BY Min(日期)","数据库",True)
请老师指教，谢谢

无法直接用sql语句得到你需要的结果。

如果是直接加减，参考 http://www.foxtable.com/webhelp/scr/0692.htm

如果要得到周六周日的天数，必须写foxtable代码处理。