Comparar uma data...

[Davidmg 0]

Olá amigos,

 

Estou com o seguinte problema com as datas:

 

Em meu BD tenho 1campos chamado DATAEXP (que é a data de expiração do cadastro).

 

Quero fazer a seguinte comparação:

Se a DATAEXP for menor que DATA ATUAL a mensagem é EXPIRADO.

 

Estou fazendo assim:

 

<%SQl = "Select * from anuncios"Set Rs = MyConn.Execute(Sql)	dia = Day(date())	if dia < 10 then  dia = "0" & dia	mes = Month(date())	if mes < 10 then  mes = "0" & mes	ano = Year(date())		Datatu = dia & "/" & mes & "/" & ano	Dataexp = Rs("dataexp")If Dataexp < Datatu thenMensagem = "Expirado"elseMensagem = "Irá expirar em "&Dataexp&""end if%>

Ex:. A Datatu = 18/04/2005 e a Dataexp = 20/03/2005.

Nesse exemplo acima, ele teria que dar a mensagem EXPIRADO pq a Dataexp é menor que a Datatu, mas ele dá a mensagem "Irá expirar em "&Dataexp&"" pq ele faz apenas a comparação do dia, alguém pode me ajudar como fazer a comparação do dia, mes e ano pra saber se já expirou ou não?

 

Grato.

David

[Mário Monteiro 179]

tente assim

 

ASP

[*]<%

[*]SQl = "Select * from anuncios"

[*]Set Rs = MyConn.Execute(Sql)

[*]

[*]Datatu = Date()

[*]Dataexp = Rs("dataexp")

[*]

[*]If CDATE(Dataexp) < CDATE(Datatu) then

[*]Mensagem = "Expirado"

[*]else

[*]Mensagem = "Irá expirar em "&Dataexp&""

[*]end if

[*]%>

[Davidmg 0]

tente assim

 

ASP

[*]<%

SQl = "Select * from anuncios"

Set Rs = MyConn.Execute(Sql)

 

Datatu = Date()

Dataexp = Rs("dataexp")

 

If CDATE(Dataexp) < CDATE(Datatu) then

Mensagem = "Expirado"

else

Mensagem = "Irá expirar em "&Dataexp&""

end if

%>

<{POST_SNAPBACK}>

PERFEITO MARIOUFPA,

 

DEU CERTO, OBRIGADO.

[Mário Monteiro 179]

PERFEITO MARIOUFPA,DEU CERTO, OBRIGADO.

opa...de nada...precisando, tamos ai...