comparar data

[marvi]

Olá!

Estou tentando comparar as datas de um cadastro para que na hora do cadastro possa fazer um teste com a data atual e com a data que o usuário escoheu para um agendamento. A data de agendamento não pode aceitar retroativa.

Sendo assim, fiz:

dia = day(now)

mes = month(now)

ano = year(now)

hora = hour(now)

minutos = minute(now)

segundos =second(now)

Fun_Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano)

if vardata_agenda < Fun_Data then

não aceita

else

aceita

Mas o que acontece é que ele compara as datas do mês atual, mas quando colocam data do próximo mês ele acusa falando que não pode.

Ou seja: se coloco 27/4/2009 o sistema não permite, pois não aceita a data atual e datas mais antigas que ela mesma, ok, certo, quando também coloco 29/4/2009, por exemplo, ele aceita, pois não é a data atual e não é antiga. Contudo, se faço 25/5/2009, por exemplo, ele não permite também, mas o certo é permitir já que a data do dia parece menor, mas o mês é maior e assim deveria permitir

Como fazer então que a data seja aceita não só pelos os dias do mês, mas também os dias do mês que virão ainda?

Editado Abril 27, 2009 por marvi

[bareta]

use datediff, e compara a subtração das datas se diferente de 0 ou menor q 0

[Felipe ( Primow.com.br )]

Tente usar na comparação o CDate(). Ele irá converter sua string em uma data.

Ex.:

If CDate(vardata_agenda) < CDate(Fun_Data) Then

não aceita

Else

aceita

End If

Flwsss...