Gitt 52 uker i et år og fem hverdager i uka , vanligvis ansett som den samme som virkedager, bør et år inneholder 52 ganger fem , eller 260 , virkedager. Dette er ikke alltid sant som sett når du sammenligner kalendere for flere år . Hva var en virkedag i ett år, kan ikke være i det neste. Ferier påvirker antall virkedager i et år også. For å få et mer nøyaktig antall virkedager , kan du bruke dette lille Visual Basic program . Du trenger
Visual Basic 6.0
Vis flere instruksjoner
en
Opprette et skjema i Visual Basic til å holde brukergrensesnittet for dette programmet . Åpne Visual Basic og velg " Standard EXE " fra malen displayet. Dobbeltklikk på kontrollene nedenfor fra " Toolbox" ser du på venstre side av skjermen. Som hver enkelt vises på skjemaet , klikk på den og dra til den angitte plasseringen
Checkbox1 : . Dra til øvre venstre formCheckbox2 : Dra til øverste høyre hjørne av formLabel1 : Drag under Checkbox1Textbox1 : Drag under Checkbox2CommandButton1 : Senter nedenfor over controlsLabel2 : senter nedenfor CommandButton1CommandButton2 : senter under Label2
2
Legg bildetekster i "Properties "-boksen på høyre side av skjermen for hver av disse kontrollene . Gjør dette ved å klikke på hver, som bringer opp merkede kontrollen i "Properties "-boksen . Den " Bildetekst " eiendom vises i alfabetisk rekkefølge i eiendommer listen. Endre standard bildetekst eller tekst som er nevnt nedenfor . Bruke dra håndtakene på skjemaet kontroller for å imøtekomme den ekstra teksten . Ikke bruk anførselstegn under
Checkbox1 bildetekst : . "Trekk Federal Holidays? " Checkbox2 bildetekst : " Leap Year ? " Label1 bildetekst : " Hvor mange flere helligdager " textBox1 : Slett "Text" eiendom i den list.CommandButton1 : " Beregn virkedager " . Endre " (navn) " eiendom til " Beregn " Label2 : . Slett bildeteksten hvis present.CommandButton2 : . "Exit"
3
Dobbeltklikk på " Beregn virkedager " knappen for å åpne koden vinduet. Når du gjør dette to linjer med kode skjerm som standard , "Private Sub Calculate_Click ( )" og " End Sub . " Sett opp den første delen av koding for å beregne virkedager ved å skrive inn følgende linjer mellom disse to standard linjer : en
Dim Sluttdato , CURDATE Som DateDim BusDay , TotBusDays , CalcYear Som IntegerTotBusDays = 0CalcYear = InputBox ( " Hvilket år ? " ) CURDATE = " 1/1 /"& CalcYearEndDate = " 12/31 /"& CalcYearDo inntil CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select sak BusDayCase " 2 " til" 6 " TotBusDays = TotBusDays + 1Case " 1 " ' Do nothingCase " 2 " ' nothingEnd SelectCurDate = DateAdd legger til ( " d " , 1, CURDATE ) Loop
4
ekstra kode for å kompensere for ferier . Ti føderale helligdager vanligvis bety 10 færre arbeidsdager selv når ferien faller på en helg fordi de fleste arbeidsgivere gir enten en fredag eller mandag i erstatning. Hvis dette ikke gjelder i ditt tilfelle, endre verdien av " Hvor mange ekstra ferie " entry boksen når programmet kjører . For eksempel, hvis du ikke får fridager for noen helligdager , redusere eller legge inn et negativt tall i den boksen. Skriv inn følgende kode rett under siste linje i trinn 3
p Hvis Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End IfIf Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IfIf Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption =" Det er "& TotBusDays &" virkedager i "& CalcYear
5
Gi brukeren en enkel måte å avslutte programmet . På skjemaet , dobbeltklikk på "Exit "-knappen . Skriv inn ordet " End " mellom "Private Sub Command2_Click ( )" og "End Sub " du ser i koden delen.
6
Klikk på selve skjemaet og endre Bildetekst eiendom skjema å lese " Beregn virkedager " . Klikk på "File " og deretter " Lagre prosjekt som . " Valgte en mappe for programmet og navnet prosjektet " Beregn virkedager " . Klikk " OK", og trykk deretter på "F5 " for å kjøre programmet .
