Givet 52 uger i et år og fem hverdage om ugen , generelt betragtes som den samme som hverdage , bør et år indeholde 52 gange fem eller 260 , hverdage . Dette er ikke altid sandt, som ses, når man sammenligner kalendere til flere år. Hvad var en arbejdsdag på et år , kan ikke være i den næste . Holidays påvirker antallet af hverdage i et år så godt. For at få en mere nøjagtige antal hverdage , bruge denne lille Visual Basic -program. Ting du skal
Visual Basic 6.0
Vis Flere Instruktioner
1
Opret en formular i Visual Basic til at holde brugerfladen til dette program. Åbn Visual Basic og vælg " Standard EXE " fra skabelonen display. Dobbeltklik på den kontrol , der er anført nedenfor fra " Toolbox" du ser på venstre side af skærmen . Som hver vises på formularen, skal du klikke på det og trække det til den angivne placering
Checkbox1 : . Træk til øverst til venstre formCheckbox2 : Træk til øverste højre formLabel1 : Drag under Checkbox1Textbox1 : Træk under Checkbox2CommandButton1 : center nedenfor over controlsLabel2 : center nedenfor CommandButton1CommandButton2 : center under Label2
2
Tilføj billedtekster i " Egenskaber" boksen til højre på skærmen for hver af disse kontroller. Gør dette ved at klikke på hver, hvilket bringer den valgte kontrol i boksen "Egenskaber" . Den " Caption " ejendom vises i alfabetisk rækkefølge på ejendomme listen. Ændre standard billedtekst eller tekst som anført nedenfor . Bruge træk håndtagene på skemaet styrer til at rumme den tilføjede tekst. Brug ikke anførselstegn nedenfor
Checkbox1 billedtekst : ". Træk Føderale helligdage ? " Checkbox2 billedtekst : " Leap Year? " Label1 billedtekst : " Hvor mange ekstra fridage " textBox1 : Slet "Tekst" ejendom i den list.CommandButton1 : " Beregn Bankdage " . Ændr " (Navn) " ejendom til " Beregn " Label2 : . Slet billedtekst present.CommandButton2 : . "Exit"
3
Dobbeltklik på " Beregn Bankdage " knappen for at åbne koden vinduet. Når du gør dette to linjer kode display som standard , "Private Sub Calculate_Click ()" og " End Sub ". Opsæt den første del af kodning at beregne hverdage ved at indtaste følgende linjer mellem disse to standardindstillinger linjer : Hej
Dim EndDate , CURDATE Som DateDim BusDay , TotBusDays , CalcYear Som IntegerTotBusDays = 0CalcYear = InputBox ("Hvad år? " ) CURDATE =" 1/1 /"& CalcYearEndDate =" 31/12 /"& CalcYearDo Indtil CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select Case BusDayCase " 2 "Til" 6 " TotBusDays = TotBusDays + 1Case " 1 " " Gør nothingCase "2" 'Vil nothingEnd SelectCurDate = DateAdd ( "d" , 1, CURDATE ) Loop
4
Tilføj yderligere kode for at kompensere for helligdage. Ti føderale helligdage normalt betyde 10 færre arbejdsdage , selv når ferien falder på en weekend, fordi de fleste arbejdsgivere giver enten en fredag eller mandag i erstatning. Hvis dette ikke gælder i dit tilfælde , ændre værdien af "Hvor mange ekstra fridage " indtastningsfeltet , når programmet kører . For eksempel . Hvis du ikke får fridage for nogle helligdage , reducere eller indtaste et negativt tal i denne rubrik Indtast følgende kode direkte under den sidste linje i trin 3 fotos p Hvis Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End Hhvis Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End Hhvis Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption =" Der er "& TotBusDays &" bankdage i "& CalcYear
5
Giv brugeren en nem måde at afslutte programmet . På formularen skal du dobbeltklikke på den "Exit" knappen. Indtast ordet "End" mellem "Private Sub Command2_Click () " og " End Sub " du ser i koden afsnit.
6
Klik på selve formularen og ændre Caption ejendom formularen at læse " Beregn Bankdage " . Klik på " File " og derefter "Save Project As ". Valgte en mappe til programmet og navngive projektet " Beregn Bankdage " . Klik på " OK", og tryk derefter på " F5 " for at køre programmet.