const typearr_auto = 1
const typearr_down = 2
const typearr_up = 3
 
function pow(x, y)
  dim i, val
  val = x
  for i = 1 to y
    val = val * x
  next
end function
 
function ArrondiALaCon(nbr, decimals, typearr)
  dim plop
  plop = pow(10, decimals)
  select case typearr
  case typearr_auto :
    ArrondiALaCon = CInt(nbr * plop) / plop
  case typearr_down :
    ArrondiALaCon = Int(nbr * plop) / plop
  case typearr_up :
    ArrondiALaCon = nbr * plop
    If Int(ArrondiALaCon) > ArrondiALaCon Then
        ArrondiALaCon = (ArrondiALaCon + 1) / plop
    Else
        ArrondiALaCon = ArrondiALaCon / plop
    End If
  case else :
    Response.Write "1, 2, 3, soleil ! Où t'as vu que j'acceptais autrechose comme valeur pour le type d'arrondi ?"
    Response.End
  end select
end function