Cita:
Iniciado por principefreddy 
hola, quisiera que me ayudaran con esto. estoy realizando un sistema y no encuentro o no se como validar que cuando se valla a ingresar a un empleado nuevo su fecha de nacimiento no sea igual a la fecha actual del sistema. por ejemplo si hoy es 06/06/2008 y se este registrando a un empleado su fecha de nacimiento no puede ser la misma fecha de hoy y, creo que tampoco 1 i 2 ni 3 etc años menos, ayudenme porfa , espero me entiendan.
Hola,
para calcular la edad, puedes utilizar una función como esta, que devuelve un Long con la edad exacta:
Código:
Function CalculaEdad(ByVal DataIni As Date) As Long
CalculaEdad = DateDiff("yyyy", DataIni, Date)
If (Month(DataIni) > Month(Date)) Or (Month(DataIni) = Month(Date) _
And Day(DataIni) > Day(Date)) Then CalculaEdad = CalculaEdad - 1
End Function
Y la llamarías así desde un CommandButton o el evento LostFocus (suponemos que la fecha se ha escrito en un TextBox <Text1>):
Código:
Dim iAños As Integer
If Not IsDate(Text1.Text) Then
MsgBox "La fecha no es correcta"
Text1.SetFocus
Exit Sub
End If
iAños = CalculaEdad(Text1)
MsgBox "Tienes " & iAños & " años."
If iAños < 14 Then MsgBox "Los menores de 14 años no pueden trabajar"
