[Resolvido]Contagem de tempo

Vivas para todos

Recorro com a seguinte questão:
no meu formulário queria criar 2 caixas,uma com data e outra com contagem de tempo
ao colocar a data na caixadata , a caixatempo deveria aparecer uma data com mais 30 dias em contagem (por exemplo)
Qual a formula/função que posso fazer, e que preciso da vossa ajuda
a ideia é ao registar essa data , ficando em contagem de tempo a resposta que deve ser dada aquele registo

Espero que entendam

Gratos por tudo

mirsofy

Você quer jogar um prazo para frente, por exemplo , ao digitar uma data e some X dias e retorne o resultado em outro campo? Se for isso utilize DateAdd

Ficaria, no caso de 30 dias, mais ou menos assim (coloque no evento "após atualizar da CaixaTexto1):
CaixaTexto2 = DateDiff("d", 30, CaixaTexto1)

Isso vai somar 30 dias à data digitada em CAixaTexto1 e colocar o valor em CaixaTexto2

Vivas

Seguindo o que percebi da tua orientação , não me dá
segue um pq exemplo do que quero
onde estou a errar?

Grato pela atenção

Olá Manuel,

O código funciona conforme orientação do amigo @thiagomcosta, porém, os campos estão invertidos Segue a correta:

Código:



Private Sub DataRecurso_AfterUpdate()
   
    'DataRecurso = DateDiff("d", 30, Contagem)
    Contagem = Format(DateAdd("d", 30, DataRecurso), "dd/mm/yyyy")
   
   
End Sub



Neste caso, usamos a função DateAdd, e a formatação do campo "Contagem", pois na tabela está como Texto.

É isso
[]'s
FIM

Vivas

Grato aos dois pela ajuda

mirsofy