[求助]想要在状态栏显示农历日期怎么写代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]想要在状态栏显示农历日期怎么写代码？

共有5236人关注过本帖树形打印复制链接主题：[求助]想要在状态栏显示农历日期怎么写代码？

hws005

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：272 积分：2189 威望：0 精华：0 注册：2013/9/26 1:49:00

Post By：2014/4/23 22:50:00 [显示全部帖子]

StatusBar.Message3 = "今天是:" & Format(Date.now,"yyyy年MM月dd日 dddd")

hws005

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：272 积分：2189 威望：0 精华：0 注册：2013/9/26 1:49:00

Post By：2014/4/23 23:20:00 [显示全部帖子]

Dim nl As String = "" & Date.Today.Month & "/" & Date.Today.Day & "/" & Date.Today.Year & ""

Dim ln As New Lunar(nl)

StatusBar.Message3 = "今天是农历:" & ClDate(ln.LunarDate) & " " & "星期" & "日一二三四五六".Chars(Today.DayOfWeek)

此主题相关图片如下：qq图片20140424001517.jpg

[此贴子已经被作者于2014-4-24 0:14:49编辑过]

主题：[求助]想要在状态栏显示农历日期怎么写代码？