If (WeekDay(vntDate) Mod 6 = 1) Then bResult = TrueElse bResult = False
Else
Err.Raise 13, "Error"
EndIf
IsWeekend = bResult
EndFunction
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Determinar si un dia es Fin de Semana" href="http://www.tutores.org/codigo/1587/" target="_blank">Determinar si un dia es Fin de Semana</a>
<!-- Final enlace Tutores.org -->