sexta-feira, 7 de março de 2008

Arredondar para cima em ASP

Mais um fast-post... dessa vez para matar a saudade da função deste blog como auxílio para programadores...
Função (a quem interessar) para arredondar qualquer número que possuir casas decimais sempre para cima:


function arredCima(y)
 x = CStr(y)
 p = inStr(x, ",")
 if p > 0 then
   arredCima = CInt(Left(x,p-1)) + 1
 else
   arredCima = y
 end if
end function

Então, se você fizer um <%=arredCima(10)%> o retorno será 10, caso faça com 10.1 (tomando como base que o IIS está configurado para pt-br, qualquer coisa use o session.LCID = 1046 =] ) esta função retorna 11.
Eu tenho quase certeza que o Excel possui uma função que faz isto, não sei porque que no ASP não tem...

[]'s do MX...

2 comentários:

Unknown disse...

Em homenagem ao BOCA, eliminado da libertadores pelo FLU:

Dá-lhe GAMBI, dá-lhe, dá-lhe GAMBI!!
Dá-lhe GAMBI, dá-lhe, dá-lhe GAMBI!!

Adriano Moura disse...

Esse método aqui é bem melhor

Function arredCima(y)
If y > int(y) Then
arredCima = int(y)+1
Else
arredCima = y
End If
End Function