jag skulle bli glad om någon kunde hjälpa mig med någon kod till att avrunda tal som är jämnt delbara med 32!

ex. om jag har siffran 11 så vill jag få den till 32 och har jag siffran 45 så vill jag ha 64!

Om ni förstår vad jag menar och kan hjälpa mig så skulle jag bli glad:-)

~Kalke

Undrar bara ifall det inte är så här du menar ??

0-15 avrundas till 0
16-31 avrundas till 32

osv.

Isåfall:

round32 = ((i+16)\32)*32

observera det bakvända "delatmed" som betyder heltalsdivision.

/peterh

eller...

int((i+31)/32)

/Peter S

Ännu en tolkning av ditt proble. :-)

Jag tolkar din fråga så som du vill avrunda uppåt. 11 till 32, 45 till 64 osv

Här kommer ett exempel.

varTal = 45
varTal = varTal - 1
varMittNyaTal = (varTal - (varTal Mod 32)) + 32

/Janne

Private Function ThirtyTwo(ByVal Number As Double) As Double
Dim i As Integer
Dim tmp As Double
tmp = Number \ 32
i = IIf(Number Mod 32, 1, 0)
If Number = 0 Then i = 1 ' Ta bort denna rad om du vill att 0 ska returnera 0
ThirtyTwo = (tmp + i) * 32
End Function

Tack ska du ha jag tror att det har löst sig nu:-)