Função Partição
Retorna uma cadeia de caracteres representando o intervalo calculado que contém o número.
Public Function Partition( _
ByVal Number As Long, _
ByVal Start As Long, _
ByVal Stop As Long, _
ByVal Interval As Long _
) As String
Parâmetros
Number
Obrigatório.Long.Número inteiro que você deseja localizar dentro de um dos intervalos calculados.Start
Obrigatório.Long.Número inteiro que indica o início do conjunto de intervalos calculados.Start não pode ser menor que 0.Stop
Obrigatório.Long.Número inteiro que indica o participante do conjunto de intervalos calculados.Stop não pode ser menor ou igual a Start.Interval
Obrigatório.Long.Número inteiro que indica o dimensionar de cada intervalo calculada entre Start e Stop. Interval não pode ser menor que 1.
Exceções
Tipo de exceção |
Número de erro |
Condição |
|---|---|---|
Start < 0, Stop <= Start ou Interval < 1. |
Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.
Comentários
A função Partition calcula um conjunto de intervalos numérico, cada um contento o número de valores especificados por Interval.O primeiro intervalo começa em Start, e o último intervalo termina em Stop.A função Partition então identifica qual intervalo contém Number e retorna uma cadeia de caracteres descrevendo esse intervalo.O intervalo é representado na adeia de caracteres como "valormínimo:valormáximo", onde a extremidade baixa do intervalo (valormínimo) é separada da extremidade alta (valormáximo) por dois-pontos (:).
Se necessário, a função Partition insere espaços destacados antes de valormínimo e valormáximo, de modo que ambos possuam o mesmo número de caracteres que a representação do valor em cadeia de caracteres (Stop + 1).Isto assegura que se você usar a saída da função Partition com vários valores de Number, o texto resultante será manipulado apropriadamente durante qualquer tipo de operação subsequente.
A tabela a seguir mostra algumas exemplos de cadeias de caracteres para intervalos calculados usando três conjuntos de Start, Stop e Interval.As colunas do "Primeiro intervalo" e "Último intervalo" mostram os intervalos mais baixo e mais alto possíveis dados os valores de Start e Stop.As colunas "Antes do primeiro intervalo" e "Depois do último intervalo" mostram as cadeias de caracteres retornadas para valores de Number menores que Start e maiores que Stop, respectivamente.
Start |
Stop |
Interval |
Antes do primeiro intervalo |
Primeiro intervalo |
Último intervalo |
Depois do último intervalo |
|---|---|---|---|---|---|---|
0 |
99 |
5 |
" : -1" |
" 0: 4" |
" 95: 99" |
"100: " |
20 |
199 |
10 |
" : 19" |
" 20: 29" |
"190:199" |
"200: " |
100 |
1010 |
20 |
" : 99" |
" 100: 119" |
"1000:1010" |
"1011: " |
Na tabela anterior, a terceira linha mostra o resultando quando Start e Stop definem um conjunto de números que não pode ser igualmente dividido por Interval.O último intervalo termina em Stop, fazendo-o ser longo em 11 números, muito embora Interval seja 20.
Se Interval é 1, o intervalo é "Number:Number", independentemente dos argumentos Start e Stop.Por exemplo, se Number é 267, Stop é 1000, e Interval é 1, PartitionRetorna "267: 267".
Partition pode ser útil quando se constrói consultas de base de dados.Você pode criar uma consulta SELECIONAR que mostra quantos pedidos ocorrem dentro de vários intervalos de valores, por exemplo com valores de fatura de 1 a 1000, 1001 a 2000, e assim por diante.
Exemplo
O exemplo a seguir define até uma série de intervalos por décadas de 1950 a 2049.Ele localiza o valor de year dentro do intervalo apropriado e retorna um String mostrando o intervalo de valor. Se year possui o valor de 1984, por exemplo, Partition retorna "1980:1989".
Dim year As Long = 1984
' Assume the value of year is provided by data or by user input.
Dim decade As String
decade = Partition(year, 1950, 2049, 10)
MsgBox("Year " & CStr(year) & " is in decade " & decade & ".")
Requisitos
Namespace: Microsoft.VisualBasic
**Módulo:**Interaction
Assembly: Visual Basic Runtime Library (em Microsoft.VisualBasic.dll)