Angesichts 52 Wochen in einem Jahr und fünf Wochentagen pro Woche , das allgemein als das gleiche wie Werktagen, sollte ein Jahr enthalten 52 mal fünf oder 260 Arbeitstage . Dies ist nicht immer wahr, wie gesehen , wenn Sie vergleichen Kalender für mehrere Jahre . Was war ein Werktag in einem Jahr nicht in die nächste sein . Feiertage Auswirkungen die Anzahl der Arbeitstage in einem Jahr als gut. Um eine genaue Zahl der Werktage erhalten , verwenden Sie diese kleine Visual Basic-Programm . Things You
Visual Basic 6.0
brauchen anzeigen Weitere Anweisungen
1

Erstellen Sie ein Formular in Visual Basic , um die Benutzeroberfläche für dieses Programm zu halten. Öffnen Sie Visual Basic , und wählen Sie "Standard-EXE " aus der Vorlage angezeigt. Auf die Kontrollen unten aus der "Toolbox" sehen Sie auf der linken Seite des Bildschirms aufgelistet Doppelklick . Wie jeder auf dem Formular angezeigt , klicken Sie darauf und ziehen Sie an den angegebenen Speicherort

Checkbox1 : . Drag nach links oben von formCheckbox2 : Ziehen Sie nach rechts oben von formLabel1 : Drag unten Checkbox1Textbox1 : Drag unten Checkbox2CommandButton1 : Zentrum unten oben controlsLabel2 : Zentrum unterhalb CommandButton1CommandButton2 : Zentrum unterhalb Label2
2

hinzufügen von Beschriftungen in den "Eigenschaften" -Box auf der rechten Seite des Bildschirms für jede dieser Kontrollen . Tun Sie dies , indem Sie auf jede , die bis bringt das ausgewählte Steuerelement im Feld "Eigenschaften" . Die Eigenschaft "Caption" erscheint in alphabetischer Reihenfolge in der Liste der Eigenschaften . Ändern Sie den Standard-Überschrift oder Text wie unten aufgeführt. Verwenden Sie die Ziehpunkte auf der Formular-Steuerelemente hinzugefügt , um den Text aufzunehmen. Verwenden Sie nicht die Anführungszeichen unten

Checkbox1 Bildunterschrift : . " Subtrahieren Federal Holidays ? " Checkbox2 Bildunterschrift: " Leap Year ? " Label1 caption : "Wie viele zusätzliche Feiertage " Textbox1 : Löschen Sie die Eigenschaft "Text" in die list.CommandButton1 : "Berechnen Werktage " . Ändern Sie den " (Name) " -Eigenschaft auf " Berechnen" Label2 : . Löschen Sie die Beschriftung , wenn present.CommandButton2 : . "Exit"
3

auf den "Berechnen Werktage " Doppelklick -Taste, um das Codefenster zu öffnen . Wenn Sie diese beiden Codezeilen Display tun standardmäßig " Private Sub Calculate_Click ()" und "End Sub ". Bilden Sie den ersten Teil der Codierung Werktagen , indem Sie die folgenden Zeilen zwischen diesen beiden Vorgabezeilen berechnen :

Dim EndDate , CURDATE Wie DateDim BusDay , TotBusDays , CalcYear Wie IntegerTotBusDays = 0CalcYear = InputBox (" Welches Jahr ? " ) CURDATE =" 1/1 /" & CalcYearEndDate =" 31/12 /" & CalcYearDo Bis CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select Case BusDayCase " 2 " bis" 6 " = TotBusDays TotBusDays + 1case " 1 " 'Do nothingCase " 2 " " Weißt nothingEnd SelectCurDate = DateAdd ( "d" , 1, CURDATE ) Schleife
4

Fügen zusätzlichen Code für den Urlaub zu kompensieren. Zehn bundesweiten Feiertagen bedeuten in der Regel 10 Arbeitstage weniger , auch wenn der Urlaub auf ein Wochenende fällt , weil die meisten Arbeitgeber entweder ein Freitag oder Montag gewähren Entschädigung. Sollte dies nicht in Ihrem Fall zutreffen , ändern Sie den Wert des "Wie viele zusätzliche Feiertage " Eingabefeld , wenn das Programm läuft . Zum Beispiel, wenn Sie nicht bekommen, für einige Tage Urlaub , zu reduzieren oder geben Sie eine negative Zahl in diesem Feld . Geben Sie den folgenden Code direkt unter der letzten Zeile in Schritt 3

Wenn Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End IFIF Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IFIF Text1.Text <> " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption =" Es sind " & TotBusDays & " Arbeitstage in " & CalcYear
5

Gib dem Benutzer eine einfache Möglichkeit, das Programm zu beenden . Auf dem Formular , auf dem "Exit "-Taste doppelklicken. Geben Sie das Wort "Ende" zwischen dem " Private Sub Command2_Click ()" und "End Sub " sehen Sie in der Code-Abschnitt .
6

Klicken Sie auf dem Formular selbst und ändern Sie die Caption -Eigenschaft des Formulars zu lesen "Berechnen Business- Days" . Klicken Sie auf " Datei " und dann "Save Project As . " Wählen Sie einen Ordner für das Programm und nennen Sie das Projekt "Berechnen Business- Days" . Klicken Sie auf " OK ", und drücken Sie dann die Taste "F5 ", um das Programm auszuführen.