Arrotondare un Intero al successivo multiplo di 2, 4, 8, 16, 32 e 64

La formula per arrotondare un Intero al suo successivo valore multiplo di 2, 4, 8, 16, 32 e 64 è la seguente:

(((Intero) + (Numero-1)) And Not (Numero - 1))

laddove:

• Intero è l'Intero da arrotondare;
• Numero è il numero naturale intero di cui il valore (al quale l'Intero sarà arrotondato come risultato della formula) è un multiplo.

Mostriamo un esempio pratico, nel quale si arrotonderà l'Intero 13 al suo successivo più prossimo multiplo di 4 (oosia 16):

Public Sub Main()
 
 Dim multiplo As Integer
 
  multiplo = (((13) + 3) And Not 3)
  
  Print multiplo
  
End