// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] FormatarDataHora (<DataNumber>, <Tipo_BR_EUA>)
//
// Parameters:
// DataNumber: <specify the role of DataNumber>
// Tipo_BR_EUA: <specify the role of Tipo_BR_EUA>
// Return Value:
// UNICODE string: // None
//
// For instance:
// Indicate an example.
//
Procedure FormatarDataHora(DataNumber,Tipo_BR_EUA)

//2017-07-15 14:45

Tipo_BR_EUA = Upper(Tipo_BR_EUA)

DataHoje is Date = Middle(DataNumber,1,8)

DataFomatada is string

IF Tipo_BR_EUA = "BR"
DataFomatada = NumToString(DataHoje..Day, "02d") +"-"+ NumToString(DataHoje..Month, "02d") +"-"+ NumToString(DataHoje..Year, "04d")
ELSE IF Tipo_BR_EUA = "EUA"
DataFomatada = NumToString(DataHoje..Year, "04d") +"-"+ NumToString(DataHoje..Month, "02d") +"-"+ NumToString(DataHoje..Day, "02d")
END

HoraAgora is Time = Middle(DataNumber,9,6)

HoraFormatada is string = NumToString(HoraAgora..Hour, "02d") +":"+ NumToString(HoraAgora..Minute, "02d")

resultado is string = DataFomatada +" "+ HoraFormatada

RESULT(resultado)