Totvs Protheus Função DiaSemana AdvPL [Tlpp]

Hoje vamos aprender a usar a Função DiaSemana do AdvPL [Tlpp], [tl++] Retorna a Descrição do Dia da Semana conforme parâmetros – Curso Protheus grátis AdvPL / TLPP.

#Include "Protheus.ch"
/*-------------------------------------------------------------------------------------------*
{Protheus.doc} User Function mDiaSemana()
@type:      User Function
@author:    Jose Moura
@site:      https://academiaproerp.com
@canal:     [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:     Função DiaSemana. Retorna a Descrição do Dia da Semana conforme parâmetros
@Sintaxe:   DiaSemana(dData, nTam, nDia)
*-------------------------------------------------------------------------------------------*/

User Function mDiaSemana()
Local aArea    := FWGetArea()
Local dData    := Date()
Local nTam     := 7 //Tamanho padrão, se não informado recebe 7 mesmo.
Local nDia     := 6 //Sexta-feira
Local dDiaSem  := DiaSemana(dData, nTam, nDia)

FWAlertSuccess( 'A Data é: ' + cValToChar(dData);
+ CRLF + 'Dia da Semana: ' + cValtoChar( dDiaSem )  ;
+ CRLF + 'Dia da Semana: ' + cValtoChar( DiaSemana( dData,, 5 ) ) ;     //Linha 3
+ CRLF + 'Dia da Semana: ' + cValtoChar( DiaSemana( dData, 15, 5 ) ) ;  //Linha 4
+ CRLF + 'Dia da Semana: ' + cValtoChar( DiaSemana( dData, 3, 5 ) ) ;   //Linha 5
+ CRLF + 'Dia da Semana: ' + cValtoChar( DiaSemana( ,, 5 ) ) , 'Academia Protheus' )

FWRestArea(aArea)
Return

Informações importantes:

Moura

Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia ProERP, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.