以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]时间性错误,请帮忙看看?  (http://foxtable.net/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不就行了