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

1楼

zyxhx 发表于：2017/4/17 10:27:00

如何在状态栏显示公历日期时间及农历日期及星期?

我在AfterOpenProject中的代码：

statusBar.Message1 = "当前用户:" & User.Name & " 日期:" & Format(Date.Today,"yyyy年MM月dd日")

statusBar.DefaultMessage = statusBar.Message1

只能显示公历日期，如何个性代码，让当前农历日期及星期都显示出来，公历日期后动态显示时分秒。

请专家指教，谢谢！

2楼

有点色 发表于：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

3楼

zyxhx 发表于：2017/4/17 11:34:00

如果我要将以上显示的农历日期格式变为：“农历三月三十”这样的，如何改写？

4楼

有点色 发表于：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

5楼

zyxhx 发表于：2017/4/17 12:10:00

不愧是专家，太厉害了，什么问题都能解决。谢谢了

6楼

程兴刚 发表于：2017/4/17 12:25:00

还有三月初一~初十，留给您自己做作业！??

7楼

zyxhx 发表于：2017/4/17 13:59:00

正想问这个问题，我想不出来。

8楼

有点色 发表于：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

9楼

zyxhx 发表于：2017/4/17 15:28:00

向专家学习了，是不是把-11改这0

还请教一个问题：如果我不想显示农历日期后边的“日”字，如“农历三月二十一”，”三月初五“。应该怎么写代码？

10楼

有点色 发表于：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

共14 条记录, 每页显示 10 条, 页签: [1] [2]