Fórum Roundto #415069
05/04/2012
0
Estou desenvolvendo um aplicativo e quero usar a rotina Roundto. Pelo que vi em foruns basta usar a seguinte rotina: roundto(x,-2 ou 2). Muito bem neste exemplo quero fazer isto mas será o usuário que determinar este nº de casas decimais, claro no máximo que será estabelecido por exemplo, até 5 casas decimais:
Componentes usados:
3 Edits = sendo 2 para calculo tipo multiplicação ou divisão e 1 para que ele coloque o nº de casas tipo 2, 3, 4 ou 5 casas decimais;
1 panel = resultado do cálculo
1 checkbox = caso ele opte pelo resultado bruto ou com limitação de casas decimais.
Desde já agradeço pela atenção.
Componentes usados:
3 Edits = sendo 2 para calculo tipo multiplicação ou divisão e 1 para que ele coloque o nº de casas tipo 2, 3, 4 ou 5 casas decimais;
1 panel = resultado do cálculo
1 checkbox = caso ele opte pelo resultado bruto ou com limitação de casas decimais.
Desde já agradeço pela atenção.
Carlos Leonel
Curtir tópico
+ 0
Responder
Posts
05/04/2012
Joel Rodrigues
Simples. A única coisa que você precisa fazer é passar o valor do edit das casas decimais para o RoundTo como um inteiro. Ou seja:
Boa sorte.
RoundTo(valor, StrToInt(editCasas.Text));
Boa sorte.
Responder
Gostei + 0
05/04/2012
Bruno Leandro
coloque no uses o math
e para arredondar desta forma
FloatToStr( RoundTo( StrToFloat( painel_Resultado.caption ),StrToInt( Edit3_Casas.Text ) ) )
e para arredondar desta forma
FloatToStr( RoundTo( StrToFloat( painel_Resultado.caption ),StrToInt( Edit3_Casas.Text ) ) )
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)