Hvordan beregne virkedager i Visual Basic

Hvordan beregne virkedager i Visual Basic


Gitt 52 uker i et år og fem hverdager i uka, vanligvis ansett det samme som virkedager, bør et år inneholde 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åvirke antall virkedager i året også. For å få en mer nøyaktig antall virkedager, kan du bruke denne lille Visual Basic program.

Bruksanvisning

1 Lag et skjema i Visual Basic for å holde brukergrensesnittet for dette programmet. Åpne Visual Basic og velg "Standard EXE" fra malen displayet. Dobbeltklikk på kontrollene som er oppført nedenfor fra "Toolbox" ser du på venstre side av skjermen. Som hver og en står på skjemaet, klikker du på den og drar til den angitte plasseringen.

Checkbox1: Dra til øverst til venstre i skjemaet
Checkbox2: Dra til øverste høyre hjørne av form
Label1: Drag under Checkbox1
Textbox1: Drag under Checkbox2
CommandButton1: Senter under ovennevnte kontroller
Label2: Senter under CommandButton1
CommandButton2: Senter under Label2

2 Legg til bildetekster i "Properties" boksen til høyre på skjermen for hver av disse kontrollene. Gjør dette ved å klikke på hver, noe som bringer opp det valgte kontroll i "Properties" boksen. Den "Caption" eiendom vises i alfabetisk rekkefølge i egenskapslisten. Endre standard bildetekst eller tekst som er nevnt nedenfor. Bruk dra håndtakene på skjemakontrollene for å imøtekomme den ekstra teksten. Ikke bruk anførselstegn nedenfor.

Checkbox1 bildetekst: "Trekk fra Federal Holidays?"
Checkbox2 bildetekst: "skuddår?"
Label1 bildetekst: "Hvor mange flere ferien?"
Textbox1: Slett "Text" eiendom i listen.
CommandButton1: "Beregn virkedager". Endre "(navn)" eiendom til "Beregn".
Label2: Slett bildeteksten hvis det finnes.
CommandButton2: "Exit".

3 Dobbeltklikk på "Beregn virkedager" for å åpne kodevinduet. 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 linjene:

Dim Sluttdato, CurDate Som Dato
Dim BusDay, TotBusDays, CalcYear As Integer
TotBusDays = 0
CalcYear = InputBox ( "Hvilket år?")
CurDate = "1/1 /" & CalcYear
Sluttdato = "12/31 /" & CalcYear
Gjør Inntil CurDate = Sluttdato
BusDay = Format (CurDate, "w")
Velg Sak BusDay
Case "2" til "6"
TotBusDays = TotBusDays + 1
Case "1"
'Gjør ingenting
Case "2"
'Gjør ingenting
End Select
CurDate = DateAdd ( "d", 1, CurDate)
Loop

4 Legg ekstra kode for å kompensere for helligdager. Ti føderale hellig betyr vanligvis 10 mindre arbeidsdager selv når ferien faller på en helg fordi de fleste arbeidsgivere gir enten fredag ​​eller mandag i erstatning. Hvis dette ikke gjelder i ditt tilfelle, endre verdien av "Hvor mange flere helligdager" entry boksen når programmet kjører. For eksempel, hvis du ikke får fridager for noen fridager, redusere eller legge inn et negativt tall i den boksen. Skriv inn følgende kode direkte under den siste linjen i trinn tre.

Hvis Check1.Value = vbChecked Deretter
TotBusDays = TotBusDays - 10
Slutt om
Hvis Check2.Value = vbChecked Deretter
TotBusDays = TotBusDays + 1
Slutt om
Hvis Text1.Text <> "" Then
AddHol = Text1.Text
TotBusDays = TotBusDays - AddHol
Slutt om
Label1.Caption = "Det er" & TotBusDays & "dager 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 Caption egenskap av skjemaet til å lese "Beregn virkedager". Klikk på "File" og deretter "Lagre prosjekt som." Velg en mappe for programmet og navnet på prosjektet "beregn virkedager". Klikk på "OK", og trykk "F5" for å kjøre programmet.

Hint

  • For å gjøre dette til et kjørbart program brukbare uten å laste Visual Basic, klikk på "File" og deretter "Make Beregn Forretnings Days.exe." Velg hvor du vil lagre dette og klikk "OK."
  • Regnskap for alle variablene som påvirker virkedager som ikke faller på en lett forutsigbar basis eller hvert år, krever mer komplisert koding utenfor omfanget av denne artikkelen. Av denne grunn er dette enkle programmet ikke anbefalt for viktige økonomiske eller juridiske situasjoner