Ailton Zacarias (Desenvolvedor VBA)

Function MesAtual(intMes As Integer) As String
Dim myMonth As Variant

myMonth = Array(“”, “Janeiro”, “Fevereiro”, “Maro”, “Abril”, “Maio”, “Junho”, “Julho”, “Agosto”, “Setembro”, “Outubro”, “Novembro”, “Dezembro”)

MesAtual = myMonth(intMes)

End Function