以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]时间性错误，请帮忙看看？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185832)
--  作者：bigeng
--  发布时间：2023/3/20 13:30:00
--  [求助]时间性错误，请帮忙看看？

图片点击可在新窗口打开查看此主题相关图片如下：1679289955843.png
图片点击可在新窗口打开查看
--  作者：bigeng
--  发布时间：2023/3/20 13:31:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：1679290074418.png
图片点击可在新窗口打开查看
--  作者：bigeng
--  发布时间：2023/3/20 13:32:00
--  
应该是这里的问题，麻烦给看一下，怎么修改一下。
--  作者：有点蓝
--  发布时间：2023/3/20 13:40:00
--  
代码发一下不要截图

提示应该是日期转换有问题，今年2月份没有29日
--  作者：bigeng
--  发布时间：2023/3/20 13:47: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.Message2 = "                                                                                            ★★★★★  凯和欣欢迎您!  ★★★★★"
\'statusBar.Message3 = "                                                       瑞迪思集团欢迎您!"
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.rightPaneItems(0).ForeColorOuter = Color.blue
--  作者：有点蓝
--  发布时间：2023/3/20 14:14:00
--  
首先农历转换为公历参考：http://www.foxtable.com/webhelp/topics/1274.htm

其次前3行代码，先转换为农历，又转换为公历，完全就是多余的，要使用公历直接用Date.Today不就行了