Resta de fechas
Publicado por Michael Elvis (16 intervenciones) el 04/04/2020 04:23:03
Buenas noches, por favor me podrían ayudar con el problema que tengo???
Ten un formulario con 2 textbox, en el primer textbox ingreso la fecha indicada (ejm. 14/09/1980) y a esto le quiero sumar o agregar 6 días, entonces en el segundo textbox me debería salir (18/09/1980) pero me sale la siguiente fecha 06/01/1900 la cual es incorrecta, la macro que tengo en el primer casillero es la siguiente:
*******************************************************
1 textbox es TxtFur y el 2 textbox es TxtFpparto
Estare muy agradecido por la ayuda.
Ten un formulario con 2 textbox, en el primer textbox ingreso la fecha indicada (ejm. 14/09/1980) y a esto le quiero sumar o agregar 6 días, entonces en el segundo textbox me debería salir (18/09/1980) pero me sale la siguiente fecha 06/01/1900 la cual es incorrecta, la macro que tengo en el primer casillero es la siguiente:
1
2
3
4
5
6
7
8
Private Sub TxtFur_AfterUpdate()
Dim fechaActual As Date
Dim fechaPosterior As Date
fechactual = CDate(TxtFur)
fechaPosterior = DateAdd("d", 7, fechaActual)
TxtFpparto.Value = fechaPosterior
End Sub
*******************************************************
1 textbox es TxtFur y el 2 textbox es TxtFpparto
Estare muy agradecido por la ayuda.
Valora esta pregunta
0
