看是不是这个问题，有的行没有 生日。
Dim d As DateIf Date.TryParse(d, e.Row("生日")) Then Dim ln As New Lunar(d) d = ln.SolarDate
'其它代码End If
加好友 
发短信
Post By：2014/6/29 18:03:00 [显示全部帖子]
