Error Weekday

lau71
18 de Noviembre del 2008
Hola, a ver si me podeis ayudar.
Tengo una función que me calcula los días que hay entre dos fechas descontándole los fines de semana.
Para ello utilizo el weekday pero no me funciona bien, me devuelve un valor para el día que no es el correcto.

Esto es lo que hago:

Public Function DiasHabiles(ByVal TxtFechaDesde As Date, ByVal TxtFechaHasta As Date) As Integer

Dim vbDias As Integer
Dim vbFecha As Date
Dim vbSuma As Integer

vbDias = Abs(TxtFechaDesde - TxtFechaHasta)
vbFecha = TxtFechaDesde
vbSuma = 0
For i = 0 To vbDias
vbDia = Weekday(Day(vbFecha))
If vbDia <> 7 And vbDia <> 1 Then
vbSuma = vbSuma + 1
MsgBox ("Sumo pues es día hábil")
End If
vbFecha = vbFecha + 1
Next i

DiasHabiles = vbSuma

End Function

Muchas gracias