USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Comparar datas
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
 
   
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
ENUNCIADA !
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
 
   
Paulo
não registrado
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
     
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
ENUNCIADA !
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
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página