public Function SeEstudiaElDia(byval Dia as DiasSemana, byval Carrera as string) as boolean
dim plan as long
' se omite el código para obtener el dato planning de la tabla carreras, en cualquier caso se usaría el nombre de la carrera (o mejor el id) para obtener el planning
Plan= x ' como se señala en la nota en cabeza
if dia < 128 and dia >0 then ' comprobamos que día está dentro de los límites aceptables, para no perder tiempo investigando algo que sabemos que está fuera de rango
SeEstudiaElDia = (( dia or Plan) = Plan)
end if
end function