ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Arredondar casas decimais

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
lucasc
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 10 de Mai de 2007
Mensagens: 305
MensagemEnviada: Qui Out 26, 2023 1:54 pm    Assunto: Arredondar casas decimais Responder com Citação
Olá pessoal,

Preciso fazer um arredondamento de casas decimais para cima, exemplo:

8,3333245 para 8,3334

Tentei seguir o descrito no link abaixo mas não deu certo.

[url]
https://www.devmedia.com.br/rotinas-de-arredondamento-round-roundto-simpleroundto-setroundmode-e-getroundmode/21114
[/url]

Editado pela última vez por lucasc em Qui Out 26, 2023 6:01 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
MensagemEnviada: Qui Out 26, 2023 3:15 pm    Assunto: Responder com Citação
Teste essa função:

Adicione Math na uses.

Código:
function ArrendondaParaCima(Value: Extended; Decimals: Integer): Extended;
var
  Factor, Fraction: Extended;
begin
  Factor := IntPower(10, Decimals);
  Value := StrToFloat(FloatToStr(Value * Factor));
  Result := Int(Value);
  Fraction := Frac(Value);
  Result := Result + 1;
  Result := Result / Factor;
end;


Modo de uso:

Código:
var
  valor: Double;
begin
  valor := 8.3333245;
  valor := ArrendondaParaCima(valor, 4);
  ShowMessage(FloatToStr(valor)); // Retorna 8.3334
end;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
lucasc
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 10 de Mai de 2007
Mensagens: 305
MensagemEnviada: Qui Out 26, 2023 4:40 pm    Assunto: [Resolvido] Responder com Citação
Muito obrigado natanbh1, de certínho.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB