Visual Basic - Determinar si un dia es Fin de Semana
Códigos Visual Basic
Cuando la funcion detecta que el dia actual es fin de semana muestra un mensaje, en este caso seria True.
Tutores.org
Mostrando Codigo - Visual Basic
CODIGO
// Codigo ofrecido por Tutores.org
- Public Function IsWeekend(ByVal vntDate As Variant) As Boolean
- Dim bResult As Boolean
- If IsDate(vntDate) Then
- If (WeekDay(vntDate) Mod 6 = 1) Then bResult = True Else bResult = False
- Else
- Err.Raise 13, "Error"
- End If
- IsWeekend = bResult
- End Function
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 -->
<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 -->
COMENTARIOS