Totvs Protheus Função AnoMes AdvPL [Tlpp]

Hoje vamos aprender a usar a Função AnoMes do AdvPL [Tlpp] para buscar o Ano e Mês no formato aaaamm de uma Data – Curso Protheus grátis AdvPL / TLPP.

#Include "Protheus.ch"
/*-------------------------------------------------------------------------------------------*
{Protheus.doc} User Function mAnoMes()
@type:       User Function
@author:     Jose Moura
@site:       https://academiaprotheus.com.br
@canal:      [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:      Programa mAnoMes para extrair Ano e Mês de uma Data
Função AnoMes
Parâmetros:
    Data de onde será extraido a string com Ano e Mês
Retorno:
    Texto no formato aaaamm, ou YYYYMM conforme a data informada
*-------------------------------------------------------------------------------------------*/

User Function mAnoMes()
Local aArea    := FWGetArea()
Local dData    := SToD("")
Local cRet     := ""

dData  := Date()
cRet   := AnoMes(dData)
FWAlertSuccess("O período é: " + cRet, "Retorno de AnoMes")

//Retorno com máscara, por exemplo aaaa-mm
dData := Date()
cRet  := AnoMes(dData)
cRet  := Transform(cRet, "@R 9999-99")
FWAlertSuccess("O período é: " + cRet, "Retorno da Função AnoMes com Máscara")

FWRestArea(aArea)
Return