[Resolvido]Calucular e mostrar saldo de dias e dias de atrazo

boa noite amigos, eu novamente.
bem, estou fazendo um bd de compras e pagamentos, até ai tudo bem, colocando a data do pagamento no ato da compra.
agora gostaria que o ao acessar o formulario do cliente me mostrasse quantos dias faltam pra vencer a parcela/pagamento, e caso não tenha pago até a data, me mostrasse a quantidade de dias trazados.
se não for pedir muito que os numeros dias restantes aparececem e verde e em atrazo em vermelho.
desde já agradeço.

Em uma caixa texto não acoplada no form, dentro dela:

Dias de Atraso:
=NZ((Data()-[SeuCampoDataVencNoForm]);"Sem Data Vencimento")

Dias para vencer:
=NZ([SeuCampoDataVencNoForm] -(Data());"Sem Data Vencimento")


Cumprimentos.

Obrigado PILOTO
a fórmula funciona legal. agora vou estudar aqui como aplicar ela da forma correta pra mim.
qualquer coisa retorno.
+ uma vez obrigado.

O Fórum agradece o retorno. So faltou o resolvido. Desta vez eu coloco.

Cumprimentos.

já tinha dado o forum como resolvido, mas surgio uma inconsistencia com o código, tanto um como o outro continuam a contar mesmo depois do vencimento ou quantos dias para o vencimento, eu gostaria que em um contasse quantos dias faltam para vencer, quando acabasse o prazo apenas ficasse me zero, com a formula que o PILOTO passou os dias continuam contando mas com um sinal de menos, e com o outro comando os dias começam a contar em ordem contraria como se os dois tivessem apenas comandos contrario, neste caso gostaria que começasse a contar a partida do dia que venceu.

em uma consulta num campo nao acoplado teste:

Código:



Diferenca1: SeImed([DataVenc]<Data();(Data())-[DataVenc] & " Dias de Vencido";SeImed([DataVenc]<=Data();"Due";([DataVenc]-(Data()) & "  Dias para o Vencimento")))

100% fucional. vlw PILOTO

Já abusando um pouco, tem como colocar as duas situações em cores deiferentes? ex:

Dias para Vencimento
Dias de Vencido

Bom dia a todos....

Com a permissão do mestre Piloto.

Use a condicional nesses campos. É mais simples e rápido.

Oi Silvio, isso seria em VBA? pode me explicar melhor como fazer isso?

Sim..... posso sim !

Veja, vai até a caixa onde está o prazo, botão direito do mouse sobre ela. Após isso vai aparecer o menu de contexto. Selecione Formatação Condicional.

Irá abrir mais um menu, onde você pode escolher as condicionais que você deseja aplicar sobre aquela caixa de texto. Tipo cor de fonte, fonte de letras, cor de fundo..etc..etc..

É possível aplicar até 3 condicionais. No seu caso, você terá que escolher a condição: " O valor do campo " na primeira caixa e na segunda caixa " é maior" ou "é menor" dependendo de qual caixa de texto você deseja aplicar essa condição.

Esse é um método. O outro é apenas mudar a cor da fonte dessa caixa de texto. Simples não ?

Teste.

Abraços.

Silvio

Opa, obrigado, vou testar agora!

Manda ver...

Oi Silvio e PILOTO, consegui graças a vocês, tinha um espaço na fórmula que tava me matando e não tava dando certo.
Silvio? só não entendi essa parte que você falou que era apenas mudar a cor da fonte, caso eu muda a cor da fonte não ira ficar aquela cor fixa todo tempo?
mas quanto a condição para mudar a cor já esta resolvido.
abraço aos Gurús.

Boas Silvio, Busch...

Tambem dá assim:


No evento do Form, no Atual


Private Sub Form_Current()
'Checo de da esquerda pra direita na caixa texto tem o texto vencido
If Right(Me.SuaCaixaText, 7) = "Vencido" Then
Me.SuaCaixaTesto.ForeColor = vbRed
Else
Me.SuaCaixaTexto.ForeColor = vbGreen
End If
End Sub


Ai podes Utilizar:
.ForeColor
.BackColor.
.FontBold

etc...

Abraço.