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
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


0