Visual Basic - Ayuda para obtener edad

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda para obtener edad

Publicado por Reynaldo Herrera (67 intervenciones) el 16/11/2001 16:31:04
Apenas estoy aprendiendo VB, necesito obtener la edad apartir de persona apartir de su rfc (variable de texto) ejem HEPR710513DX8 este es mi rfc, necesito extraer la parte 710513 que es la fecha de nacimiento y luego convertir 71 a tipo numerico para que 2000-1971 me de la edad 30, pero no conosco las funciones para extraer texto, y para convertir texto a numero, en clipper utilizaria substr() y val() pero aqui no se que hacer.

Gracias
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

RE:Ayuda para obtener edad

Publicado por jose luis (3 intervenciones) el 16/11/2001 17:49:42
Prueba esto.
Haz un boton y una etiqueta adiciona el codigo al boton y listo

Private Sub Command1_Click()
Dim Fecha As Date
rfc = "HEPR720308DX8"
Fecha = Mid(rfc, 9, 2) & "/" & Mid(rfc, 7, 2) & "/" & Mid(rfc, 5, 2)
edad = DateDiff("yyyy", Fecha, Date)
Label1 = edad
End Sub
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

RE:Ayuda para obtener edad

Publicado por dulce (2 intervenciones) el 23/08/2003 19:30:32
PARA SEPARAR LETRAS DE UNA PALABRA PUEDES UTILIZAR LA FUNCION MID(), NO RECUERDO MUY BIEN CUALES SON LOS LOS PARPAMETROS QUE NECESITA PERO ES ALGO ASÍ: MID( Cadena, ContInicio, Numdeletras)
Por ejemplo: la palabra es HEPR710513DX8 y quieres extraer 71
entonces. Mid( cadena, 4, 2 ) algo así
Y PARA CONVERTIR DE CADENA A NUMERO ES Cint
O PARA CONVERTOR DE CADENA A Fecha es CDate
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