Ola galera!!

Preciso de uma ajuda nesta função de vb. 

tenho um banco de dados que vasculha o sistema e captura os seguinte dados:

115-DEPOSITO EM ATRASO NOVEMBRO/2001

 x = Len(linha) = 58 (58 é o tamanho da maior linha)

 For y = 1 To x  (Y = "/" ele tem que retorna e acha a "/" e confere o ano e captura acha o mês e captuta)

 If Mid(linha2, y, 1) = "/" Then Exit For
 Next

 

 ANO = Mid(linha2, y + 1, x - y) veja apartir daqui não roda mais por que ???????????
            

   Select Case (linha2)
   Case Mid(linha2, y - 7, 7) = "janeiro"
   mes = "janeiro"
   Case Mid(linha2, y - 9, 9) = "fevereiro"
   mes = "fevereiro"
   Case Mid(linha2, y - 5, 5) = "marco"
   mes = "marco"            
                        
                        
                        
                       

 

Se o texto inicial for sempre o mesmo, então o mês começa no 24º caractér. Assim, dá pra usar a instrução abaixo pra pegar o mes:

xmes = Month(Mid(x, 24))

 

...24 é onde começa o novembro, o maio e assim por diante

...x é texto
 

não, o texto inicial nem semple vai ser o mesmo, digo o mês por isso preciso encontrar primeiro a "/" pra começar a contar o mes e o ano. 

GUTELO, se o mes/ano ficarem sempre no final, esta função pode te ajudar. Ela procura de trás pra frente o mes/ano e retorna atraves do month() o número do mes em questão. Deixa ela num módulo que daí pode usar em qualquer lugar:

 

Public Function AchaMes(ByVal xTexto As String) As Integer
   Dim i, p1, p2
   AchaMes = 0
   p1 = 0: p2 = 0
   If Len(xTexto) = 0 Then Exit Function
   For i = Len(xTexto) To 1 Step -1
      If Mid(xTexto, i, 1) = "/" Then p1 = i
      If Mid(xTexto, i, 1) = " " And p1 > 0 Then p2 = i
      If p2 > 0 Then Exit For
   Next
   AchaMes = Month(Mid(xTexto, p2))
End Function

pra usar:

MsgBox AchaMes(linha2)

 

ai pessoal valeu as dicas, juntei uma resposta com a outra ai conseguir definir o serviço, muito obrigado ok!!.