Visual Basic - Sumar un entero a una fecha

Life is soft - evento anual de software empresarial
   
Vista:

Sumar un entero a una fecha

Publicado por Alberto (76 intervenciones) el 23/03/2018 10:14:52
Lo he visto en varios sitios de la red, muy fácil, pero... no me funciona.
TextVcto = TextIni + 5
me da "Error en tiempo de ejecución. No coinciden los tipos."
he visto en todos sitios que esto debería dar como resultado por ejemplo
TextIni = 10/10/2018
TextVcto = 15/10/2018 sin más problema.
Los campos están definidos TextIni y TextVcto como fecha corta y en las textBox también como "fecha" y donde entro el "5" es un campo que está definido como entero tanto en la BD como en la textbox.
¿Dónde está el problema? Veo el código y me aparece bien TextIni = "10/10/2018" y TextVcto = "15/10/2018".
Por ver si conseguía que se callara el protestón he "comentado" el On Error Resume Next y las líneas que se relacionan con el error. Es igual, erre que erre: "No coinciden los tipos". He visto que con Visual net se utiliza Fecha2 = Fecha1.AddDays(5) pero yo utilizo el VB 6.0 y no me admite lo de AddDays(). No sé si debería haber puesto en vez de TextIni un MaskEdBox, pero eso no lo he visto en ningún sitio.
¿Alguna solución? Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Sumar un entero a una fecha

Publicado por Antoni Masana (282 intervenciones) el 23/03/2018 11:43:55
Dele un vistazo a esto

1
2
3
4
5
6
7
8
Sub Sumar_Dias()
    Dim TexIni As Date, TexVto As Date, Num As Integer
 
    TexIni = DateValue("10/03/2018")
    TexVto = TexIni + 5
 
    MsgBox TexIni & " - " & TexVto
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
3
Comentar

Sumar un entero a una fecha

Publicado por Alberto (76 intervenciones) el 23/03/2018 12:11:46
Muchísimas gracias. Voy allá.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad