Código de Access - Días hábiles comprendidos entre dos fechas

Imágen de perfil

Días hábiles comprendidos entre dos fechasgráfica de visualizaciones


Access

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 17 de Agosto del 2017 por Administrador
838 visualizaciones desde el 17 de Agosto del 2017. Una media de 35 por semana
Función que devuelve los días hábiles comprendidos entre dos fechas sin contemplar los días festivos.

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Actualizado el 05 de Octubre del 2017 (Publicado el 17 de Agosto del 2017)gráfica de visualizaciones de la versión: Versión 1
839 visualizaciones desde el 17 de Agosto del 2017. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella


Forma parte de La página Web de Emilio Sancha
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'*******************************************************************************
'* Devuelve el número de días hábiles comprendidos entre dos fechas
'* NO contempla días festivos
'* uso: DiasHabiles ("01/01/03", "01/02/03")
'* ESH 15/05/03 20:00 
'*******************************************************************************
Public Function DiasHabiles(strFechaInicio As String, strFechaFin As String) As Long
	Dim datFechaInicio As Date, _
	datFechaFin As Date
 
	datFechaInicio = CDate(strFechaInicio)
	datFechaFin = CDate(strFechaFin)
	Do While datFechaInicio <> datFechaFin
	' según la fecha de inicio se mayor o menor que la de fin
		If datFechaInicio >= datFechaFin Then
			If Weekday(datFechaFin, vbMonday) < 6 Then DiasHabiles = DiasHabiles + 1
			datFechaFin = datFechaFin + 1
		Else
			If Weekday(datFechaInicio, vbMonday) < 6 Then DiasHabiles = DiasHabiles + 1
			datFechaInicio = datFechaInicio + 1
		End If
	Loop
End Function	' DiasHabiles



Comentarios sobre la versión: Versión 1 (1)

JOSE FLORENCIO
06 de Octubre del 2017
estrellaestrellaestrellaestrellaestrella
a ver si la gente se anima y pone más cosas como esta que son basicas en cualquier aplicacióm
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s4118