Givet 52 veckor på ett år och fem vardagar per vecka , allmänt anses vara samma som arbetsdagar , ska ett år innehålla 52 gånger fem , eller 260 , bankdagar . Detta är inte alltid sant som sett när du jämför kalendrar för flera år . Vad var en arbetsdag under ett år får inte vara i nästa . Semester påverkar antalet arbetsdagar i ett år också . För att få ett mer exakt antal arbetsdagar , använd denna lilla Visual Basic-program . Saker du behöver Review, Visual Basic 6.0
Visa fler instruktioner
1
Skapa ett formulär i Visual Basic för att hålla användargränssnittet för programmet . Öppna Visual Basic och välj " Standard EXE " från mallen displayen . Dubbelklicka på nedan listade kontroller från " Toolbox " ni ser till vänster på skärmen . Som var och en visas i formuläret , klicka på den och dra till den angivna platsen
Checkbox1 : . Dra till övre vänstra formCheckbox2 : Dra till höger i formLabel1 : Drag under Checkbox1Textbox1 : Drag under Checkbox2CommandButton1 : Centrum nedan över controlsLabel2 : centrum nedan CommandButton1CommandButton2 : Center under Label2
2
Lägg till bildtexter i " Egenskaper " rutan till höger på skärmen för varje av dessa kontroller . Gör detta genom att klicka på respektive , som tar upp den markerade kontrollen i " Egenskaper " rutan . Den " Caption " egendom visas i alfabetisk ordning i fastigheterna listan . Ändra den förvalda bildtext eller text som anges nedan . Använd dra handtagen på formuläret kontrollerar att rymma läggas text . Använd inte citattecken nedan
Checkbox1 bildtext : . " Subtrahera federala helgdagar ? " Checkbox2 bildtext : " Leap Year ? " Label1 bildtext : "Hur många fler helgdagar " TextBox1 : Stryk " Text " egendom i den list.CommandButton1 : " Beräkna Business Days " . Ändra " ( namn ) " egendom till " Beräkna " Label2 : . Radera bildtexten om present.CommandButton2 : . " Exit " Addera 3
Dubbelklicka på "Beräkna Business Days " knappen för att öppna koden fönstret . När du gör detta två rader kod display som standard , " Private Sub Calculate_Click ( ) " och " Sub End . " Ställ in den första delen av kodning att beräkna bankdagar genom att skriva in följande rader mellan dessa två förvalda linjer :
Dim EndDate , CURDATE Som DateDim BusDay , TotBusDays , CalcYear Som IntegerTotBusDays = 0CalcYear = InputBox ( " Vilket år ? " ) CURDATE = " 1/1 /" & CalcYearEndDate = " 31/12 /" & CalcYearDo tills CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select Case BusDayCase " 2 " till" 6 " TotBusDays = TotBusDays + 1Case " 1 " " Do nothingCase " 2 " ' Do nothingEnd SelectCurDate = DateAdd ( " d " , 1 , CURDATE ) Loop
4
Lägg extra kod för att kompensera för semester . Tio federala helgdagar brukar betyda 10 färre arbetsdagar även när semestern infaller på en helg eftersom de flesta arbetsgivare beviljar antingen en fredag eller måndag i ersättning . Om detta inte gäller i ditt fall , ändra värdet på " Hur många extra semester " skrivfältet när programmet körs . Till exempel, om du inte får lediga dagar för vissa helgdagar , minska eller ange ett negativt värde i rutan . Skriv följande kod direkt under den sista raden i steg 3 bilder p Om Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End oOm Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End oOm Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption = " det finns " & TotBusDays & " dagar affärskvarteren i " & CalcYear
5
Ge användaren ett enkelt sätt att avsluta programmet . På formuläret , dubbelklicka på " Avsluta " -knappen . Ange ordet " End " mellan " Private Sub Command2_Click ( ) " och " Sub End " du ser i koden avsnittet .
6
Klicka på själva formuläret och ändra bildtexten egenskapen av formuläret att läsa " Beräkna Business Days " . Klicka på "File " och sedan " Spara projekt som. " Valde en mapp för programmet och namnge projektet " Beräkna Business Days " . Klicka på " OK " och tryck sedan på " F5 " för att köra programmet .
