- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：农历日期格式化问题，求纠正代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68147)
-- 发布时间：2015/5/11 10:54:00
-- 求助：农历日期格式化问题，求纠正代码
If Forms("黔源综合管理主窗体").opened Then
Dim a As WinForm.Label = Forms("黔源综合管理主窗体").Controls("Label1")
Dim ln As New Lunar(Date.Today)
Dim b As String = ln.LunarDate
a.text = "现在北京时间是:" & Format(Date.Now(), "F") & " 今天是农历年:" & Format(b,"D")
Else
Return
End If
效果如图：
此主题相关图片如下：222.png
-- 发布时间：2015/5/11 10:57:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67019&authorid=0&page=0&star=2