Formula Mês Por Extenso

[lforte]

Ola!

Estou tentando visualizar o resultado da formula a seguir e no formato do MES gostaria que fosse por extenso.

Ex: Janeiro, Fevereiro, Etc.

Tentei declarar as variaveis 1 = janeiro, 2 = fevereiro mas nao funcionou, alguma preciosa dica ?

Formula

Decl MesComp, AnoComp;
setvar(MesComp, STR(Mes, '@@')); SetVar(AnoComp, Str(Ano, '@@@@')) ;
CONCAT ( CONCAT( CONCAT(' ', MesComp ), '/'), AnoComp)

[lforte]

Ola pessoas!

Fiz assim, a sintaxe esta correta ? esse negocio de traduzir IF, ELSE confunde rsrsrs

Decl MesComp, AnoComp;
SE MesComp = 1
   ENTAO setvar(MesComp, Janeiro)
	 SENAO SE MesComp = '2'
   ENTAO setvar(MesComp, Fevereiro)
	 SENAO SE MesComp = '3'
   ENTAO setvar(MesComp, Marco)
	 SENAO SE MesComp = '4'
   ENTAO setvar(MesComp, Abril)
	 SENAO SE MesComp = '5'
   ENTAO setvar(MesComp, Maio)
	 SENAO SE MesComp = '6'
   ENTAO setvar(MesComp, Junho)
	 SENAO SE MesComp = '7'
   ENTAO setvar(MesComp, Julho)
	 SENAO SE MesComp = '8'
   ENTAO setvar(MesComp, Agosto)
	 SENAO SE MesComp = '9'
   ENTAO setvar(MesComp, Setembro)
	 SENAO SE MesComp = '10'
   ENTAO setvar(MesComp, Outubro)
	 SENAO SE MesComp = '11'
   ENTAO setvar(MesComp, Novembro)
	 SENAO SE MesComp = '12'
   ENTAO setvar(MesComp, Dezembro)
FIMSE
setvar(MesComp, STR(Mes, '@@')); SetVar(AnoComp, Str(Ano, '@@@@')) ;
CONCAT ( CONCAT( CONCAT(' ', MesComp ), '/'), AnoComp)

[lforte]

Para quem for útil, segue formula funcionando 100%

Decl MesComp, AnoComp;
 
SETVAR (MesComp, STR(Mes, '@@'));
 
SE MesComp = '1'
ENTAO
       Setvar(MesComp, 'Janeiro')
SENAO
         SE MesComp = '2'
         ENTAO
               setvar(MesComp, 'Fevereiro')
         SENAO
                SE MesComp = '3'
                ENTAO
                       setvar(MesComp, 'Marco')
                SENAO
                       SE MesComp = '4'
                       ENTAO
                             setvar(MesComp, 'Abril')
                       SENAO
                             SE MesComp = '5'
                             ENTAO
                                   setvar(MesComp,'Maio')
                             SENAO
                                   SE MesComp = '6'
                                   ENTAO
                                         setvar(MesComp, 'Junho')
                                   SENAO
                                         SE MesComp = '7'
                                         ENTAO
                                               setvar(MesComp, 'Julho')
                                         SENAO
                                               SE MesComp = '8'
                                               ENTAO
                                                     setvar(MesComp, 'Agosto')
                                               SENAO
                                                     SE MesComp = '9'
                                                     ENTAO
                                                            setvar(MesComp, 'Setembro')
                                                     SENAO
                                                            SE MesComp = '10'
                                                            ENTAO
                                                                  setvar(MesComp, 'Outubro')
                                                            SENAO
                                                                  SE MesComp = '11'
                                                                  ENTAO
                                                                         setvar(MesComp, 'Novembro')
                                                                  SENAO
                                                                         SE MesComp = '12'
                                                                  ENTAO
                                                                         setvar(MesComp, 'Dezembro')
                                                                   SENAO
                                                                         ' '
                                                                   FIMSE
                                                               FIMSE
                                                           FIMSE
                                                      FIMSE
                                                 FIMSE
                                             FIMSE
                                         FIMSE
                                    FIMSE
                               FIMSE
                           FIMSE
                      FIMSE
                  FIMSE;                                                                                                                                                                                                  
                     SetVar(AnoComp, Str(Ano, '@@@@')) ;
                     CONCAT ( CONCAT( CONCAT(' ', MesComp ), '/'), AnoComp)

[Jair - Fórmula]

Valeu LForte