Pasos para diseñar un formulario en Visual Basic que permita calcular la edad en año, meses y días. (SEMANA 24)
1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar un color de fondo al formulario.
2. A continuacion se le asigna un fondo de color a los siguientes objetos (4 label, 4 textbox y 2 option button).
3. Una vez codificado cada objeto con el siguiente codigo el aplicativo quedará así:
Private Sub Command1_Click()
Text2.Text = DateDiff("yyyy", Text1.Text, Format(Date, "dd/mm/yyyy"))
Text3.Text = DateDiff("d", Text1.Text, Format(Date, "dd/mm/yyyy"))
Text4.Text = DateDiff("m", Text1.Text, Format(Date, "dd/mm/yyyy"))
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Comentarios
Publicar un comentario