Realiza a conversão do formato da data conforme o tipo definido.
Parâmetros
| Nome | Tipo | Descrição |
|---|---|---|
| xData | Data / Caracter | Data base que será convertida. |
| nTipo | Numé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
| Tipo | Descrição |
|---|---|
| caracter | Data 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