• 
  

  hur man beräknar arbetsdagar i Visual Basic

  
  

Med tanke på i 52 veckor under ett år och fem vardagar i veckan , i allmänhet vara det samma som arbetsdagar , bör 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åverka antalet arbetsdagar på ett år också . För att få en mer exakt antal arbetsdagar , använda denna lilla Visual Basic -program

Du behöver :
Visual Basic 6
. 0 .



1 .
Skapa ett formulär i Visual Basic för att hålla gränssnittet för detta program. Öppna Visual Basic och välj " Standard EXE " från mallen displayen . Dubbelklicka på kontrollerna nedan från "Toolbox " du 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 i övre vänstra delen av form
Checkbox2 : Dra i övre högra hörnet på formuläret
Label1 : Dra nedan Checkbox1
Textbox1 : Dra nedan Checkbox2
CommandButton1 : Center nedan nämnda kontroller
Label2 : Center under CommandButton1
CommandButton2 : Center under Label2
2 .
Lägg till bildtexter i " Egenskaper " rutan till höger på skärmen för dessa kontroller . Gör detta genom att klicka på varje , som tar upp den markerade kontrollen i " Egenskaper " rutan . Den " Caption " egendom visas i alfabetisk ordning i fastigheter listan . Ändra den förvalda rubrik eller text enligt nedan . Använd dra handtagen på formulärkontroller att rymma till texten . Använd inte citationstecken nedan

Checkbox1 bildtext : ". Subtrahera Federal semester? "
Checkbox2 bildtext : " ? skottår "
Label1 rubrik: "Hur många fler högtider? "
Textbox1 : Ta bort " Text "egendom i listan .
CommandButton1 : " Beräkna arbetsdagar " . Ändra " ( namn) " egendom till " Beräkna "
Label2 . radera bildtexten om den finns
CommandButton2 . " Exit "
3
Double . -klicka på " Beräkna arbetsdagar " knappen för att öppna kodfönstret . När du gör detta av två rader kod visas som standard , " Private Sub Calculate_Click () " och " End Sub . " Ställ in den första delen av kodning att beräkna arbetsdagar genom att skriva följande rader mellan dessa två standard rader :

Dim EndDate , CurDate Som Datum
Dim BusDay , TotBusDays , CalcYear As Integer
TotBusDays=0
CalcYear=InputBox ( " Vilket år ? " )
CurDate=" 1 /1 /" CalcYear
EndDate=" 12/31 /" CalcYear
göra tills CurDate=Slutdatum
BusDay=Format ( CurDate , "w" )
Select Case BusDay
Case " 2 "till" 6 "
TotBusDays=TotBusDays + 1
Case "1 "
" Gör ingenting
Case " 2 "
" Gör ingenting
End Markera
CurDate=DateAdd ( " d " , 1 , CurDate )
Loop
4 .
Lägg till ytterligare kod för att kompensera för semestern. Tio federal semester betyder vanligen 10 färre arbetsdagar även när semestern infaller på en helg , eftersom de flesta arbetsgivare antingen bevilja en fredag eller måndag i ersättning . Om detta inte gäller i ditt fall , ändra värdet på "Hur många extra helgdagar " 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 denna ruta. Skriv följande kod direkt under den sista raden i steg 3 .

Om Check1. Value=vbChecked Då
TotBusDays=TotBusDays-10
End If
Om Check2. Value=vbChecked Då
TotBusDays=TotBusDays + 1
End If
Om Text1. Text <> " " Då
AddHol=Text1. Text
TotBusDays=TotBusDays-AddHol
End If
Label1 . Caption=" Det finns " TotBusDays " vardagar i " CalcYear
5 .
Ge användaren ett enkelt sätt att avsluta programmet. På formuläret, dubbelklickar du på knappen "Avsluta" . Ange ordet " End " mellan " Private Sub Command2_Click () " och " End Sub " du ser i koden avsnittet .
6 .
Klicka på själva formuläret och ändra beskrivningen egendom i formuläret för att läsa " Beräkna arbetsdagar " . Klicka på " File "och sedan "Spara projekt som. " Välj en mapp för programmet och namnet projektet " Beräkna arbetsdagar " . Klicka på " OK " och tryck sedan på " F5 "för att köra programmet .


tips och varningar




För att göra detta till ett körbart program som kan användas utan att lasta Visual Basic , klicka på " Arkiv "och sedan " Gör Beräkna Business Days. exe . " Välj var du vill spara denna och klicka på " OK . "

Redovisning för alla de variabler som påverkar arbetsdagar , som inte förekommer på ett lätt förutsägbara grund eller ens varje år , kräver mer komplicerad kodning utanför ramen för denna artikel . Därför detta enkla program rekommenderas inte för viktiga ekonomiska och juridiska situationer

Previous：nothing Next：hur man bygger en databas för webbplats

Relaterade artiklar