Nesse vídeo demonstraremos a utilização da função LimSemana, que serve para buscar os limites (data inicial e final) de uma semana conforme uma data informada.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe326
Busca os limites da semana (data inicial e final)
@type Function
@author Atilio
@since 12/03/2023
@obs
Função LimSemana
Parâmetros
Data de Referência
Retorno
Array com o primeiro e último dia da semana
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe326()
Local aArea := FWGetArea()
Local dData := sToD("20230315")
Local aDias := {}
Local dPriDia
Local dUltDia
//Busca os limites da semana
aDias := LimSemana(dData)
dPriDia := aDias[1]
dUltDia := aDias[2]
//Mostra o resultado
FWAlertInfo("Na data '" + dToC(dData) + "' o primeiro dia é '" + dToC(dPriDia) + "' e o último dia é '" + dToC(dUltDia) + "'", "Teste LimSemana")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
