Cómo calcular los días hábiles en Visual Basic

Teniendo en cuenta las 52 semanas en un año y cinco días laborables por semana, generalmente se considera la misma como días laborales, un año debe contener 52 veces cinco, o 260, días laborables. Esto no siempre es cierto como se ve cuando se compara calendarios de varios años. Lo que era un día laborable en un año puede no estar en la próxima. Vacaciones impacto en el número de días hábiles en un año también. Para obtener un número más exacto de días hábiles, utilice este pequeño programa de Visual Basic.

Instrucciones

1 Crear un formulario en Visual Basic para mantener la interfaz de usuario para este programa. Abra Visual Basic y seleccione "EXE estándar" de la pantalla de plantilla. Haga doble clic en los controles enumerados a continuación de la "caja de herramientas" que aparece a la izquierda de la pantalla. A medida que aparece cada uno en el formulario, haga clic en él y arrastrarlo a la ubicación especificada.

CheckBox1: Arrastre a la izquierda superior de la forma
Checkbox2: Arrastre a la derecha superior de la forma
Label1: Arrastre a continuación CheckBox1
Cuadrodetexto1: Arrastre a continuación Checkbox2
CommandButton1: Centro debajo controles anteriores
Label2: Centro debajo CommandButton1
CommandButton2: Centro debajo Label2

2 Añadir títulos en el cuadro "Propiedades" en la derecha de la pantalla para cada uno de estos controles. Para ello, al hacer clic en cada uno, lo que hace aparecer el control seleccionado en el cuadro "Propiedades". La propiedad "Caption" aparece en orden alfabético en la lista de propiedades. Cambiar el título predeterminado o el texto que aparece a continuación. Utilice el control de arrastre sobre los controles de formulario para acomodar el texto añadido. No utilice las comillas a continuación.

CheckBox1 leyenda: "Sustracción de fiesta federales?"
Checkbox2 leyenda: "año bisiesto?"
epígrafe label1: "¿Cuántos días de fiesta adicionales?"
Cuadrodetexto1: Eliminar la propiedad "Texto" en la lista.
CommandButton1: "Calcular días laborables". Cambiar el "(Nombre)" propiedad de "Calcular".
Label2: Eliminar el subtítulo si está presente.
CommandButton2: "Salir".

3 Haga doble clic en el botón "Calcular días hábiles" para abrir la ventana de código. Al hacer esto dos líneas de visualización del código por defecto, "Private Sub Calculate_Click ()" y "End Sub". Establecer la primera parte de la codificación para calcular días hábiles mediante la introducción de las siguientes líneas entre estas dos líneas por defecto:

Dim EndDate, CURDATE Como Fecha
Dim BusDay, TotBusDays, CalcYear como número entero
TotBusDays = 0
CalcYear = InputBox ( "¿En qué año?")
CURDATE = "1/1 /" & CalcYear
EndDate = "12/31 /" & CalcYear
Hacer hasta CURDATE = EndDate
BusDay = Format (CURDATE, "w")
Seleccione la caja BusDay
Caso "2" a "6"
TotBusDays = TotBusDays + 1
Caso 1"
'Hacer nada
Caso "2"
'Hacer nada
End Select
CURDATE = DateAdd ( "d", 1, CURDATE)
Lazo

4 Añadir un código adicional para compensar los días festivos. Diez días festivos federales por lo general significa menos 10 días de trabajo, incluso cuando el día festivo cae en un fin de semana porque la mayoría de los empleadores conceden viernes o el lunes en la compensación. Si esto no se aplica en su caso, modificar el valor del cuadro de entrada "¿Cuántos días de fiesta adicionales" cuando el programa se ejecuta. Por ejemplo, si usted no recibe los días libres para unas vacaciones, reducir o introducir un número negativo en esa caja. Escriba el siguiente código justo debajo de la última línea en el paso 3.

Si Check1.Value = Entonces vbChecked
TotBusDays = TotBusDays - 10
Terminara si
Si Check2.Value = Entonces vbChecked
TotBusDays = TotBusDays + 1
Terminara si
Si Text1.Text <> "" Entonces
AddHol = Text1.Text
TotBusDays = TotBusDays - AddHol
Terminara si
Label1.Caption = "No" y TotBusDays y "días hábiles en" & CalcYear

5 Dar al usuario una forma fácil de salir del programa. En el formulario, haga doble clic en el botón "Salir". Introducir la palabra "Fin" entre la "Private Sub Comando2_Click ()" y "End Sub" que se ve en la sección de código.

6 Haga clic en el propio formulario y cambie la propiedad Caption de la forma de leer "Calcular Días hábiles". Haga clic en "Archivo" y luego "Guardar proyecto como". Elegir una carpeta para el programa y el nombre del proyecto "Calcular días laborables". Haga clic en "Aceptar", y pulse la tecla "F5" para ejecutar el programa.

Consejos y advertencias

• Para hacer esto en un programa ejecutable utilizable sin cargar Visual Basic, haga clic en "Archivo" y luego "Hacer negocios Calcular Days.exe." Elija dónde guardar esto y luego haga clic en "Aceptar".
• La contabilización de todas las variables que afectan días hábiles, que no se producen de forma fácilmente predecible o incluso todos los años, requiere más complicado de codificación más allá del alcance de este artículo. Por esta razón, este sencillo programa no se recomienda para situaciones financieras o jurídicas importantes