Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man beräknar bankdagar i Visual Basic

    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 .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man installerar en stor storlek formulär med VB6
    ·Hur Input summor i en databas
    ·Hur man skapar en DiskPart Script
    ·SQL Adapter Handledning för BizTalk
    ·Ställa Z Beställ programmässigt i Visual Basic
    ·Delar av ett Visual Basic Application Window
    ·Lägga till ett objekt till ArrayList
    ·Hur man använder en uppsättning strängar i VB.NET
    ·Hur konvertera en sträng till INT i Classic ASP
    ·Ställa Access Key i Visual Basic
    Utvalda artiklarna
    ·Hur man skickar kommandon till ett program inte är i f…
    ·Så här aktiverar vissa poster på en alternativknapp …
    ·SQL som inte stöds Datatyp Fel på Integer Column
    ·Hur man skriver ett flödesschema Funktion Process
    ·Hur får man Längd på en Boolean Array i Java
    ·Hur förbli inloggad till ColdFusion
    ·Hur man designar en CSS Sprite Navigation Bar
    ·Hur Jämför Java Script String
    ·Hur Inkludera en PHP -fil i Smarty
    ·Hur man programmerar Progress Bar i VB.net
    Copyright © Dator Kunskap http://www.dator.xyz