Comparação data

[Tosta 0]

Galera me ajudem...

 

Tenho uma data armazenada no DB Access (lá ele está com formato de data/hora, mas para gravar só a data), quero pegar esta data e comparar se é ou não igual a data atual.

 

Fiz assim:

rscupom("DATA") = ""&date()&""

 

Porém não dá certo, mas se eu fizer assim (comparando a data como texto) ele aceita

rscupom("DATA") = "21/01/2016"

 

Mas preciso comparar sem ser texto, como posso fazer?

[Ted k' 126]

Use o CDate()

 

Pode também ir dividindo a data...

strData = "20/10/2007"
strData = Year(Cdate(strData)) & "-" & Right("0"&Month(Cdate(strData)),2) & "-" & Right("0"&Day(Cdate(strData)),2)

[xanburzum 169]

Formato: aaaa-mm-dd

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: dd-mm-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm-dd-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm/dd/aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>