static ln As New Lunar(Date.Today)
Dim str As String = ""
Dim d As Date = cdate(ln.LunarDate) '.adddays(-11)
If d.Month = 1 Then
If d.Day <= 10 Then
str = cldate(d).Substring(5).trim("日")
str = str.Insert(str.Length-1, "初")
str = str.Remove(0,1)
str = str.Insert(0, "正")
Else
str = cldate(d).Substring(5).trim("日")
str = str.Remove(0,1)
str = str.Insert(0, "正")
End If
ElseIf d.Month = 2 OrElse d.Month = 3 OrElse d.Month = 4 OrElse d.Month = 5 OrElse d.Month = 6 OrElse d.Month = 7 OrElse d.Month = 8 OrElse d.Month = 9 OrElse d.Month = 10 OrElse d.Month = 11
If d.Day <= 10 Then
str = cldate(d).Substring(5).trim("日")
str = str.Insert(str.Length-1, "初")
Else
str = cldate(d).Substring(5).trim("日")
End If
ElseIf d.Month = 12 OrElse d.Month = 13
If d.Day <= 10 Then
str = cldate(d).Substring(5).trim("日")
str = str.Insert(str.Length-1, "初")
str = str.Remove(0,2)
str = str.Insert(0, "腊")
Else
str = cldate(d).Substring(5).trim("日")
str = str.Remove(0,2)
str = str.Insert(0, "腊")
End If
End If
Return "欢迎您:" & User.Name & " | 今天是:" & Format(Date.Today,"yyyy年MM月dd日dddd" & " 农历:" & str )
以上代码,一直运行好好的,今天早上突然出现如下提示:
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.3.3.1
错误所在事件:自定义函数主窗口欢迎词
详细错误信息:
调用的目标发生了异常。
从字符串“2018-2-29”到类型“Date”的转换无效。
哪来的2018-2-29日啊,自己无解,望老师给予帮助解决一下,谢谢!