Edad

Esta aplicación sirve para consultar la Edad de una persona.
A continuación la programación:


Private Sub Command1_Click()
Dim a As Date, b As Integer
a = CDate(Text1.Text)
b = CInt((Date - a) / 365)
Text2.Text = Str(b) & "años"
End Sub


Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub