lunes, 28 de enero de 2013

Busca entre 2 fechas los días habiles


Busca entre 2 fechas los días habiles, con la función Weekday:
1=domingo
7=sabado

Dim fecha_inicial As String = Me.Calendar1.SelectedDate
Dim fecha_final As String = Me.Calendar2.SelectedDate
Dim dias As Integer
Do While CDate(fecha_inicial) <= CDate(fecha_final)
   If Weekday(fecha_inicial) > 1 And Weekday(fecha_inicial) < 7 Then
       dias = dias + 1
   End If
   fecha_inicial = CDate(fecha_inicial).AddDays(1)

Loop
MsgBox("Días hábiles: " & dias)

Comparte