Pessoal, boa tarde!!!

Em meu cadastro de funcionários tem dois campos de datas, um é data de nasc. e o outro data de contratação.

Preciso de uma função que me retorne uma mensagem caso a data de contratação seja menor que a de nasc.

 

BD em Access 97

formato data ddmmyyyy

VB 6.0

Alguém pode me ajudar????

Marcelino Neto

No botão de salvar, antes da rotina que grava os dados, coloque uma instrução que verifique os campos da tela:

 

If cdate(textboxContratacao.text) < cdate(textboxNascimento.text) then

   Msgbox "Datas inválidas"

   exit sub

end if

 

eu prefiro usar a função datediff

 

 

  If DateDiff("d", Format(txtAniv.Text, "dd/mm/yyyy"), Format(txtContr.Text, "dd/mm/yyyy")) < 0 Then
    MsgBox "A data de aniversário deve ser menor que a de contratação"
  End If