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.