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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | //Bibliotecas#Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe036Exemplo 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.
