Totvs Protheus Função cDow AdvPL [Tlpp]

Hoje vamos aprender a usar a Função cDow do AdvPL [Tlpp] para extrair o Nome do Dia de uma Data – Curso Protheus grátis AdvPL / TLPP.

#Include "Protheus.ch"

/*------------------------------------------------------------------------------*
{Protheus.doc} User Function mcDow()
@type: 		User Function
@author: 	Jose Moura
@site:  	https://academiaprotheus.com.br
@canal:		[Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.: 	Programa mcDow para extrair o Nome do Dia da Data Informada em Inglês
*-------------------------------------------------------------------------------*/

User Function mcDow()
    Local aArea    := FWGetArea()
    Local dData    := SToD("")
    Local cDiaEn   := ""
    Local cDiaPt   := ""
    dData   := Date()
    cDiaEn  := cDow(dData)

//Case para traduzir dia em Ingles para Portugues
Do Case
  Case cDiaEn=="Sunday"
    cDiaPt := "(Domingo)"
  Case cDiaEn=="Monday"
    cDiaPt := "(Segunda-feira)"
  Case cDiaEn=="Tuesday"
    cDiaPt := "(Terça-feira)"
  Case cDiaEn=="Wednesday"
    cDiaPt := "(Quarta-feira)"
  Case cDiaEn=="Thursday"
    cDiaPt := "(Quinta-feira)"
  Case cDiaEn=="Friday"
    cDiaPt := "(Sexta-feira)"
  Case cDiaEn=="Saturday"
    cDiaPt := "(Sábado)"
EndCase

    FWAlertInfo("Nome do Dia é: " + cDiaEn + cDiaPt, "Retorno de cDow")

    FWRestArea(aArea)
Return