Visual Basic para Aplicaciones - Validar codigo postal que tiene letras

Life is soft - evento anual de software empresarial
   
Vista:

Validar codigo postal que tiene letras

Publicado por Nicolas Real (9 intervenciones) el 13/02/2009 22:31:09
Hola todos,

En una caja de texto (txt_cp) el usuario debe ingresar el codigo postal,
lo que necesito es validar que este bien escrito
El formato a validar debe ser C5001BMP
Osea que el primer caracter sea string, los cuatro siguientes numerico y los ultimos tres string

Espero me puedan ayudar

Un abrazo...Nico
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Validar codigo postal que tiene letras

Publicado por JuanC (431 intervenciones) el 15/02/2009 11:52:40
Sub test()
Dim s$
s = "C5001BMP"
MsgBox Validar(s)
End Sub

Function Validar(s As String) As Boolean
Dim l&, i&, v() As String
Validar = False
If Len(s) <> 8 Then Exit Function
l = Len(s)
For i = 1 To l
ReDim Preserve v(i)
v(i) = UCase(Mid(s, i, 1))
Next
If v(1) Like "[!A-Z]" Then Exit Function
For i = 2 To 5
If v(i) Like "[!0-9]" Then
Exit Function
End If
Next
For i = 6 To 8
If v(i) Like "[!A-Z]" Then
Exit Function
End If
Next
If IsArray(v) Then Erase v
Validar = True
End Function

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar