CONTAR DIAS COM DATAS DE VENCIMENTO

MOREIRA 18/08/2014 09:15:39
#440520
bom dia.. estou com essa rotina para contar dias aparti da data de vencimento.. até aí tudo bem...

está assim. data now - data vencimento

conta certinho,,..

mas se colocar a data de vencimento maior que a data atual ele conta também.... o que está errado

 
       Dim data_insert, data_vencto As Date
       Dim conta_dias As Integer
    
      data_insert = txttitulo_data_cadastro
      data_vencto = txttitulo_data_vencto
      conta_dias = DateDiff([Ô]d[Ô], Now(), data_vencto)
      lbl_status_lancto.Caption = Abs(conta_dias)
TUNUSAT 18/08/2014 09:44:55
#440523
MOREIRA,

Resolvendo rápido:
- Coloca um [Ô]IF[Ô] fazendo a validação.
Se a data de vencimento maior que a data atual não faz o [Ô]DateDiff[Ô] e mostra outra mensagem.

Outra forma... Hoje é dia [Ô]18/08/2014[Ô] ... então o DateDiff vai responder assim:
Veja no menu [Ô]Immediate[Ô] (Ctrl + G):

? DateDiff([Ô]d[Ô], Now(), [Ô]17/08/2014[Ô])
-1 
? DateDiff([Ô]d[Ô], Now(), [Ô]18/08/2014[Ô])
 0 
? DateDiff([Ô]d[Ô], Now(), [Ô]19/08/2014[Ô])
 1


Você pega a resposta do [Ô]DateDiff[Ô] e se for menor ou igual a zero você trata de um jeito diferente.

é isto?

[][ô]s,
Tunusat.
MARCELO.TREZE 18/08/2014 13:22:29
#440533
só explicando o que ocorre, a função DATEDIFF retorna o diferença entre duas datas, indiferente se a primeira data é maior e a segunda é menor, ou vice versa, ele vai sempre retornar a diferença.
TUNUSAT 18/08/2014 13:46:46
#440536
Marcelo-13,

Valew! Boa explicação. Completou o exemplo.

Por favor, tem como você dar uma olhada no meu post?

VAMOS MONTAR DICA PARA VBMANIA: VB6 NO WINDOWS 8
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=440399&pagina=1

[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar