Nesse vídeo demonstraremos em como buscar uma string no formato YYYYMM (ano e mês) utilizando as funções AnoMes e MesAno.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe036
Exemplo de função que retorna o ano e mês conforme uma data (YYYYMM)
@type Function
@author Atilio
@since 28/11/2022
@obs
Função AnoMes
Parâmetros
+ Data que será efetuado a tratativa para buscar o ano e mês
Retorno
+ Texto no formato YYYYMM conforme a data passada
Função MesAno
Parâmetros
+ Data que será efetuado a tratativa para buscar o ano e mês
Retorno
+ Texto no formato YYYYMM conforme a data passada
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe036()
Local aArea := FWGetArea()
Local dData := sToD("")
Local cResult := ""
//Pegando o Ano e Mês da data atual conforme o servidor
dData := Date()
cResult := AnoMes(dData)
FWAlertInfo("O período é: " + cResult, "Resultado do AnoMes")
//Pegando o Ano e Mês de 1 mês atrás conforme o servidor
dData := MonthSub(Date(), 1)
cResult := MesAno(dData)
FWAlertInfo("O período é: " + cResult, "Resultado do MesAno")
//Pegando o resultado e colocando em uma máscara, por exemplo YYYY-MM
dData := Date()
cResult := AnoMes(dData)
cResult := Transform(cResult, "@R 9999-99")
FWAlertInfo("O período é: " + cResult, "Resultado do AnoMes com Máscara")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
