Calcular número de festivos entre 2 fechas
Publicado por Miguel (1 intervención) el 24/12/2018 19:19:38
Buenas noches
Tengo la siguiente lista de festivos y quiero hacer una función que me diga, para 2 parámetros de entrada tipo fecha, cuantos festivos hay entre los mismos:
01/01/2017
06/01/2017
15/02/2017
13/04/2017
14/04/2017
15/04/2017
16/04/2017
Mis dudas son:
1. Como puedo hacerlo sin crear un rango de fechas "festivos"
2. Como se podría hacer creando dicho rango
Mi intento es el siguiente, pero el resultado que me da es 0:
Mil gracias!!
Tengo la siguiente lista de festivos y quiero hacer una función que me diga, para 2 parámetros de entrada tipo fecha, cuantos festivos hay entre los mismos:
01/01/2017
06/01/2017
15/02/2017
13/04/2017
14/04/2017
15/04/2017
16/04/2017
Mis dudas son:
1. Como puedo hacerlo sin crear un rango de fechas "festivos"
2. Como se podría hacer creando dicho rango
Mi intento es el siguiente, pero el resultado que me da es 0:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Contarfestivos(Fechainicio As Date, Fechafin As Date) As Integer
Dim Date1 As Date
Dim Date2 As Date
Dim contfest As Integer
contfest = 0For Date1 = Fechainicio To FechafinIf Date1 = #1/1/2017# Or Date1 = #6/1/2017# Or Date1 = #2/15/2017# Or Date1 = #4/13/2017# _
Or Date1 = #4/14/2017# Or Date1 = #4/15/2017# Or Date1 = #4/16/2017# Then
contfest = contfest + 1
Else
End If
Next
contfest = ContarfestivosEnd Function
Mil gracias!!
Valora esta pregunta
0