Dados 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 hábiles . Esto no siempre es cierto como se ve al comparar los calendarios de varios años . Lo que era un día de negocios en un año puede no serlo en otro. Impacto días 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 . Cosas que necesitará
Visual Basic 6.0
Mostrar más instrucciones
1

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

Checkbox1 : . Arrastre hacia arriba a la izquierda de formCheckbox2 : Arrastre a la derecha superior de formLabel1 : Drag abajo Checkbox1Textbox1 : Drag abajo Checkbox2CommandButton1 : Centro de continuación arriba controlsLabel2 : Centro abajo CommandButton1CommandButton2 : Centro abajo Label2
2

Añadir subtítulos en el cuadro "Propiedades " a la derecha de la pantalla para cada uno de estos controles. Haga esto haciendo clic en cada uno, que trae a colación el control seleccionado en el cuadro " Propiedades" . La propiedad " Leyenda " 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 en el formulario de Control para acomodar el texto añadido. No utilice las comillas a continuación

Checkbox1 leyenda: ". Restar días de fiesta federales ? " CheckBox2 leyenda: " Año bisiesto ? " Label1 subtítulo: " ¿Cuántos días de fiesta adicionales " TextBox1 : Eliminar la propiedad "Texto" en el list.CommandButton1 : "Calcular días Hábiles" . Cambiar el " ( nombre)" propiedad de " Calcular" Label2 : . Eliminar el título si present.CommandButton2 : . "Exit "
3

Haga doble clic en el " Cálculo de Días Hábiles" botón para abrir la ventana de código . Al hacer esto dos líneas de visualización del código de forma predeterminada, "Private Sub Calculate_Click ()" y " End Sub ". Configure 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 predeterminadas:

EndDate Dim , CURDATE Como DateDim BusDay , TotBusDays , CalcYear Como IntegerTotBusDays = 0CalcYear = InputBox ( " ¿En qué año ? ") CURDATE = " 1/1 /"& CalcYearEndDate =" 12/31 /"& CalcYearDo Hasta CURDATE = EndDateBusDay = Format ( CURDATE , " w ") Select Case BusDayCase " 2 " a" 6 " TotBusDays = TotBusDays + 1 caso " 1 " ' No nothingCase " 2 ", " hacer nothingEnd SelectCurDate = DateAdd ("d " , 1 , CURDATE ) Loop
4

agregar código adicional para compensar los días festivos. Diez días de fiesta 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 lunes de compensación. Si esto no se aplica en su caso , modificar el valor de la "¿Cuántos días de fiesta adicionales " cuadro de entrada cuando el programa se ejecuta . Por ejemplo, si usted no recibe días de descanso 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 = vbChecked ThenTotBusDays = TotBusDays - . 10End IFIF Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IFIF Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption =" No " y TotBusDays y " día de negocios en "& CalcYear
5

Ofrece al usuario una forma fácil de salir del programa. En el formulario, haga doble clic en el botón " Salir". Escriba la palabra "End" entre el "Sub Command2_Click Privado ()" y "End Sub " que se ven en la sección de código .
6

Haga clic en el propio formulario y cambie la propiedad Caption del formulario para leer " Calcular días Hábiles" . Haga clic en "Archivo " y luego "Guardar proyecto como. " Elija una carpeta para el programa y el nombre del proyecto "Calcular Días Hábiles" . Haga clic en " Aceptar", y luego presione "F5 " para ejecutar el programa.