CALCULO COM DATA

USUARIO.EXCLUIDOS 26/04/2004 08:52:50
#22655
Cajú, o código abaixo que vc sugeriu funciona legal no cálculo, mas quando eu encerro o sistema na linha -mData = DateAdd("m", CDbl(TxtMeses.Text), mData)-
da a mensagem de erro (Tipo incorreto). Vc sabe me dizer porquê?


Private Sub CalculoMeses()
Dim mData As Date
mData = CDate("01/01/2004")
mData = DateAdd("m", Cint(TxtMeses.Text), mData)
LbTermino.Caption = mData
End Sub
USUARIO.EXCLUIDOS 26/04/2004 09:15:01
#22663 Resposta escolhida
Private Sub CalculoMeses()
Dim mData As Date
mData = Format$("01/01/2004","dd/mm/yyyy")
If IsNumeric(TxtMeses.Text) = True Then
mData = DateAdd("m", Int(TxtMeses.Text), mData)
End If
LbTermino.Caption = mData
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar