CALCULO COM DATAS

USUARIO.EXCLUIDOS 20/04/2004 14:30:05
#21634
Senhores, com o cód. abaixo faço o cálculo digitando em textbox a quant. de anos. Como faço para fazer o cálculo digitando a quant. em meses?

Private Sub TxtAnos_Exit()
Dim tempo As Double
tempo = FrmLocatario.TxtAnos.Text * 365
FrmLocatario.TxtTermino = CDate(FrmLocatario.TxtDataLocacao.Text) + tempo
FrmLocatario.TxtTermino.Text = Format(TxtTermino.Text, "dd/mm/yyyy")
CAJU 22/04/2004 12:17:15
#21912 Resposta escolhida
IRENKO.... não tem erro não...

se 20/04/2004 + 8m = 20/12/2004
se 20/04/2004 + 9m = 20/01/2005

é só usar: DATEADD
CAJU 22/04/2004 13:04:17
#21919
Dim mData As Date
mData = CDate("20/04/2004")
mdata = dateAdd("m",cint(txtmeses.text),mdata)

msgbox mData

'txtmeses = vaiconter a quant de meses que vc deseja adicinar a data(mData)
CAJU 22/04/2004 14:27:19
#21944
Dim mData As Date
mData = CDate("22/04/2004")
mData = DateAdd("m", CInt(TxtMeses.Text), mData)
LbTermino.Caption = mdatA 'e nao mDate, será que é isso o erro?
Tópico encerrado , respostas não são mais permitidas
Voltar