System.amp;string.format
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 ?
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
Curtidas 0
Respostas
M2_gibin
07/08/2007
NIGUEM TEM A RESPOSTA PARA ESSE PROBLEMA ENTAO TO FERRADO
GOSTEI 0
Knight_of_wine
07/08/2007
resultdivisao.ToString(´#.0,00´)
Isso deve resolver.
Aí é só colocar um label com R$ na frente do TextBox e pronto.
GOSTEI 0
M2_gibin
07/08/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);
[b:3834d4c0a1]Result:= divisao.ToString((´R$ ´+´0.00´));[/b:3834d4c0a1]
end;
function TWebForm1.media_data: string;
var
divisao : integer;
begin
divisao := Convert.ToInt16(_DATASOMAVALOR.ExecuteScalar) div Convert.ToInt16(_DATASOMAGRAMA.ExecuteScalar);
[b:3834d4c0a1]Result:= divisao.ToString((´R$ ´+´0.00´));[/b:3834d4c0a1]
end;
GOSTEI 0
Knight_of_wine
07/08/2007
Coloque essa máscara que eu postei, que fica no formato ideal. :wink:
GOSTEI 0