Nesse vídeo demonstraremos a utilização da função Date, que busca a informação de data atual.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe107
Fornece a data atual do sistema operacional
@type Function
@author Atilio
@since 12/12/2022
@see https://tdn.totvs.com/pages/releaseview.action?pageId=23889224
@obs 
    Função Date
    Não tem Parâmetros
    Retorno
        + Data atual do sistema operacional

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe107()
    Local aArea     := FWGetArea()
    Local dData

    //Busca a data de hoje
    dData := Date()

    //Exibe a mensagem com a data de hoje
    FWAlertInfo("Hoje é " + DToC(dData), "Teste Date")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++