Variavel de Memoria

[Jeferson]

Boa tarde a todos do Forum.

Código: Selecionar todos

        IF .NOT. FILE("JEFE.MEM")
                XXX_MES  = MONTH(DATE()) - 1
                XXX_ANO  = YEAR(DATE())
                XXX_META = 0
                IF XXX_MES = 0
                        XXX_MES += 12
                        XXX_ANO -= 1
                ENDIF
        ENDIF

Estou com dificuldade de fazer com que a variavel de memoria seja substituida pelo nome do mes correspondente.

alguem poderia me auxiliar?

Da maneira apresentada acima aparece o numero correspondente ao mes em questão, eu gostaria de escrever o nome desse mes.

Agradeço a atenção.


Jeferson.

[Pablo César]

Tem que compor os nomes dos meses em português, colocando em uma matriz, assim:

Código: Selecionar todos

aMes={"Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto", ;
                "Setembro","Outubro","Novembro","Dezembro"}
IF .NOT. FILE("JEFE.MEM")
   XXX_MES  = MONTH(DATE()) - 1
   XXX_ANO  = YEAR(DATE())
   IF XXX_MES = 0
      XXX_MES += 12
      XXX_ANO -= 1
   ENDIF
   XXX_EXTENSO=aMes[XXX_MES]
   ? XXX_EXTENSO
ENDIF