Linha Microsiga Protheus

Árvore de páginas

Realiza a conversão do formato da data conforme o tipo definido.

Parâmetros

NomeTipoDescrição
xDataData / CaracterData base que será convertida.  
nTipoNumérico

Tipo de conversão. Serão aceitos os seguintes parâmetros:

1 (Tipo data para caracter no formato DD/MM/AAAA),

2 (Tipo caracter no formato AAAA-MM-DD para AAAAMMDD),

3 (Tipo caracter no formato AAAA-MM-DD para DD/MM/AAAA),

4 (Tipo caracter no formato AAAAMMDD para AAAA-MM-DD),

5 (Tipo caracter no formato AAAAMMDD para DD/MM/AAAA).


Retorno

TipoDescrição
caracterData no formato especificado pelo parâmetro nTipo.


Exemplo de Uso

User Function formatData()
    Local lRet  := .T.
    Local xDtOrig := Nil
    Local cDtDest := ""

    Set(_SET_DATEFORMAT, 'dd/mm/yyyy')

    ConOut(REPLICATE("-",70))
    xDtOrig := cToD("31/10/2023")
    cDtDest := PCPMonitorUtils():FormataData(xDtOrig,1)
    ConOut("Tipo 1: " + cDtDest) //Tipo 1: 31/10/2023

    xDtOrig := "2023-10-31"
    cDtDest := PCPMonitorUtils():FormataData(xDtOrig,2)
    ConOut("Tipo 2: " + cDtDest) //Tipo 2: 20231031

    xDtOrig := "2023-10-31"
    cDtDest := PCPMonitorUtils():FormataData(xDtOrig,3)
    ConOut("Tipo 3: " + cDtDest) //Tipo 3: 31/10/2023

    xDtOrig := "20231031"
    cDtDest := PCPMonitorUtils():FormataData(xDtOrig,4)
    ConOut("Tipo 4: " + cDtDest) //Tipo 4: 2023-10-31

    xDtOrig := "20231031"
    cDtDest := PCPMonitorUtils():FormataData(xDtOrig,5)
    ConOut("Tipo 5: " + cDtDest) //Tipo 5: 31/10/2023
    ConOut(REPLICATE("-",70))

Return lRet
  • Sem rótulos