Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
PASAR A MAYUSCULAS Y QUITAR ACENTOS
6,114 views
Skip to first unread message
Pep
Jul 30, 2001, 4:27:52 AM7/30/01
to
Alguien sabe cuales son las funciones para pasar a mayusculas un campo??
y para quitarle los acentos??
Gracias de antemano
Agustín Giménez
Jul 30, 2001, 6:38:01 AM7/30/01
to
Para pasar a mayusculas hay que poner en la OPCION de formato el simbolo >
Emilio
Jul 30, 2001, 7:04:12 AM7/30/01
to
Hola Pep
la función que converte a mayusculas en UCase(Cadena), la inversa LCase(Cadena)
la función que converte a mayusculas en UCase(Cadena), la inversa LCase(Cadena)
saludos
Emilio
"Pep" <Pep....@terra.es> escribió en el mensaje news:OLKLaZNGBHA.1252@tkmsftngp03...
Victor Delgadillo
Jul 30, 2001, 8:41:30 AM7/30/01
to
Pasar a mayuscula es la funcion UCase(cadena) y para minuscula
LCase(cadena).
Para eliminar acentos es mas dificil. Aqui tienes que encontrar las letras
acentuadas y reponerlas por los equivalentes no acentuados. Una forma
seria:
LCase(cadena).
Para eliminar acentos es mas dificil. Aqui tienes que encontrar las letras
acentuadas y reponerlas por los equivalentes no acentuados. Una forma
seria:
Function NoAcento(Cadena) as String
Do While InStr(Cadena,"á")>0 Or InStr(Cadena,"é")>0 Or InStr(Cadena,"í")>0
Or _
& InStr(Cadena,"ó")>0 Or InStr(Cadena,"ú")>0
If InStr(Cadena,"á") >0 then
Mid(Cadena, InStr(Cadena,"á"),1) = "a"
End If
If InStr(Cadena,"é") > 0 then
Mid(Cadena, InStr(Cadena,"é"),1) = "e"
End If
... (aqui el resto de las letras acentuadas...)
Loop
NoAcento = Cadena
End Function
Si hay mayusculas acentuadas, habria que incluirlas tambien.
--
Victor Delgadillo
Miami, Florida
"Pep" <Pep....@terra.es> wrote in message
news:OLKLaZNGBHA.1252@tkmsftngp03...
0 new messages