Paulo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/02/2009 10:07 hs
If Format(RS!EMISSAO, "MM/dd/yyyy") > Format("29/02/2008", "MM/dd/yyyy") Then Msgbox "Data de emissao é maior" End If
Eu pauso nessa parte da linha de codigo para testar as datas, na data 02/01/2009 que nesse caso é maior que a data 29/02/2008 teria que entrar na messangem, mas não entra...sera que alguem pode me ajudar ? Tem algo de errado no meu codigo ?
|
|
|
|
Treze
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/02/2009 10:24 hs
If CDate(RS!EMISSAO) > CDate("29/02/2008") then Msgbox "Data de emissão é Maior" End If
|
|
|
|
Postada em 18/02/2009 10:30 hs
vc está formatando a data assim 02/29/2008 e 01/02/2009 se usar a formatação "yyyymmdd" fica assim 20080229 e 20090102
|
|
|
|
Postada em 18/02/2009 10:43 hs
Coloquei dessa forma conforme seu exemplo: If CDate(RS!EMISSAO) > CDate("29/02/2008") then Msgbox "Data de emissão é Maior" End If
E de fato entra na condição de Maior, mas quando eu troco o ano para 2009 conforme abaixo da erro: If CDate(RS!EMISSAO) > CDate("29/02/2009") then Msgbox "Data de emissão é Maior" End If
Run-time error '13' Type mismatch
Obs: O valor do campo RS!EMISSAO em ambos os teste é: 02/01/2009
Fico no aguardo. Obrigado
|
|
|
|
Postada em 18/02/2009 10:59 hs
if isnull(RS!EMISSAO) = FALSE THEN If Format(RS!EMISSAO, "yyyymmdd") > "20080229" Then Msgbox "Data de emissao é maior" End If END IF
|
|
|
Treze
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/02/2009 16:21 hs
Outra forma seria If DateValue(RS!EMISSAO) > DateValue("29/02/2009") then Msgbox "Data de emissão é maior" End If
|
|
|