Nesse vídeo demonstraremos a utilização das funções dToC e dToS, sendo que ambas servem para converter data para caractere, sendo a primeira no formato DD/MM/YYYY e a segunda YYYYMMDD.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe148
Converte data para texto "DD/MM/YYYY" ou "YYYYMMDD"
@type Function
@author Atilio
@since 16/12/2022
@see https://tdn.totvs.com/display/tec/DToC e https://tdn.totvs.com/display/tec/DToS
@obs 
    Função dToC
    Parâmetros
        + dData        , Data         , Indica a data que será convertida
    Retorno
        + cRet         , Caractere    , etorna a data no formato "DD/MM/YYYY"

    Função dToS
    Parâmetros
        + dData        , Data         , Indica a data que será convertida
    Retorno
        + cRet         , Caractere    , Retorna a data no formato "YYYYMMDD"

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

User Function zExe148()
    Local aArea       := FWGetArea()
    Local dDataRef    := Date()
    Local cData1      := ""
    Local cData2      := ""
    Local cMensagem   := ""

    //Faz as conversões
    cData1 := dToC(dDataRef)
    cData2 := dToS(dDataRef)

    //Monta a mensagem e exibe
    cMensagem := "Data Atual: " + dToC(dDataRef) + CRLF + CRLF
    cMensagem += "Data (DD/MM/YYYY): " + cData1 + CRLF
    cMensagem += "Data (YYYYMMDD): " + cData2
    FWAlertInfo(cMensagem, "Teste com dToC e dToS")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++