Função Partition [VBA]
Devolve uma cadeia de caracteres indicando onde ocorre um número dentro de uma série de intervalos calculados.
Partition( número, início, final, intervalo)
String
número: obrigatório. O número a determinar a partição.
início: obrigatório. Um número inteiro que define o valor inferior do intervalo de números.
final: obrigatório. Um inteiro que define o maior valor do intervalo.
intervalo: obrigatório. Um número inteiro que especifica o tamanho das partições dentro do intervalo de números (entre início e final).
Option VBASupport 1
Option Explicit
Sub Test_Partition
Dim retStr As String
retStr = Partition(20, 0, 98, 5)
print "20:24 o número 20 ocorre no intervalo : " & retStr
retStr = Partition(20, 0, 99, 1)
print "20: 20 o número 20 ocorre no intervalo: " & retStr
retStr = Partition(120, 0, 99, 5)
print "100: o número 120 ocorre no intervalo: " & retStr
retStr = Partition(-5, 0, 99, 5)
print " : -1 o número -5 ocorre no intervalo: " & retStr
retStr = Partition(2, 0, 5, 2)
print " 2: 3 o número 2 ocorre no intervalo: " & retStr
End Sub