如何在状态栏显示农历日期及星期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在状态栏显示农历日期及星期

共有3767人关注过本帖树形打印复制链接主题：如何在状态栏显示农历日期及星期

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/17 10:31:00 [显示全部帖子]

systemidle事件写代码

static ln As New Lunar(Date.Today)
statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & ln.LunarDate & " 时间:" & format(Date.now, "HH:mm:ss"))
statusBar.DefaultMessage = statusBar.Message1

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/17 11:42:00 [显示全部帖子]

static ln As New Lunar(Date.Today)
statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & cldate(ln.LunarDate).Substring(5) & " 时间:" & format(Date.now, "HH:mm:ss"))
statusBar.DefaultMessage = statusBar.Message1

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/17 14:08:00 [显示全部帖子]

static ln As New Lunar(Date.Today)
Dim str As String = ""
Dim d As Date = cdate(ln.LunarDate).adddays(-11)
If d.Day <= 10 Then
    str = cldate(d).Substring(5)
    str = str.Insert(str.Length-2, "初")
Else
    str = cldate(d).Substring(5)
End If
statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & str & " 时间:" & format(Date.now, "HH:mm:ss"))
statusBar.DefaultMessage = statusBar.Message1

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/17 15:38:00 [显示全部帖子]

static ln As New Lunar(Date.Today)
Dim str As String = ""
Dim d As Date = cdate(ln.LunarDate) '.adddays(-11)
If d.Day <= 10 Then
    str = cldate(d).Substring(5).trim("日")
    str = str.Insert(str.Length-2, "初")
Else
    str = cldate(d).Substring(5).trim("日")
End If
statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & str & " 时间:" & format(Date.now, "HH:mm:ss"))
statusBar.DefaultMessage = statusBar.Message1

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/17 16:45:00 [显示全部帖子]

知识点

http://www.foxtable.com/webhelp/scr/1274.htm

http://www.foxtable.com/webhelp/scr/1581.htm

http://www.foxtable.com/webhelp/scr/1578.htm

http://www.foxtable.com/webhelp/scr/0240.htm

下一主题 >> << 上一主题

主题：如何在状态栏显示农历日期及星期