Visual Basic - AYUDA EN VISUAL BASIC

Life is soft - evento anual de software empresarial
   
Vista:

AYUDA EN VISUAL BASIC

Publicado por angel (5 intervenciones) el 03/02/2009 03:25:56
BUENAS
NECEISTO LA AYUDA
PARA ELABORAR UN PORGRAMA EN VB 6
EL OBJETIVO DEL PROGRAMA
ES INTRODUCIR EN UN TEXT BOX NUESTRO NOMBRE EN OTRO TEXT BOX NUESTRA FECHA DE NACIMIENTO
Y DEJAR UN TEXT BOX EN BLANCO QUE SERIA EL NUMERO 3
ENTONCES QUE NOS GUARDE LAS VARIABLES NOMBRE Y FECHA DE NACIMIENTO
Y AL MOMENTO DE PASAR AL TEXT BOX 3 QUE NOS DIGA
HOLA TIENES (EL NUMERO DE AÑOS DEPENDE A TU FECHA DE NACIMIENTO) POR LO TANTO YA ERES MAYOR DE EDAD
Y SI SON MENORES DE EDAD
QUE DIGA HOLA (EL NOMBRE NUESTRO) NO TIENES LA MAYORIA DE EDAD
POR LO TANTO CUMPLIRAS LA MAYORIA DE EDAD (Y QUE NOS DE LOS DIAS MESES O AÑOS EN LOS CUALES VAMOS A CUMPLIR LOS 18)
ESTE ES EL CODIGO QUE LLEVO
PERO FRANCAMENTE NO TENGO IDEA COMO
ESTO LO ESTOY HACIENDO EN EL TEXT 2 DONDE SE INTRODUCE LA FEHCA DE NACIMIENTO
Y ENB EL TEXT 1 ERS DONDE INGRESO EL NOMBRE
Private Sub Text2_LostFocus()
Dim Fecha_de_nacimiento As Integer
Dim vida As Integer
On Error GoTo solucion
vida = Date - CDate(Text3.Text)
Fecha_de_nacimiento = Int(vida / 365)
Text2.Text = Fecha_de_nacimiento & "años"
If Fecha_de_nacimiento < 18 Then
Text3.Text = nombre + ("hola") + vida + ("años de edad por lo tanto no eres grande")
Else
If Fecha_de_nacimiento > 18 Then
Text3.Text = nombre + ("hola") + vida + ("años de edad por lo tanto ya eres grande")

End If
End If
Exit Sub
solucion:
mensaje = MsgBox("FORMATO INCORRECTO" + Chr(13) + "Ingrese correctamente la fecha se asignarala fecha acutal", vbCritical + vbOKOnly, "Error de tipo de dato")

Resume
End Sub

ME AYUDARIA MUCHO QUE ME DIERAN LA SOLUCION 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 EN VISUAL BASIC

Publicado por Pedro Luis (878 intervenciones) el 03/02/2009 11:13:21
Si la fecha de nacimiento se introduce en Text2 entonces vida = Date - CDate(Text2.Text).
En el cálculo de la edad también hay un error, Fecha_de_nacimiento = Int(vida / 365), pues el año tiene 365.25 dias, por eso hay años bisiestos.
Lo demás parece estar bien.
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 EN VISUAL BASIC

Publicado por angel (5 intervenciones) el 03/02/2009 18:36:43
hola
gracias por la ayuda me sirvio de mucho
si soluciono el problema ya me calcula los años pero no me aparecen en el text 3
donde quiero que aparesca el mensaje de hola (el nombre que metimos en el text1) tienes (los años ) por lo tanto ya eres mayor de edad y que sea caso contrario si es menor de 18 y que aparesca en el text 3 cuando falta para que cumpla la mayoria de edad

gracias por ayuda!!!!!

esto es loq ue llevo

Private Sub Text1_Lostfocus()
Dim nombre As String

End Sub
Private Sub Text2_LostFocus()
Dim Fecha_de_nacimiento As Integer
Dim vida As Integer
On Error GoTo solucion
vida = Date - CDate(Text2.Text)
Fecha_de_nacimiento = Int(vida / 365.25)
Text2.Text = Fecha_de_nacimiento & "años"
If Fecha_de_nacimiento < 18 Then
Text3.Text = nombre + ("hola") + vida + ("años de edad por lo tanto no eres grande")
Else
If Fecha_de_nacimiento > 18 Then
Text3.Text = nombre + ("hola") + vida + ("años de edad por lo tanto ya eres grande")

End If
End If
Exit Sub
solucion:
mensaje = MsgBox("FORMATO INCORRECTO" + Chr(13) + "Ingrese correctamente la fecha se asignarala fecha acutal", vbCritical + vbOKOnly, "Error de tipo de dato")

Resume
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