PEGAR APENAS O NUMEROS ANTES DA BARRA

USUARIO.EXCLUIDOS 01/06/2011 09:32:39
#375532
Bom dia pessoa, tenho um campo no meu bd que se chama (titulo) nele os dados estão assim 121/10 , num formulario gostaria de filtrar apenas os numeros antes da barra pois usarei esse filtro num msflexgrid, tipo filtrar apenas os numeros que aparece em negrito: 121/10, como posso fazer isso?
KERPLUNK 01/06/2011 09:56:25
#375535
Use o comando Split:
dim x
dim valor
valor = [Ô]121/10[Ô]
x = split(valor, [Ô]/[Ô])
msgbox x(0)
ROBIU 01/06/2011 10:12:59
#375542
Se os dados tiverem um formato fixo, é só usar a função Left
Ex

Dim Valor As String
Valor = [Ô]121/10[Ô]
MsgBox Left(Valor, 3)


Mas se o formato for variavel faz assim:

MsgBox Mid(Valor, 1, InStr(1, Valor, [Ô]/[Ô]) - 1)
MARCELO.TREZE 01/06/2011 14:42:51
#375601 Resposta escolhida
completando, seria algo + ou - assim

sSQL = [Ô]SELECT * FROM tabela WHERE campo Like [ô][Ô] & Mid(Valor, 1, InStr(1, Valor, [Ô]/[Ô]) - 1) & [Ô]%[ô][Ô]
USUARIO.EXCLUIDOS 02/06/2011 08:58:15
#375647
Valeu galera, muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar