Calculo de vacaciones.

[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