Tempo de leitura: 1 minuto
A função CDow é uma das funções de manipulação de data e hora em ADVPL. Essa função retorna o dia da semana de uma determinada data, no formato de uma string, no idioma Inglês.
Sintaxe:
cDow(dData)
Parâmetro(s):
Retorno:
No exemplo abaixo podemos ver como utilizar a função CDow em ADVPL, utilizamos algumas condições para mostra o dia da semana em português já que a função CDow retorna o dia da semana em inglês:
#include 'protheus.ch'
#Define QLIN CHR(13)+CHR(10)
/*{Protheus.doc} User Function fcDow
(Essa função tem por finalidade mostrar a função de Manipulação de Data e Hora CDow em ADVPL)
@type Function
@author Adilio Costa
@since 02/06/2020
@version 1.0
@site https://www.protheusadvpl.com.br
@canal https://www.youtube.com/protheusadvpl
@instagram https://www.instagram.com/protheusadvpl
@Portal ProtheusAdvpl:https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
@Post:CDow
*/
User Function fCDow()
Local dHoje := Date()
Local cDepAmanha := ""
Local cDiaSemana := ""
Local cDiaSemPor := ""
Local cDepManhaPor := ""
cDiaSemana := CDow(dHoje)
cDepAmanha := CDow(dHoje+2)
If(cDiaSemana == "Monday")
cDiaSemPor := "Segunda-Feira"
ElseIf(cDiaSemana == "Tuesday")
cDiaSemPor := "Terça-Feira"
ElseIf(cDiaSemana == "Wednesday")
cDiaSemPor := "Quarta-feira"
ElseIf(cDiaSemana == "Thursday")
cDiaSemPor := "Quinta-Feira"
ElseIf(cDiaSemana == "Friday")
cDiaSemPor := "Sexta-Feira"
ElseIf(cDiaSemana == "Saturday")
cDiaSemPor := "Sábado"
Else
cDiaSemPor := "Domingo"
EndIf
If(cDepAmanha == "Monday")
cDepManhaPor := "Segunda-Feira"
ElseIf(cDepAmanha == "Tuesday")
cDepManhaPor := "Terça-Feira"
ElseIf(cDepAmanha == "Wednesday")
cDepManhaPor := "Quarta-feira"
ElseIf(cDepAmanha == "Thursday")
cDepManhaPor := "Quinta-Feira"
ElseIf(cDepAmanha == "Friday")
cDepManhaPor := "Sexta-Feira"
ElseIf(cDepAmanha == "Saturday")
cDepManhaPor := "Sábado"
Else
cDepManhaPor := "Domingo"
EndIf
MsgAlert("O dia da semana hoje:"+cDiaSemPor+"."+QLIN+"Depois de amanhã é:"+cDepManhaPor)
Return
É isso aí, finalizamos aqui o post sobre a função CDow em ADVPL, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Até um próximo post. Grande abraço e fica com Deus.
Link(s) de referência:
