Dim MiFecha, MiDíaSemana
MiFecha = #12 febrero 1969# ' Asigna una fecha.
MiDíaSemana = Weekday(MiFecha) ' MiDíaSemana contiene 4 ya que
' MiFecha es un miércoles.
Si acaso hicieras esto:
Dim Fecha as Date
Dim Numero as Integer
La función DATE te proporciona la fecha del sistema, supongamos que es la actual 18/04/2006, desconozco el formato en cómo te la presente. Con eso puedes obtener el número de día de la fecha actual
Numero = WeekDay(Date)
Número será igual a 3 (0-domingo, 1-lunes, 2-martes,......7-sábado)
Como saber si el día es domingo o sábado, sencillo...
If WeekDay(Date)=0 or WeekDay(Date)=7 Then
msgbox "Es fin de semana"
End If
Si quieres obtener el número de días hábiles entre un rango de 2 fechas, se me ocurre que tienes que hacer un bucle que vaya desde la fecha inicial hasta la fecha final, ve comparando día por día, incrementa un contador siempre y cuando el día evaluado no sea dábado ni domingo ni días festivos que previamente tendrás que definir.
Espero que esto te sirva un poco, suerte.