Gezien 52 weken in een jaar en vijf werkdagen per week , over het algemeen beschouwd als het zelfde als werkdagen , moet een jaar 52 keer vijf , of 260 , werkdagen bevatten . Dit is niet altijd waar zoals te zien wanneer u kalenders vergelijken voor meerdere jaren . Wat was een werkdag in een jaar mag niet worden in de volgende . Vakantie invloed het aantal werkdagen in een jaar ook. Om een meer exacte aantal werkdagen, gebruik deze kleine Visual Basic -programma . Wat je nodig hebt Visual Basic 6.0 Toon Meer Aanwijzingen 1 Maak een formulier in Visual Basic om de gebruikersinterface te houden voor dit programma . Open Visual Basic en selecteer " Standard EXE " uit de sjabloon display. Dubbelklik op de hieronder vermelde van de " Toolbox" zie je aan de linkerkant van het scherm controles . Zoals een ieder wordt op het formulier , klik erop en sleep naar de opgegeven locatie CheckBox1 : . Sleep om linkerbovenhoek van formCheckbox2 : Sleep naar rechts boven formLabel1 : Drag hieronder Checkbox1Textbox1 : Drag hieronder Checkbox2CommandButton1 : Centrum hieronder boven controlsLabel2 : Centrum hieronder CommandButton1CommandButton2 : Centrum hieronder Label2 kopen van 2 bijschriften toe in het vak " Eigenschappen " op de rechterkant van het scherm voor elk van deze controles . Doe dit door te klikken op ieder , die tot brengt het geselecteerde besturingselement in het vak " Eigenschappen " . De " Caption " eigenschap wordt weergegeven in alfabetische volgorde in de lijst eigenschappen . Wijzig de standaard bijschrift of de tekst zoals hieronder vermeld . Gebruik het slepen handgrepen op het formulier stuurt naar de toegevoegde tekst tegemoet . Gebruik niet de aanhalingstekens hieronder CheckBox1 bijschrift : . " Trek Federale Vakantie ? ' Checkbox2 bijschrift : " Schrikkeljaar ? " Label1 bijschrift : " Hoeveel extra vakantiedagen " TextBox1 : Verwijder de " Text " eigenschap in de list.CommandButton1 : "Bereken werkdagen " . Verander de " ( naam ) " eigenschap in op " Bereken " Label2 : . Verwijder het bijschrift als present.CommandButton2 : . " Exit" 3 Dubbelklik op de "Bereken Werkdagen " knop om het venster code te openen . Wanneer u dit doet twee regels code beeldscherm standaard , " Private Sub Calculate_Click ( ) " en " End Sub . " Het opzetten van het eerste deel van de codering op werkdagen te berekenen door het invoeren van de volgende regels tussen deze twee standaard lijnen : Dim EndDate , CURDATE Zoals DateDim BusDay , TotBusDays , CalcYear Zoals IntegerTotBusDays = 0CalcYear = InputBox ( " Welk jaar ? " ) CURDATE = " 1/1 /" & CalcYearEndDate = " 31/12 /" & CalcYearDo Tot CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select Case BusDayCase " 2 " To " 6 " TotBusDays = TotBusDays + 1Case " 1 " ' Do nothingCase " 2 " ' Weet nothingEnd SelectCurDate = DateAdd ( " d " , 1 , CURDATE ) Loop 4 Voeg extra code om te compenseren voor een vakantie . Tien federale feestdagen betekenen meestal 10 minder werkdagen , zelfs wanneer de feestdag valt op een weekend, want de meeste werkgevers kennen ofwel een vrijdag of maandag in compensatie . Als dit niet van toepassing is in uw geval , wijzigen van de waarde van de " Hoeveel extra vakantiedagen " entry vak wanneer het programma wordt uitgevoerd . Bijvoorbeeld , als je niet dagen uitstappen voor een aantal feestdagen , verminderen of voert u een negatief getal in die doos . Typ de volgende code direct onder de laatste regel in stap 3 Als Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End IFIF Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IFIF Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption = " Er zijn " & TotBusDays & " werkdagen in " & CalcYear 5 Geef de gebruiker een eenvoudige manier om het programma te verlaten . Op het formulier , dubbelklikt u op de "Exit " knop . Voer het woord "End " tussen de " Private Sub Command2_Click ( ) " en " End Sub " zie je in de sectie code . 6 Klik op het formulier zelf en verander de eigenschap Bijschrift van de vorm te lezen "Bereken werkdagen " . Klik op " Bestand " en vervolgens " Project opslaan als . " Koos voor een map voor het programma en de naam van het project "Bereken Werkdagen " . Klik op " OK" en vervolgens op " F5 " om het programma uit te voeren .
|