Access - Días Laborables entre dos fechas

 
Vista:

Días Laborables entre dos fechas

Publicado por lucho (147 intervenciones) el 30/09/2010 00:49:30
Saludos a todos:
En un formulario tengo un comando lleva por nombre Calculo, asignado con el siguiente código
Private Sub calculo_Click()
Dim fechaant As Date
Dim fechanuev As Date
Dim diferenc As Integer
Dim difenaños As Integer

fechaant = InputBox("Escribe la fecha anterior")
fechanuev = InputBox("escribe la fecha nueva")
diferenc = fechanuev - fechaant
difenaños = (fechanuev - fechaant) / 365
fechaanterior = fechaant
fechanueva = fechanuev
diferencia = diferenc
diferenciaenaños = difenaños
End Sub
Hasta aquí no tengo problemas, mi pregunta es qué código me falta para calcular DIAS LABORABLES ENTRE DOS FECHAS Ejem:
01/09/10- 30/09/10 son 21 días laborables (Fecha de México) ya que el 16 de sep. es descanso obligatorio por la independencia
Muchas gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Días Laborables entre dos fechas

Publicado por Chea (1015 intervenciones) el 30/09/2010 08:23:03
Échale un vistazo a este enlace: http://jbengoechea.com/laborables.htm

Saludos
José Bengoechea Ibaceta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Días Laborables entre dos fechas

Publicado por lucho (147 intervenciones) el 30/09/2010 18:19:02
Chea, muchas gracias
Considaré tu sugerencia
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar