#INCLUDE 'PROTHEUS.CH' #INCLUDE 'TOTVS.CH' User Function c() Local dDat_DE :=() //as character //data inicial Local cMesExtenso := {} //as character //data final Local x Local y := 12 Local nMes := Date() dDat_DE := FwInputBox("Digite a data ",dDat_DE) nMes := cToD(dDat_DE) FOR x := 1 TO y cMesExtenso[x] := MesExtenso(nMes) nMes++ Alert(cMesExtenso[x]) NEXT x Return