Alguem pode me ajudar???

Num form eu possuo duas datas para o usuário preencher.

Text1 e Text2

Eu preciso fazer uma validação que não deixe a data do Text2 ser menor do que a data do Text1

 

Eu tentei assim

If text2 < text1 Then

Msgbox"Data FINAL não pode ser menor do que a data INICIAL"

end if

 

Porém... Se eu colocar a data 30062008 - 01052008 Não dá certo!!!

Alguem pode me ajudar?

Boa tarde.

 

Você pode utilizar o código abaixo para solucionar seu problema:

 

    Dim x As Variant
    x = DateDiff("d", CDate(Text1.Text), CDate(Text2.Text))
   
    If (x < 0) Then
          MsgBox "Data Final < Data Inicial"   '---ERRO
    Else
          MsgBox "Data Final >= Data Inicial" '---OK
    End If

if cdate(Text2.Text) < CDate(Text1.Text) then

   msgbox "data 2 menor que data 1"

end if

Obrigada!!! =)