Problema arrotondamento decimale con valore = 5

[Shagrat]

non so che dirti

[iceberg]

Grazie ugualmente!

[ZeroCool981]

Ti posto una funzione per arrotondare in difetto un numero, poi sistematela secondo le tue esigenze, scusami ma non ho il tempo di modificarla io.

'controllo che la stringa sia un integer
function isinteger(text)
   if not isnumeric(text) then
      isinteger=false
   else
      dim lcard, cstat, i, tempchar
      isinteger=false
      lcard=len(text)
      cstat=0
      for i=lcard to 1 step -1
	 tempchar=mid(text,i,1)
	 if instr("0123456789",tempchar) > 0 then
	    cstat=cstat + 1
	 end if
      next
      if (lcard > 0 and lcard=cstat) then
	 isinteger=true
      end if
   end if
end function


'sostituzione dell'orrida funzione di round VBScript
'.5 è arrotondato sempre al numero minore
public function numround(number)
   if isinteger(int(number)/2) then
      numround=round(number)
   else
      if isinteger(number+.5) then
	 numround=int(number)
      else
	 numround=round(number)
      end if
   end if
end function

[iceberg]

graaaaazie infinite per l'aiuto