Calculo Edad
ALGORITMO
Ingrese fecha de nacimiento
SI la fecha de nacimiento es mayor a la fecha actual entonces
MENSAJE “la fecha es de nac. No debe ser mayor a la fecha actual”
DE LO CONTRARIOFECHAACTUAL .SUBSTRACT(FECHANACIMIENTO)
Convertir resultado en años, meses, días
Direccionar resultados
FIN SI
PROGRAMACIÓN EN VB.NET
DateTimePicker1
EL CÓDIGO ES EL SIGUIENTE: SOLO DEBES HACER CLICEN EL FORMULARIO BORRAR EL CÓDIGO Y
PEGAR ESTE…
Public Class FORM1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsalir.Click 'BOTÓN SALIR
Close()End Sub
Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btncalcular.Click 'BOTÓN CALCULAR
Dim ar, mr, dr, m, a As Integer 'ar= anno resultado ,mr=mes
resultado , dr=dia resultado , a=residuo de ias dividio del anno,
m=residuo de 'a' dividido en meses
Dim date2 As New System.DateTime(Now.Year, Now.Month, Now.Day)
Dim date1 As NewSystem.DateTime(Val(DateTimePicker1.Value.Year),
Val(DateTimePicker1.Value.Month), Val(DateTimePicker1.Value.Day))
Dim tsResult As System.TimeSpan
If (Val(DateTimePicker1.Value.Year) >= Now.Year AndVal(DateTimePicker1.Value.Month) >= Now.Month And
Val(DateTimePicker1.Value.Day) > Now.Day) Or _
(Val(DateTimePicker1.Value.Year) >= Now.Year And
Val(DateTimePicker1.Value.Month) > Now.Month) Or _(Val(DateTimePicker1.Value.Year) > Now.Year) Then '...AQUÍ
COMPARAMOS LA FECHA
MsgBox("LA FECHA DE NACIMIENTO NO DEBE SER MAYOR A LA FECHA
ACTUAL", MsgBoxStyle.Exclamation, "CÁLCULO DE EDAD")
Else
tsResult =date2.Subtract(date1) 'NORMALMENTE... NOS DÁ EL
RESULTADO EN DIAS...
'aqui se calcula el tiempo de servicio
a = Int(Val(tsResult.Days.ToString) Mod 365)
ar = Int(Val(tsResult.Days.ToString) / 365)
m = Int(a Mod30)
mr = Int(a / 30)
dr = Int(m / 1)
''ahora calculamos direccionamos en sus posiciones
txtar.Text = ar.ToString
txtmr.Text = mr.ToString
txtdr.Text = dr.ToString
End If
DateTimePicker1.Focus()
'NOTA...
Regístrate para leer el documento completo.