Nesse vídeo demonstraremos a utilização da função RetSem, que serve para buscar o número da semana em um ano 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 zExe419
Retorna o número da semana do ano conforme uma data
@type Function
@author Atilio
@since 22/02/2023
@obs
Função RetSegunda
Parâmetros
Recebe uma data de referência
Retorno
Retorna o número da semana conforme a data passada
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe419()
Local aArea := FWGetArea()
Local dDataRef := Date()
Local nSemana
//Busca a semana da data de referência
nSemana := RetSem(dDataRef)
//Exibe uma mensagem
FWAlertInfo("Para a data '" + dToC(dDataRef) + "', é a semana '" + cValToChar(nSemana) + "' do ano", "Teste RetSem")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
