Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Ridelight

[VB6] Arredondar números

Mensagens Recomendadas

Ridelight    8
Ridelight
Public Function ArredondarNumero(NumeroInserido As Variant,_CasasDecimais As Integer) As Variant

Dim Temp As Double, Decimais As Long
Temp = CDbl(NumeroInserido)
Decimais = 10 ^ CasasDecimais
ArredondarNumero = (Fix((Temp + 0.5 / Decimais) * _
Decimais)) / Decimais
End Function

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade