Nesse vídeo demonstraremos a utilização das funções DiaSemana e GPEDiaSem que servem para retornar o nome do dia (segunda, terça, quarta, etc).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe141
Funções que retornam o nome do dia (segunda, terça, quarta, etc)
@type Function
@author Atilio
@since 16/12/2022
@obs
Função DiaSemana
Parâmetros
+ Data a ser verificada
+ Tamanho do texto (por exemplo se for 3 caracteres e for segunda feira será SEG)
+ Caso não seja informado o dData informa o número do dia que quer retornar o nome (de 1 a 7)
Retorno
+ Nome do Dia (Domingo, Segunda, Terça, Quarta, Quinta, Sexta ou Sabado)
Função GPEDiaSem
Parâmetros
+ Data a ser verificada
Retorno
+ Retorna o nome do dia completo (Domingo, Segunda-Feira, Terça-Feira, Quarta-Feira, Quinta-Feira, Sexta-Feira ou Sabado)
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe141()
Local aArea := FWGetArea()
Local dDtHoje := Date()
Local cDiaAtu1 := ""
Local cDiaAbrev := ""
Local cSabado := ""
Local cDiaAtu2 := ""
//Fazendo as buscas do nome do dia
cDiaAtu1 := DiaSemana(dDtHoje, , )
cDiaAbrev := DiaSemana(dDtHoje, 3, )
cSabado := DiaSemana( , , 7)
cDiaAtu2 := GPEDiaSem(dDtHoje)
//Monta a mensagem com o resulta e mostra
cMensagem := "Data atual: " + dToC(dDtHoje) + CRLF + CRLF
cMensagem += "Dia atual: " + cDiaAtu1 + CRLF
cMensagem += "Dia Abreviado: " + cDiaAbrev + CRLF
cMensagem += "Sétimo dia: " + cSabado + CRLF + CRLF
cMensagem += "Dia atual (GPEDiaSem): " + cDiaAtu2
FWAlertInfo(cMensagem, "Teste DiaSemana e GPEDiaSem")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
