Array
(
)

System.amp;string.format

M2_gibin
   - 07 ago 2007

Ola pessoa alguem pode me dar uma ajudinha

valores que esta no banco uso um sum para somar
entao gostatia de dividir esses valores e o resultado apresentar em um label

var
valor1,valor2,resultdivisao :
begin
resultdivisao := valor1 div valor2;
label1.text := system.&string.format(´{0:c}´,resultdivisao);

obs nao esta funcionando
ele traz o resultado mais nao coloca em formato de moeda alguem pode me ajudar ?


M2_gibin
   - 08 ago 2007

NIGUEM TEM A RESPOSTA PARA ESSE PROBLEMA ENTAO TO FERRADO


Knight_of_wine
   - 08 ago 2007

#Código

resultdivisao.ToString(´#.0,00´)


Isso deve resolver.

Aí é só colocar um label com R$ na frente do TextBox e pronto.


M2_gibin
   - 08 ago 2007

Obrigado mesmo entrei agora para deixar a solucao ...........

function TWebForm1.media_data: string;
var
divisao : integer;
begin
divisao := Convert.ToInt16(_DATASOMAVALOR.ExecuteScalar) div Convert.ToInt16(_DATASOMAGRAMA.ExecuteScalar);
Result:= divisao.ToString((´R$ ´+´0.00´));
end;


Knight_of_wine
   - 08 ago 2007

Coloque essa máscara que eu postei, que fica no formato ideal. :wink: