FAQ's del foro de ASP

[NA1TM3R]

Obtener Fecha Límite [sólo días hábiles]

Pequeña función que sirve para cualquier objeto que tenga un máximo de días, claro . . . días hábiles . . .

Código ASP:

'WeekDay arroja para Sábado: 7 y para Domingo: 1
 
Function DiasLab(Fec,Days)
    For x = 1 To Days*2
        MyDate = DateAdd("d",x,Fec)
        If Not(WeekDay(MyDate) = 1 Or WeekDay(MyDate) = 7) Then
            y = y + 1
        End If
        If Not(y = Days) Then
            z = z + 1
        Else
            Exit For
        End If
    Next
    DiasLab = DateAdd("d",z+1,Fec)
End Function
 
Response.Write DiasLab("2009-10-27",8)
 

Sé que habrá algún método mas complejo por ahí, pero hasta ahorita no lo han compartido . . .

Nos seguimos leyendo . . .