Visual Basic - MonthView

Los vuelvo a molestar para realizar la siguiente consulta: en el proyecto en el cual estoy trabajando necesito mostrar en un Monthview los feriados cargados en una tabla, destacándolos de los días hábiles de alguna manera, cómo puedo hacerlo? Muchas gracias!!

Hola Karina :
Revisa este codigo, tal vez te ayude, es de DINA, me salvo la vida en su momento...........

****** Cálculo de Días Laborales

Private Function DiasLaborales()
Dim j, k As Integer

Dim FechaInicio As Date
Dim FechaFin As Date
Dim FechaAux As Date

Dim Diferencia As Integer

FechaInicio = "03/01/2002" 'FechaInicio = txtFechaInicio
FechaFin = "04/01/2002" 'FechaFin = txtFechaFin

Diferencia = DateDiff("d", FechaInicio, FechaFin) + 1


k = 0
FechaAux = FechaInicio
For j = 1 To Diferencia
If Weekday(FechaAux, vbMonday) = 7 Then 'Pregunto si es Domingo
ElseIf Weekday(FechaAux, vbMonday) = 6 Then 'Pregunto si es Sabado
ElseIf Feriado(FechaAux) Then 'Pregunto si es Feriado
Else
k = k + 1
End If
FechaAux = DateAdd("d", 1, FechaAux)
Next j
DiasLaborales k

End Function

Private Function Feriado(FechaAux As Date) As Boolean 'TIENES QUE CREAR UNA TABLA EN ACCESS CON LOS DÍAS FERIADOS
' EJ:01/01/04
CREA UN RECORDSET A NIVEL GLOBAL
Feriado = False

Grs9.MoveFirst
While Not Grs9.EOF And Not Feriado
If FechaAux = Grs9!Fecha Then
Feriado = True
Exit Function
End If
Grs9.MoveNext
Loop
End Function

esta otra funcion es la segunda 2, parece que aqui esta restringido el numero de lineas

****** Cálculo de Meses Laborales
Private Sub MesesLaborales()
Dim j As Integer

Dim FechaInicio As Date
Dim FechaFin As Date
Dim FechaAux As Date

Dim Diferencia As Integer

FechaInicio = "03/01/2002" 'FechaInicio = Formulario.txtFechaInicio
FechaFin = "01/01/2003" 'FechaFin = Formulario.txtFechaFin

Diferencia = DateDiff("m", FechaInicio, FechaFin) + 1
FechaAux = "01/" & Month(FechaInicio) & "/" & Year(FechaInicio)
For j = 1 To Diferencia
MsgBox Format(Month(FechaAux) & "/" & Year(FechaAux), "mm/yyyy") '---> Lista
'lista.additem(Format(Month(FechaAux) & "/" & Year(FechaAux), "mm/yyyy"))
FechaAux = DateAdd("m", 1, FechaAux)
Next j
End Sub

Hola, Disculpen soy novato en esto pero aprendo rápido

favor indicarme, tengo una tabla con los campos feriados y observaciones
quier el MonthView cargue los días feriados que tengo en la tabla

pregunta cual seria el codigo y sus propiedades

por favor les agradecería mucho su apoyo, esta aplicación la tengo en access
y el calendario es anual o sea 12 meses

Saludes