Calculo de vacaciones.

[jaimecsm]

Hola a todos.
Tengo que hacer un codigo que al ingresar la fecha de incio de vacaciones, Numeros de dias y la fecha de Fin de vacaciones me calcule las vacaciones del funcionario, sin contar los feriados, solo los dias legales de trabajo.
Gracias
Urgente

[JuanRAPerez]

dias feriados te refieres a los dias feriados de tu pais?
dias legales te refieres a los dias habiles de tu empresa l-m-m-j-v y/ o sabado ???

si ingresas fecha inicio y fecha fin puedes usar el datediff para obtener la cantidad de dias entre ambas fechas.

averoiguas cuantos domingos y sabados tenes y los restas si es que son "semana laboral"

etc

[jaimecsm]

Gracias por responder tan rapido.
Los feriados corresponden a mi pais(chile)
dias legales de trabajo de la empresa (lunes,martes,miercoles,jueves,viernes)
el codigo que tengo me calcula los dias pero estan metidos los feriados y festivos, ¿como puedo calcular sin estos feriados y fesstivos?

Function calculo(dTomados)
dim dTotal, fProp, preSol, posSol, dIngre, dVacaci
dim xSucursal, fecha1, fecha2

RutFun = form1.txtRut.value
fecha2 = CDate(form1.txtFecIni.value)
fecha1 = CDate(form1.txtFecIng1.value)

dTotal = DateDiff("d",fecha1,fecha2)
'msgbox "Dias Total " & dTotal

fProp = CInt(dTotal * (15/360))

preSol = fProp - dTomados

form1.txtPre.value = PreSol

dias = form1.txtDia.value

posSol = CLng(preSol) - CLng(dias)

form1.txtPos.value = posSol

if posSol >= 0 then
form1.txtResul.value = " Datos correctos "
else
form1.txtResul.value = " Datos incorrectos "
end if

End Function

[JuanRAPerez]

hace una tabla en donde pongas los feriados y festivos

tomas tus fecha inicial y tu fecha final

comparas dia y mes contra tu base de feriaos y festivos, si es igual haces un

contar_feriados_dentro

al final a tu total le restas contar_feriados_dentro