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.Message2 = " ★★★★★ 凯和欣欢迎您! ★★★★★"
'statusBar.Message3 = " 瑞迪思集团欢迎您!"
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.rightPaneItems(0).ForeColorOuter = Color.blue
加好友 
发短信
Post By：2023/3/20 13:30:00 [只看该作者]
此主题相关图片如下：1679289955843.png
