Me.Edad = DateDiff("yyyy", Me.Fecha, Date) If Format(Me.Fecha, "mmdd") > Format(Date, "mmdd") Then Me.Edad = Me.Edad - 1 End If
Me.Edad = DateDiff("yyyy", Me.Fecha, Date) If Format(Me.Fecha, "mmdd") > Format(Date, "mmdd") Then Me.Edad = Me.Edad - 1 End If
|
|
|
|