Rund ned!

nedrundet = CInt(\"3,98\")

Den runder ikke NED!

Den runder op!

nedrundet = Round(\"3,98\")

nedrundet = Int(\"3,98\")

Det skal den jo også!!

Cool Casper>> Da ikke hvis han vil have den skal runde ned!!

function nedrund(ettal)
  hvor = instr(ettal,\".\")
  if hvor = 0 then
    nedrund = ettal
  else if hvor = 1 Then
    nedrund = \"0\"
  else
      nedrund = left(ettal,hvor-1)
  end if
end function

Men det gør Int() jo ikke...

Nej, men Int fjerner decimalerne uden hensyntagen til op- eller nedrunding!

Returns the integer portion of a number.

Int(number)
Fix(number)
The number argument can be any valid numeric expression. If number contains Null, Null is returned.

Remarks
Both Int and Fix remove the fractional part of number and return the resulting integer value.

The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number, whereas Fix returns the first negative integer greater than or equal to number. For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.

Fix(number) is equivalent to:

Sgn(number) * Int(Abs(number))
The following examples illustrate how the Int and Fix functions return integer portions of numbers:

MyNumber = Int(99.8)    \' Returns 99.
MyNumber = Fix(99.2)    \' Returns 99.
MyNumber = Int(-99.8)  \' Returns -100.
MyNumber = Fix(-99.8)  \' Returns -99.
MyNumber = Int(-99.2)  \' Returns -100.
MyNumber = Fix(-99.2)  \' Returns -99.

Ok.

Der er indtil videre ikke noget af det som virker!

Jeg har lige nu tallet 10,8061138211382, men det varierer for hver gang siden bliver hentet!

Der er tildyneladende ikke noget som virker!

int(\"10,8061138211382\") retunere \"10\" ... ligesom de andre har sagt ... det skal virke ...

Kom lige tanke om noget....

string = "3.98"
if Instr(1, string, ".")
'Hvis der er et . i strengen!
nr = Split(MyString, ".", -1, 1)
'Deler vi op ved . og udskriver
Response.Write nr(0)
elseif Instr(1, string, ",")
'Hvis der er et , i strengen!
nr = Split(MyString, ",", -1, 1)
'Deler vi op ved , og udskriver
Response.Write nr(0)
end if