Private Sub Command1



Private Sub Command1_Click()
'delcarar variable para almacenar dia mes y año
'da es el dia actual , ma es el mes actual , aa es el año actual
'toda declaracion de variable comienza con la palabrareservada DIM
Dim da, ma, aa, e As Integer
da = Day(Date)
ma = Month(Date)
aa = Year(Date)

'MsgBox Date
'MsgBox Day(Date)
'MsgBox Month(Date)
'MsgBox Year(Date)
'condiciones
'toda condicion envisual basic comiena con la palabra reservada IF
'su estructura es : if condicion then.................. y termina en END IF
If Val(mn) < ma Then
e = aa - Val(an)
Else
If Val(mn) > ma Thene = aa - Val(an) - 1
Else
If Val(mn) = ma Then
If Val(dn) = da Then
e = aa - Val(an)
Else
If Val(dn) < daThen
e = aa - Val(an)
Else
e = aa - Val(an) - 1
End If
End If
End If
End If
EndIf
Text4 = e
End Sub

Hola. 

Pense que era menos complicado .. pero realmente no es facil de hacer ... 

Bueno este ejemplo te ayudara a a clarar tus dudas al respecto. 

Este ejemplo asume que tienesun formulario VB de nombre "Form1" que contiene 4 cajas de texto y un botón: 

Text1 // representa la Edad 
Text2 // repersenta los meses 
Text3 // representa los dias 
Text4 // representa elresultado 

Command1 // boton para hacer el calculo. 

El codigo es el siguiente: 


Private Sub Command1_Click() 

Dim FechaActual As Date 

FechaActual = Now() - Text3.Text 

Dim Dia_Final As Integer 
DimMes_Final As Integer 
Dim Año_Final As Integer 

Dia_Final = Day(FechaActual) 

If (CInt(Text2.Text) >= Month(FechaActual)) Then 
Mes_Final = 12 + Month(FechaActual) - Text2.Text 
Else 
Mes_Final =Month(FechaActual) - Text2.Text 
End If 

If Mes_Final > Month(Now()) Then 
Año_Final = Year(FechaActual) - Text1.Text - 1 
Else 
Año_Final = Year(FechaActual) - Text1.Text 
End If 

Text4.Text =...