• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[VB6] Arredondar números

1 mensagem neste tópico

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

0

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