主题：[求助]关于日期类型的转换

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日啊，自己无解，望老师给予帮助解决一下，谢谢！

蓝老师，那如何进行修改一下呢？