Udregning og afrunding
Hej med jer,Jeg har en lille funktion, som udregner diverse mængder. Udfra en variabel (hjoerne), skal jeg have udregnet, hvor mange hjørnelister af 2,5 meter der skal bruges. Dvs. indtaster brugeren eks. 5, skal der returneres 2 stk, og indtaser han/hun 6, skal der returneres 3 stk.
Jeg har lavet følgende kode, som desværre returnerer noget forkert i enkelte tilfælde. - Hvorfor fatter jeg ikke. Hvis jeg eks. indtaster 26, så skal koden returnere 11, men den returnerer 10!
Kort sagt, (Variabel/2.5 og derefter rundet op til nærmeste hele)
----------------------------------------------
if bundliste <> "0" then
function findbund(oensketKG, antalIKGSaek)
dim antalSaekke
oensketKG = bundliste
antalKGSaek = 2.5
antalSaekke = cInt(Round(oensketKG / antalIKGSaek)+0.5)
if antalSaekke =< 1 then
antalSaekke = antalSaekke + 1
end if
findbund = antalSaekke
end function
end if
----------------------------------------------
Håber det giver mening.
mvh
Henrik