hvordan runder man et decimaltal op ?

Du kan bruge CInt(x/y)

dim x,y as integer
x=9
y=2
text1.text = Cint(x/y)

giver 4, altså bliver der rundet ned

proev med Int(x/y)

CInt er måske ikke den beste ide, den runder nemlig ikke altid op

fra MSDN:
"Note  CInt differs from the Fix and Int functions, which truncate, rather than round, the fractional part of a number. When the fractional part is exactly 0.5, the CInt function always rounds it to the nearest even number. For example, 0.5 rounds to 0, and 1.5 rounds to 2."

Så det er nok bedre at bruge round()

der rundes stadig ned

Int() runder ikke op eller ned, den fjerner bare decimalerne

hvordan kan man bruge round således at 9/2 giver 5

Text1.Text = Round(9/ 2)
giver 4

Hov det har du jo helt ret i :(

Så ved jeg faktisk ikke om der er en indbygget funktion der kan gøre det, ellers kan man jo selv lave den

ja tror det er eneste mulighed

Kan man ikke bruge fix-funktionen:
Text1.Text = Fix(9/2,0)

Har ikke testet det.
/TheEmail

nej, men jeg har løst problemet ved at lave en funktion

Dim x, y As Integer
x = 9
y = 2
If x / y - Int(x / y) > 0# Then
Text1.Text = Round(x / y) + 1
Else
Text1.Text = Round(x / y)
End If

fgsupermand->
Prøv selv at teste på:
Round(1.5)
Round(2.5)
Round(3.5)
Round(4.5)

Meget interessant resultat (hver anden rundes op og hver anden rundes ned)
Det skyldes den måde som banker runder af på, af en eller anden grund!

thomasjepsen:
Ja den under op/ned til det nærmeste runde tal, altså 2, 4, 6 osv.