Função LBound

Aplica-se A
Access para Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Devolve um Longo que contém o menor subscrito disponível para a dimensão indicada de uma matriz.

Sintaxe

LBound(arrayname [, dimension ] )

A sintaxe da função LBound tem os seguintes argumentos:

Argumento Descrição
arrayname Obrigatório. Nome da variável de matriz; Segue convenções de nomenclatura de variáveis padrão.
dimensão Opcional. Variante (Longo). Número inteiro que indica qual é devolvido o limite inferior da dimensão. Utilize 1 para a primeira dimensão, 2 para a segunda e assim sucessivamente. Se dimensão for omitida, assume-se 1.

    

Observações

A função LBound é usada com a função UBound para determinar o tamanho de uma matriz. Use a função UBound para encontrar o limite superior de uma dimensão de matriz.

LBound devolve os valores na seguinte tabela para uma matriz com as seguintes dimensões:

Dim A(1 To 100, 0 To 3, -3 To 4)

Declaração Valor Devolvido
LBound(A, 1) 1
LBound(A, 2) 0
LBound(A, 3) -3

    

O vínculo inferior padrão para qualquer dimensão é 0 ou 1, dependendo da configuração da instrução OptionBase . A base de uma matriz criada com a função Array é zero; não é afetado pela Base de Opção.

As matrizes para as quais as dimensões são definidas usando a cláusula To em uma instrução Dim, Private, Public, ReDim ou Static podem ter qualquer valor inteiro como um limite inferior.

Exemplo

Nota

Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo usa a função LBound para determinar o menor subscrito disponível para a dimensão indicada de uma matriz. Utilize a instrução Option Base para substituir o valor inferior à linha da matriz base predefinida de 0.

Dim Lower
' Declare array variables.
Dim MyArray(1 To 10, 5 To 15, 10 To 20)     
Dim AnyArray(10)
Lower = Lbound(MyArray, 1)     ' Returns 1.
Lower = Lbound(MyArray, 3)    ' Returns 10.
Lower = Lbound(AnyArray)
' Returns 0 or 1, depending on setting of Option Base.