Visualizza wikitesto di Arrotondare un Intero al più prossimo valore inferiore multiplo di 2, 4, 8, 16, 32 e 64

La formula per arrotondare un Intero al suo più prossimo valore inferiore multiplo di 2, 4, 8, 16, 32 e 64 è la seguente:
 Intero 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 15 al suo più prossimo valore inferiore multiplo di 4 (ossia 12):
 '''Public''' Sub Main()
  
  Dim multiplo As Integer
  
   multiplo = 15 And (Not 3)
   
   Print multiplo
   
 '''End'''