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 =...
Regístrate para leer el documento completo.