galera, seguinte, to precisando d algo q faça o arredondamento d  valores, tipo:

 

tenho 6,25,, o numero vai pra 6,5

tenho 6,71,o numero vai pra 7,0

 

ou seja, quero .5, ou .0...

 

 

usei o ROUND, mas ele arredonda assim:

consegui galera, com ajuda d um colega

 

 queria algo q arredondasse o valor, mas usando o ROUND, ele arredonda d uma forma generica, ou pra cima ou pra baixa.. e eu queria algo q fosse .5, .0, ai usamos essa funcao:

 

--------------------------------------------------------------

Function Arredonda(nValor As Double) As Double
    Dim dblFração As Double, intInteiro As Long
    intInteiro = Int(nValor)
    dblFração = (nValor - intInteiro)
   
    If dblFração = 0 Then
        Arredonda = intInteiro
        Exit Function
    End If
   
    If 0.5 < dblFração Then
        Arredonda = intInteiro + 1
    Else
        Arredonda = intInteiro + 0.5
    End If
End Function

----------------------------------------------------

 

ai deu certo!