DATA SOMAR A DIAS

MARCELOFAZAN 27/07/2010 11:40:45
#348582
Pessoal tenho um combo de 0 a 31
agora preciso

ex selecionar 2
pegar a data de hoje e somar + 2

Dim iVencimento As Integer
iVencimento = cmbDiaVencimento.ListIndex
txtDatafreq.Text = DateAdd([Ô]d[Ô], (iVencimento -????? ), Date))


o erro está aqui no DateAdd([Ô]d[Ô], (iVencimento - ????????? ), Date))

quero fazer 27/07/2010 + 1 = 28/07/2010 retornar no txtDatafreq.Text


Obrigado
Abs
Marcelo Fazan

CEMM 27/07/2010 11:58:21
#348587 Resposta escolhida
facil amigo...


    iVencimento = cmbDiaVencimentoList(cmbDiaVencimento.ListIndex)
    txtDatafreq.Text = DateAdd([Ô]d[Ô], CDbl(iVencimento ), Date)


fiz um teste aqui:

Text1.Text = DateAdd([Ô]d[Ô], CDbl(Combo1.List(Combo1.ListIndex)), Date)
NILTON.VIANNA 27/07/2010 12:02:50
#348588
é mais ou menos isso ??
Format(txtDatafreql.Text, [Ô]mm/dd/yyyy[Ô]) = Format(Date, [Ô]mm/dd/yyyy[Ô]), + 1
JAMESBOND007 27/07/2010 12:03:37
#348589
tente isso
DateAdd([Ô]d[Ô], iVencimento, Date())
MARCELOFAZAN 27/07/2010 12:20:12
#348591
ok ok pessoal
muitissimo obrigado

resolvido o problema

Abs
Marcelo Fazan
Tópico encerrado , respostas não são mais permitidas
Voltar