Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: karlosll en 14 Julio 2010, 14:24 PM

Título: Como saber los viernes de un mes
Publicado por: karlosll en 14 Julio 2010, 14:24 PM
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 ;)
Título: Re: Como saber los viernes de un mes
Publicado por: Novlucker en 14 Julio 2010, 14:31 PM
Weekday (http://msdn.microsoft.com/es-es/library/82yfs2zh%28VS.80%29.aspx), el resto es cuestión de recorrer el rango de fecha con un FOR.

Saludos
Título: Re: Como saber los viernes de un mes
Publicado por: Psyke1 en 14 Julio 2010, 15:00 PM
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