以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断Lunar转换后的日期是否符合日期格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64089)

--  作者:pyh6918
--  发布时间:2015/2/4 17:53:00
--  如何判断Lunar转换后的日期是否符合日期格式
Dim ln As New Lunar(2008,12,31,False)
这句在执行时会出错

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150204175127.png
图片点击可在新窗口打开查看
因为农历没有12月31日
如何判断lunar是否转换成功?

--  作者:Bin
--  发布时间:2015/2/4 17:54:00
--  
try 
Dim ln As New Lunar(2008,12,31,False)
catch 
   messagebox.show("日期格式错误,转换失败")
end try

--  作者:有点甜
--  发布时间:2015/2/4 17:54:00
--  
try
    Dim ln As New Lunar(2008,12,31,False)
catch ex As exception
    msgbox("出错")
End try

--  作者:pyh6918
--  发布时间:2015/2/4 18:16:00
--  
多谢