Colocar fecha de vencimiento en días hábiles en forma automatica
publicado
hola:
Tengo una consulta estoy haciendo una macro con formulario el cual ingreso datos y se traspasa a una planilla excel, pero presentó la siguiente consulta para ver si me pueden ayudar.
En un textbox tengo una fecha de validación, y en otro tengo la fecha de vencimiento de ésta última es el resultado, ya que debe contar 5 días y que estos sean hábiles ( no considerar feriados, sábados y domingos), y que no sea modificable por el usuario, salvo si cambia la fecha de validación.
Mi consulta es como colocar fecha de vencimiento en forma automática en el formulario y que se traspase a la planilla de excel con estas condiciones:
Por ejemplo:
textbox1+5 días hábiles= textbox2
02-06-2014+5 días hábiles=09-06-2014
Lo que he realizado es esto, pero me arroja error y más encima no distingue los feriados, sábados y domingo.
hola:
Tengo una consulta estoy haciendo una macro con formulario el cual ingreso datos y se traspasa a una planilla excel, pero presentó la siguiente consulta para ver si me pueden ayudar.
En un textbox tengo una fecha de validación, y en otro tengo la fecha de vencimiento de ésta última es el resultado, ya que debe contar 5 días y que estos sean hábiles ( no considerar feriados, sábados y domingos), y que no sea modificable por el usuario, salvo si cambia la fecha de validación.
Mi consulta es como colocar fecha de vencimiento en forma automática en el formulario y que se traspase a la planilla de excel con estas condiciones:
Por ejemplo:
textbox1+5 días hábiles= textbox2
02-06-2014+5 días hábiles=09-06-2014
Lo que he realizado es esto, pero me arroja error y más encima no distingue los feriados, sábados y domingo.
Private Sub cvencimiento_Change()
Dim fecha_vencimiento As Date
Dim intervalo As Date
intervalo = Format(intervalo, "05-mm-yyyy")
fecha_vencimiento = cvalidación + intervalo
End Sub
pruebaahorasi.zip