Nesse vídeo demonstraremos em como converter conteúdos texto (caractere) para data, seja no formato “DD/MM/YYYY” ou “YYYYMMDD” usando as funções cToD e sToD respectivamente.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe102
Exemplo de como converter conteúdos em string para o tipo Data
@type Function
@author Atilio
@since 12/12/2022
@see https://tdn.totvs.com/display/tec/CToD e https://tdn.totvs.com/display/tec/SToD
@obs 
    Função CToD
    Parâmetros
        + cData         , Caractere    , Texto com a data no formato "DD/MM/YYYY" ou "DD/MM/YY"
    Retorno
        + dRet          , Array        , Retorna a data convertida

    Função SToD
    Parâmetros
        + cData         , Caractere    , Texto com a data no formato "YYYYMMDD"
    Retorno
        + dRet          , Array        , Retorna a data convertida

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

User Function zExe102()
    Local aArea     := FWGetArea()
    Local dData1
    Local dData2
    Local dData3

    //Monta as variáveis do tipo Data
    dData1 := CToD("12/07/1993")
    dData2 := SToD("19930712")
    dData3 := SToD("")

    //Exibe uma mensagem
    FWAlertInfo("Datas convertidas", "Teste CToD e SToD")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++