Hoje vamos aprender a usar a Função MesExtenso do AdvPL [Tlpp], [tl++] para extrair Nome do Mês por extenso – Curso Protheus grátis AdvPL / TLPP.
#Include "Protheus.ch"
/*-------------------------------------------------------------------------------------------*
{Protheus.doc} User Function mMesExtenso()
@type: User Function
@author: Jose Moura
@site: https://academiaproerp.com
@canal: [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.: Função MesExtenso. Retorna o nome do mês por extenso
@Sintaxe: MesExtenso(nMes)
*-------------------------------------------------------------------------------------------*/
User Function mMesExtenso()
Local aArea := FWGetArea()
Local nMes := 04
Local cRet := MesExtenso(nMes)
FWAlertSuccess('Nome do Mês é: ' + cRet, 'Academia Protheus')
FWRestArea(aArea)
Return


Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia ProERP, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.