以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在状态栏显示农历日期及星期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99308)
--  作者：zyxhx
--  发布时间：2017/4/17 10:27:00
--  如何在状态栏显示农历日期及星期
如何在状态栏显示公历日期时间及农历日期及星期?
我在AfterOpenProject中的代码：
statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日") 
statusBar.DefaultMessage = statusBar.Message1
只能显示公历日期，如何个性代码，让当前农历日期及星期都显示出来，公历日期后动态显示时分秒。

请专家指教，谢谢！
--  作者：有点色
--  发布时间：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
--  作者：zyxhx
--  发布时间：2017/4/17 11:34:00
--  
如果我要将以上显示的农历日期格式变为：“农历三月三十”这样的，如何改写？
--  作者：有点色
--  发布时间：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
--  作者：zyxhx
--  发布时间：2017/4/17 12:10:00
--  
不愧是专家，太厉害了，什么问题都能解决。谢谢了
--  作者：程兴刚
--  发布时间：2017/4/17 12:25:00
--  
还有三月初一~初十，留给您自己做作业！??
--  作者：zyxhx
--  发布时间：2017/4/17 13:59:00
--  
正想问这个问题，我想不出来。
--  作者：有点色
--  发布时间：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
--  作者：zyxhx
--  发布时间：2017/4/17 15:28:00
--  
向专家学习了，是不是把-11改这0

还请教一个问题：如果我不想显示农历日期后边的“日”字，如“农历三月二十一”，”三月初五“。应该怎么写代码？
--  作者：有点色
--  发布时间：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