Arredondar Números Fracionarios

[Joaozava]

Existe alguma função do vb que arredonde qualquer número fracinario para o maior

valor mais proximo dele??

Ex:

3.1 = 4

3.5 = 4

3.9 = 4

Obrigado.

[abertoletti]

Round (Numero), mas o 3.1 ela arredondaria para 3 e não para 4

CInt(Numero) também arredonda.

[abertoletti]

Não lembro de alguma que arredonda para cima, então fiz a minha, acho que dá certo.

Private Function Arredonda(Numero As Double) As Integer
Dim Contador As Integer
    
    If InStr(1, Numero, ".") <> 0 Then
        For Contador = InStr(1, Numero, ".") To Len(Numero)
            If Mid(Numero, Contador, Contador) <> 0 Then
                Numero = Numero + 1
                Exit For
            End If
        Next
        Arredonda = Mid(Numero, 1, InStr(1, Numero, "."))
    Else
        Arredonda = Numero
    End If
    
End Function

[Joaozava]

Valeu abertoletti

vou dar uma olhada nessa rotina que você criou

Abraços...

[ramon]

E ai serviu

[Joaozava]

Na verdade eu criei uma outra função para fazer isso

Mas dessa forma tb funcionou!

Abraços