Nesse vídeo demonstraremos a utilização das funções BegOfYea e EndOfYea que buscam (respectivamente) o primeiro e último dia do ano.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe067
Busca o primeiro e último dia do ano
@type Function
@author Atilio
@since 06/12/2022
@obs
Função BegOfYea
Parâmetros
+ Data de Referência
Retorno
+ Data com o primeiro dia do ano
Função EndOfYea
Parâmetros
+ Data de Referência
Retorno
+ Data com o último dia do ano
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe067()
Local aArea := FWGetArea()
Local dDataRef := Date()
Local dPriDiaAno
Local dUltDiaAno
//Pegando o primeiro dia do ano
dPriDiaAno := BegOfYea(dDataRef)
//Pegando o último dia do ano
dUltDiaAno := EndOfYea(dDataRef)
//Exibindo as datas
FWAlertInfo(;
"Data de Referência: " + dToC(dDataRef) + CRLF + ;
"Primeiro dia do Ano: " + dToC(dPriDiaAno) + CRLF + ;
"Último dia do Ano: " + dToC(dUltDiaAno);
, "Exemplo de BegOfYea e EndOfYea")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
