各位老师，春节快乐！

打算定义全局代码“Welcome”，准备在每个主窗口引用，但是保存全局代码时出现错误，麻烦老师看看，帮帮忙！

Dim 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
Public Welcome As String =  "欢迎您:" & User.Name & " | 今天是:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & str   )

此主题相关图片如下：1.png

此段代码，单独执行没有问题啊！自己不解。

谢谢蓝老师!春节快乐！

不过按照您所教的，在设置全局代码时，出现以下错误：

此主题相关图片如下：2.png

麻烦老师帮忙看看！谢谢！

做一个内部函数

Dim 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   )

调用内部函数

Dim str As String = Functions.Execute("test")
msgbox(str)