Avrunda alltid uppåt

4 svar · 447 visningar · startad av Addeladde 3 jan. 2005

AddeladdeMedlem sedan jan. 20013 406 inlägg

Trådstart3 jan. 2005 16:29#1

Finns det någon funktion liknande round som alltid avrundar uppåt eller måste man skriva en själv? Någon som har en redan kanske?

FraggelMedlem sedan sep. 2003301 inlägg

3 jan. 2005 19:37#2

Det är ju bara till att adda 1 och köra en Int på talet !

K@llenMedlem sedan mars 20032 667 inlägg

3 jan. 2005 19:41#3

Vad jag vet finns ingen bra funktion för det. Det du söker är förmodligen ceil(), men det finns inte i VB-script.

muskotMedlem sedan jan. 20027 905 inlägg

3 jan. 2005 19:49#4

AddeladdeMedlem sedan jan. 20013 406 inlägg

3 jan. 2005 20:33#5

Då vet jag. Får göra en funktion själv

Avrunda neråt:

Function roundNed(tal)
  If instr(tal, ",") > 0 Then
    roundNed = cINT(left(tal,(instr(tal, ",")-1)))
  Else
    roundNed = 0
  End If
End Function

Avrunda uppåt

Function roundUp(tal)
  If instr(tal, ",") > 0 Then
    roundUp = cINT(left(tal,(instr(tal, ",")-1)))+1
  Else
    roundUp = 1
  End If
End Function