Funcion que me da el literal del nombre del mes, en funcion del parametro pasado


Function NomMes(Mes As Integer) As String
  If Mes > 0 Or Mes < 13 Then
    NomMes = Choose(Mes, "Enero", "Febrero", "Marzo", _
             "Abril", "Mayo", "Junio", "Julio", _
             "Agosto", "Septiembre", "Octubre", _
             "Noviembre", "Diciembre")
  End If
End Function