Ako vypočítať pracovné dni v jazyku Visual Basic

Vzhľadom k tomu , 52 týždňov v roku a piatich vo všedné dni týždenne , všeobecne považovaný za rovnaký ako pracovných dní , ročne by mal obsahovať 52 krát päť , alebo 260 , pracovné dni . To nie je vždy pravda , ako je vidieť , keď môžete porovnať kalendára na viac rokov . Aký bol pracovný deň v jednom roku nesmie byť v budúcom . Dovolenka vplyv na počet pracovných dní v roku . Ak chcete získať viac presný počet pracovných dní, použite tento malý programu Visual Basic . Veci , ktoré budete potrebovať
Visual Basic 6.0
Zobraziť ďalšie inštrukcie Cestuj 1

Vytvoriť formulár v jazyku Visual Basic držať užívateľské rozhranie tohto programu . Otvorte aplikáciu Visual Basic a zvoľte " Štandardné EXE " z displeja šablóny . Dvakrát kliknite na ovládacie prvky uvedené nižšie z " Toolbox " , ktoré vidíte na ľavej strane obrazovky . Ako na formulári objavia každý , kliknite na neho a ťahajte do zadaného umiestnenia

CheckBox1 : . Ťahaním ľavej hornej časti formCheckbox2 : ťahaním pravej hornej časti formLabel1 : Drag nižšie Checkbox1Textbox1 : Drag nižšie Checkbox2CommandButton1 : Centrum nižšie nad controlsLabel2 : Centrum nižšie CommandButton1CommandButton2 : Centrum pod Label2
2

Pridať titulky na " Vlastnosti " pole na pravej strane obrazovky pre každú z týchto kontrol . Urob to po kliknutí na každú , ktorá prináša do vybratého ovládacieho prvku v " Properties " box . " Caption " vlastnosť sa zobrazí v abecednom poradí v zozname vlastností . Zmeniť predvolené titulok alebo text , ako sú uvedené nižšie . Pomocou drag úchyty na ovládacie prvky formulára ubytovať pridaný text . Nepoužívajte nižšie úvodzovky klipart

CheckBox1 titulok : . " Odpočítať Federálne dovolenku ? " Checkbox2 titulok : " Leap Year ? " Label1 Titulok : " Koľko ďalších prázdniny ? " TextBox1 : odstránenie " Text " majetok v list.CommandButton1 : " Výpočet pracovné dni " . Zmeňte " ( názov ) " vlastnosť " Vypočítať " Label2 : . Odstrániť titulok , ak present.CommandButton2 : . " Exit "
3

Double - kliknite na " Spočítať pracovných dní " tlačidlo otvorte okno kód . Keď to budete robiť dva riadky displeja kódu v predvolenom nastavení , " Private Sub Calculate_Click ( ) " a " End Sub " . Nastavte prvú časť kódovanie pre výpočet pracovné dni zadaním nasledujúcich riadkov medzi týmito dvoma východiskových línií :

Dim EndDate , CURDATE Ako DateDim BusDay , TotBusDays , CalcYear Ako IntegerTotBusDays = 0CalcYear = InputBox ( " Aký rok ? " ) CURDATE = " 1 /1 /" & CalcYearEndDate = " 12 /31 /" a CalcYearDo Do CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select Case BusDayCase " 2 " na " 6 " TotBusDays = TotBusDays + 1Case " 1 " ' Do nothingCase " 2 " " Do nothingEnd SelectCurDate = DateAdd ( " d " , 1 , CURDATE ) Loop
4

Pridať ďalšie kód pre kompenzáciu dovolenku . Desať federálna sviatky zvyčajne znamená 10 menej pracovných dní , aj keď sviatok pripadne na víkend , pretože väčšina zamestnávateľov poskytnúť buď v piatok alebo pondelok v kompenzácii . Ak to neplatí v prípade , zmeniť hodnotu " Koľko ďalších prázdniny " vstupné pole pri behu programu . Napríklad , ak nechcete dostať dni pre niektoré sviatky , znížiť alebo zadajte záporné číslo v tomto poli . Zadajte nasledujúci kód priamo pod posledný riadok v kroku 3

Ak Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End nNejsou Ak Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End nNejsou Ak Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption = " Existuje " a TotBusDays a " pracovné dni v " a CalcYear
5

umožní užívateľovi jednoduchý spôsob , ako ukončiť program . Na formulári , dvakrát kliknite na tlačidlo " Exit " . Zadajte slovo " End " medzi " Private Sub Command2_Click ( ) " a " End Sub " môžete vidieť v sekcii kóde .
6

Kliknite na samotnom formulári a zmeniť vlastnosť titulok formulára čítať " Vypočítať pracovné dni " . Kliknite na " Súbor " a potom " Uložiť projekt ako . " Vybral zložku programu a názov projektu " Výpočet pracovných dní " . Kliknite na tlačidlo " OK " , a potom stlačte " F5 " pre spustenie programu .

• Predchádzajúca strana: Ako si vyrobiť svoj ​​obrázok Black & White 
• Ďalšia strana: Visual Basic 5.0 Tutorial