Como saber los viernes de un mes

Iniciado por karlosll, 14 Julio 2010, 14:24 PM

0 Miembros y 1 Visitante están viendo este tema.

karlosll

Estoy haciendo un proyecto en vb en access, y necesito saber si doy dos fechas que me saque los viernes que hay entre ellas.

Gracias de antemano ;)

Novlucker

Weekday, el resto es cuestión de recorrer el rango de fecha con un FOR.

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

Psyke1

Mira aqui te dejo un pequeño ejemplo, que te ayudara para lo que buscas:
Código (vb) [Seleccionar]

Option Explicit
Private Sub Form_Load()
   Dim sActualDay       As String
   Dim dActualDate      As Date
   Dim dFutureDate      As Date

   '#diferencia entre dos fechas en dias
   dActualDate = Date
   dFutureDate = CDate("20/7/2010")

   MsgBox DateDiff("d", dActualDate, dFutureDate)
   
   '#Dia de la semana
   Select Case DatePart("w", Now)
       Case 1: sActualDay = "domingo"
       Case 2: sActualDay = "lunes"
       Case 3: sActualDay = "martes"
       Case 4: sActualDay = "miercoles"
       Case 5: sActualDay = "jueves"
       Case 6: sActualDay = "viernes"
       Case 7: sActualDay = "sabado"
   End Select
   
   MsgBox "Hoy es : " & sActualDay
End Sub

La cosa seria hacer (como bien te dice Novlucker ;))  un bucle entre la fecha inicial y la final y comprobar que dia de la semana es...

Salu2! :P