CALCULAR DATA FINAL A PARTIR DO NR.DIA INFORMADO.

ROBERTOSOUZA 15/10/2017 12:00:17
#477155
Boa Tarde!
Pessoal gostaria de obter o resultado em um Textbox da soma do valor informado em outro Textbox, ou seja,

txtdtinicial: 15/10/2017
txtdias: usuário coloca essa informação: Ex: 5
o retorno txtdtfinal: 20/10/2017.
Efetuei o código abaixo mas esta retornando informações erradas.

txtdtfinal.Text = (Format(Date.Now.AddDays(txtdias.Text), [Ô]dd/mm/yyyy[Ô]))

Agradeço a ajuda,
JABA 15/10/2017 14:48:35
#477159 Resposta escolhida
Você não está se baseando na data do txtdtinicial; está se baseando na data atual. Você pode usar o controle DateTimePicker para uso de datas, vai ficar bem melhor. Para adicionar dias, você pode fazer assim:

		dim data as date = [Ô]10/15/2017[Ô]  Aqui vai a data contida no txtdtinicial.  Tenha cuidado com o formato dela.
		
		data = data.AddDays(5)
		
		txtdtfinal.text = data.ToShortDateString()
ROBERTOSOUZA 16/10/2017 21:05:16
#477186
Obrigado, efetuei o código abaixo e funcionou, vou tentar usar o controle DateTimePicker:

txtdtinicial.Text = CDate(Now).ToString([Ô]dd/MM/yyyy[Ô])
Dim data As Date = txtdtinicial.Text
data = data.AddDays(txtdias.Text)
txtdtfinal.Text = data.ToShortDateString()
Tópico encerrado , respostas não são mais permitidas
Voltar