Visual Basic - si FECHA="Domingo"

CORDIAL SALUDO

ESPERO QUE ME PUEDAN AYUDAR NECESITO SABER SI PARTIENDO DE UNA FECHA 02/03/2007 PUEDO SABER SI ES DOMINGO.

SI HAY ALGUNA FORMA ESPERO QUE ME LA PUEDAN DECIR, GRACIAS POR SU COLABORACION.

Hola, Hector!!

Lo puedes ahcer de esta manera.

Solución 1:

Public Function esFinSemana(ByVal fecha As Variant) As Boolean
If IsDate(fecha) Then
If (Weekday(fecha) = 1) Or (Weekday(fecha) = 7) Then
esFinSemana = True
End If
End If
End Function

Solución 2 :

fecha = Format(Date, "dddd")
If fecha = "Domingo" Then
MsgBox "Sí. Es domingo, vamos a la playa"
End If

Escoje, cual de las 2 te gusta mas.

Espero te ayude.

Saludos!!!

' *** [email protected]

Dim msgErr as String
Dim dia As VbDayOfWeek
dia = Weekday(CDate(txtFecha.Text))


Select Case dia
Case Is = vbSunday
msgErr = "DOMINGO ..."
Case Is = vbSaturday
msgErr = "SABADO ..."
End Select

If dia = vbSunday Or dia = vbSaturday Then
MsgBox "La fecha ingresada corresponde a un dia " & msgErr
End If


Espero te sirva, lo extraje de una funcion que tengo para validar ingreso de fecha.
Pronto subiré un OCX de texto para validar fechas (Fechas no inferiores a la fecha actual, no mayores a una fecha X, No en dias Sabados, o Domingos, o fechas de feriados, a traves de una base de datos de feriados). Asi que esten atentos a los controles q subire pronto.

Adios