08/06/2004, 15:16
|
| | | Fecha de Ingreso: septiembre-2003 Ubicación: Trujillo
Mensajes: 23
Antigüedad: 20 años, 8 meses Puntos: 0 | |
prueba esto:
Private Sub dtpFecha_Change()
Dim f As Date
f = dtpFecha.Value
Select Case Weekday(f, vbSunday)
Case 2 To 6
Case Else
' Fecha no valida
End Select
End Sub |