以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  公历转农历  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177815)

--  作者：edisontsui --  发布时间：2022/6/6 10:28:00 --  公历转农历     Dim ln1 As new lunar("日期")     Dim ln2 As String = Format(ln1.lunardate,"yyyyMMddHHmmssfff")      If ln2.Substring(4,4) = "0505" Then        e.DataRow("签到时间") = "端午节"        e.DataRow("签退时间") = "端午节"     End If 上面代码执行时提示： 从字符串“日期”到类型“Date”的转换无效。请问为什么呢？

--  作者：有点蓝 --  发布时间：2022/6/6 10:41:00 --   要知道具体的日期： Dim ln1 As new lunar(#3/17/2002#)

--  作者：edisontsui --  发布时间：2022/6/6 10:48:00 --   如果要把公历的“日期”列转化为农历，格式还是YYYY-MM-DD，那要怎么修改它呢？

--  作者：有点蓝 --  发布时间：2022/6/6 10:49:00 --   Dim ln1 As new lunar(e.DataRow("日期"))