Ajuda do LibreOffice 7.3
Devolve a posição de uma cadeia dentro de outra cadeia, com início no lado direito da mesma.
A função InstrRev devolve a posição na qual foi encontrada a correspondência, a iniciar na direita. Se a cadeia não for encontrada, a função devolve 0.
InStrRev (Text1 As String, Text2 As String [,Start As Long] [, Compare As Integer])
Longo
Texto1: expressão da cadeia de caracteres que pretende procurar.
Texto2: expressão da cadeia de caracteres que pretende procurar.
Start: expressão numérica opcional que assinala a posição à esquerda na cadeia onde se começará a procurar a sub-cadeia especificada. Se este parâmetro for omitido, a procura é iniciada no primeiro carácter da cadeia. O valor máximo permitido é 65 535.
Compare: expressão numérica opcional que define o tipo de comparação. O valor deste parâmetro pode ser
1: este valor especifica que uma comparação de texto que não diferencia maiúsculas de minúsculas.
0: este valor especifica uma comparação binária que diferencia maiúsculas de minúsculas.
Para evitar um erro de execução, não defina o parâmetro Compare se o primeiro parâmetro de retorno for omisso.
Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
sInput = "The book is on the table"
iPos = InStrRev(sInput,"the",10,1) ' devolve 1, a pesquisa não diferencia maiúsculas de minúsculas.
Print iPos
iPos = InStrRev(sInput,"the",10,0) ' devolve 0, a pesquisa diferencia maiúsculas de minúsculas.
Print iPos
End Sub