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

Publicado el 17 de Agosto del 2017 por Administrador (711 códigos)
1.806 visualizaciones desde el 17 de Agosto del 2017
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 5 de Octubre del 2017 (Publicado el 17 de Agosto del 2017)gráfica de visualizaciones de la versión: Versión 1
1.807 visualizaciones desde el 17 de Agosto del 2017
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)

6 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s4118