Histórico da Página

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