#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função Str |
//+----------------------------------------------------------------------------+
cMensagem += "Str(98765432.1, 1, 8) = " + Str(98765432.1, 1, 8) + CRLF
cMensagem += "Str(9876543.21) = " + Str(9876543.21) + CRLF
cMensagem += "Str(987654.321, 3, 6) = " + Str(987654.321, 3, 6) + CRLF
cMensagem += "Str(98765.4321) = " + Str(98765.4321) + CRLF
cMensagem += "Str(9876.54321, 5, 4) = " + Str(9876.54321, 5, 4) + CRLF
cMensagem += "Str(987.654321, 6 ,3) = " + Str(987.654321, 6, 3) + CRLF
cMensagem += "Str(98.7654321, 7, 2) = " + Str(98.7654321, 7, 2) + CRLF
cMensagem += "Str(9.87654321, 8, 1) = " + Str(9.87654321, 8, 1) + CRLF
cMensagem += "Str(0) = " + Str(0) + CRLF
cMensagem += "Str(-9.87654321, 5, 2) = " + Str(-9.87654321, 5, 2) + CRLF
cMensagem += "Str(-98.7654321, 4, 1) = " + Str(-98.7654321, 4, 1) + CRLF
cMensagem += "Str(-987.654321) = " + Str(-987.654321) + CRLF
cMensagem += "Str(-9876.54321, 2, 6) = " + Str(-9876.54321, 2, 6) + CRLF
cMensagem += "Str(-98765.4321, 1, 5) = " + Str(-98765.4321, 1, 5) + CRLF
cMensagem += "Str(-987654.321, 0, 0) = " + Str(-987654.321, 0, 0) + CRLF
cMensagem += "Str(-9876543.21, 5, 1) = " + Str(-9876543.21, 5, 1) + CRLF
cMensagem += "Str(-98765432.1, 4, 2) = " + Str(-98765432.1, 4, 2) + CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do Str")