Public Function GetNongLi(Gongli As Date) As String 怎样返回字符串

Question

Public Function GetNongLi(Gongli As Date) As String 怎样返回字符串
end function
我的目的是想用GetNongLi传入当前日期，然后返回一个字符
例如 当前日期是10月1日，则返回国庆节字符。谢谢 
最好是给个例子。

Answer 1

Public Function GetNongLi(Gongli As Date) As String '怎样返回字符串
Dim strTmp As String
    strTmp =  Format(Gongli, "mm-dd")    Select Case strTmp
         Case "01-01"
             strTmp = "元旦"
         Case "05-01"
             strTmp = "国际劳动节"
         Case "10-01"
             strTmp = "国庆节"
    End Select
    GetNongLi = strTmp
End Function 

Answer 2

if month(gongli) = 10 and day(gongli) = 1 then 
getnongli = "国庆节"
exit function
end if

Answer 3

自定义返回函数值函数体中要有
函数名=值 这样的语句.例如你的函数
Public Function GetNongLi(Gongli As Date) As String 怎样返回字符串 ……
GetNongLi=某个值'必不可少
end function 
Private Sub Command1_Click()
XX = GetNongLi(#2/13/2009#) '调用GetNongLi并取得返回的函数值XX
End Sub