ARREDONDAR UM NUMERO PARA CIMA

USUARIO.EXCLUIDOS 01/12/2006 15:56:52
#187453

Seria legal fazer uma função para isto:

Public/Private Function ArredondaParaCima(Byval NUMERO_ENTRADA As Double) As Long

Localizar a virgula em NUMERO_ENTRADA

se não existir
ArredondaParaCima=NUMERO_ENTRADA
Exit Function

senão:
Quebre o numero em 2 partes (esq e dir)

se o valor da dir > 0
ArredondaParaCima=esq+1
senão
ArredondaParaCima=esq


Quanto as funções VB axo q vc deve saber utilizar mid(), InStr() e outras possibilidades de fazer o algorítimo.

USUARIO.EXCLUIDOS 01/12/2006 16:03:06
#187455 Resposta escolhida

Precisa saber qual o critério que vc arredonda: 2.1 pra 3? 2.9 pra 3?

se for qualquer número fracionado pra cima:

X = 2.1
 
If X <> Int(X) then
   X = Int(X) + 1
end if

Qualquer número fracionado em X será arredondado pra cima...