Nombre del mes

[xavi]

Palabras clave:nombre, mes
Autor: Búho

Pregunta
¿Como puedo conseguir el nombre del mes a partir de un número?

Respuesta

Código:

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

Nombre archivo Búho: nombremes.txt