SOMAR EM TEXTBOX COM DATA [RESOLVIDO]

[Beckman]

Olá pessoal!
Como se pode fazer uma soma de data no textbox
ex:
textbox1: 01/01/2016
textbox2: 3
textbox3: 04/01/2016

[Mikel Silveira Fraga]

Beckman, bom dia.

Cara, para realizar essa soma de datas, você vai precisar utilizar a função DateAdd. Veja abaixo:

Código: Selecionar todos

DateAdd(Interval As String, Number As Double, Date)

Na função DateAdd, temos três parâmetros:
- Interval: com este parâmetro, é definido que tipo de intervalo você quer adicionar. No seu caso são dias, então pode utilizar "d" nele, mas existem outros como ano, mês, trimestre, etc;
- Number: esse parâmetro, como o próprio nome diz, corresponde a quantidade do intervalo menciona. No seu exemplo, seria correspondente ao número 3, referente aos 3 dias;
- Date: esse último parâmetro, se refere a data base, a qual será acrescentado os dias.

Utilizando essa função, o seu código ficaria da seguinte forma:

Código: Selecionar todos

TextBox3.Value = DateAdd("d",TextBox2.Value,TextBox1.Value)

Abraços.

[Beckman]

Obrigado Mikel Silveira Fraga
vlw pela ajuda

[Beckman]

Mikel Silveira Fraga

Como falei antes deu certo, contudo como faço para corrigir esse ERRO?

Vou deixar o modelo no anexo

[Mikel Silveira Fraga]

Beckman, bom dia.

No seu caso, o que esta errado são as informações dos TextBox incorretos. Veja abaixo:

Código: Selecionar todos

txtsoma.Value = DateAdd("d", txtdia.Value, txtdata.Value)

Ficando dessa forma, vai dá certo.

Faça uma comparação com o que você queria fazer com o código incorreto. Assim você irá entender a lógica da função.

Abraços e excelente feriado.

[Beckman]

OBRIGADO MAIS UMA VEZ