Tema: Como calcular dias hábiles en visual basic 6 y mysql.
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 16/12/2009, 08:26
pana99
 
Fecha de Ingreso: enero-2007
Ubicación: 9 de julio
Mensajes: 111
Antigüedad: 17 años, 4 meses
Puntos: 2
Respuesta: Como calcular dias hábiles en visual basic 6 y mysql.
Mira, no encontre ninguna funcion que haga eso.
Te paso esto que arme, solo faltaria ver el tema de los feriados que habria que contemplarlo en el while

Espero te sirva

Código: 
Dim Ini As Date, Fin As Date
    Ini = "10/12/2009"
    Fin = "16/12/2009"
    Cant = 0
    While Ini <> Fin
        If (Weekday(Ini) <> 1) And (Weekday(Ini) <> 7) Then
        Cant = Cant + 1
        End If
        Ini = DateAdd("D", 1, Ini)
    Wend
    MsgBox Cant

End Sub