Retorna o nome do mês por extenso (por exemplo, Janeiro, Fevereiro, Março, Abril, etc)

Exemplo da Rotina:

MesExtenso(nNumeroMes)

Exemplo 1- Mostrando todos os meses:

Alert(MesExtenso(1))
Alert(MesExtenso(2))
Alert(MesExtenso(3))
Alert(MesExtenso(4))
Alert(MesExtenso(5))
Alert(MesExtenso(6))
Alert(MesExtenso(7))
Alert(MesExtenso(8))
Alert(MesExtenso(9))
Alert(MesExtenso(10))
Alert(MesExtenso(11))
Alert(MesExtenso(12))

Exemplo 2- Mostrando o mês através de uma variável:

//Pega a data atual, e o mês dela
dData := Date()
nMes  := Month(dData)

//Pega o mês por extenso
cMesExtenso := MesExtenso(nMes)

//Mostra em uma mensagem
Alert(cMesExtenso)

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;