以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么去掉这个空白提示框?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73498)

--  作者:狐表开发
--  发布时间:2015/8/20 11:12:00
--  怎么去掉这个空白提示框?
如图:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150820110806.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/8/20 11:29:00
--  

封装得有问题

 

Dim rq As Date = #02/05/2001#
try
    Dim nl As new System.Globalization.ChineseLunisolarCalendar
    Dim str As String = nl.GetYear(rq) & "-" & nl.GetMonth(rq) & "-" & nl.GetDayOfMonth(rq)
    msgbox(str)
catch ex As exception
   
End try


--  作者:大红袍
--  发布时间:2015/8/20 11:30:00
--  

农历对象

 

https://msdn.microsoft.com/zh-cn/library/system.globalization.chineselunisolarcalendar

 


--  作者:狐表开发
--  发布时间:2015/8/20 11:50:00
--  
试试先,谢谢大红袍