October 7
Dato 52 settimane in un anno e cinque giorni feriali a settimana, generalmente considerato lo stesso di giorni, un anno dovrebbe contenere 52 volte cinque, o 260, giorni lavorativi. Questo non è sempre vero come si è visto quando si confrontano i calendari per più anni. Quello che era un giorno lavorativo in un anno non può essere nel prossimo. Vacanze impatto il numero di giorni lavorativi in un anno pure. Per ottenere un numero più esatto di giorni lavorativi, utilizzare questo piccolo programma Visual Basic.
1 Creare un modulo in Visual Basic per tenere l'interfaccia utente per questo programma. Aprire Visual Basic e selezionare "EXE standard" dal display modello. Fare doppio clic sui comandi elencati di seguito dal "Toolbox" si vede sulla sinistra dello schermo. Come appare ognuno sul modulo, fare clic su di esso e trascinarlo nella posizione specificata.
CheckBox1: Trascinare per alto a sinistra della forma
Checkbox2: Trascinare per alto a destra della forma
Label1: trascinare sotto CheckBox1
Casellatesto1: trascinare sotto Checkbox2
CommandButton1: Centro di seguito i controlli di cui sopra
Label2: Centro di seguito CommandButton1
CommandButton2: Centro di seguito Label2
2 Aggiungere didascalie nel dialogo "Proprietà" sul lato destro dello schermo per ognuno di questi controlli. Per fare ciò, cliccando su ciascuno, che porta in primo piano il controllo selezionato nel dialogo "Proprietà". La proprietà "Caption" appare in ordine alfabetico nella lista proprietà. Modificare la didascalia o il testo di default come elencato di seguito. Utilizzare la resistenza maniglie sui controlli di modulo per accogliere il testo aggiunto. Non utilizzare le virgolette qui di seguito.
CheckBox1 didascalia: "Holidays federali Sottrarre?"
Checkbox2 didascalia: "Leap Year?"
caption Label1: "Come molte feste supplementari?"
Casellatesto1: Eliminare la proprietà "Testo" nella lista.
CommandButton1: "Calcola giorni lavorativi". Modificare il "(nome)" proprietà "Calcola".
Label2: Elimina la didascalia se presente.
CommandButton2: "Exit".
3 Fare doppio clic sul pulsante "Calcola giorni lavorativi" per aprire la finestra del codice. Quando si esegue questa due righe di visualizzazione del codice di default, "Private Sub Calculate_Click ()" e "End Sub". Impostare la prima parte di codifica per calcolare giorni inserendo le seguenti linee tra queste due linee di default:
Dim DataFine, CURDATE As Date
Dim BusDay, TotBusDays, CalcYear come numero intero
TotBusDays = 0
CalcYear = InputBox ( "In che anno?")
CURDATE = "1/1 /" & CalcYear
EndDate = "12/31 /" & CalcYear
Fare Fino CURDATE = DataFine
BusDay = Format (CURDATE, "w")
Select Case BusDay
Caso "2" a "6"
TotBusDays = TotBusDays + 1
Caso 1"
'Fare niente
Case "2"
'Fare niente
End Select
CURDATE = DateAdd ( "d", 1, CURDATE)
Ciclo continuo
4 Aggiungere codice aggiuntivo per compensare per le vacanze. Dieci feste federali di solito significa 10 giorni in meno di lavoro anche quando la festa cade in un fine settimana perché la maggior parte dei datori di lavoro concedono o un Venerdì o Lunedi a titolo di risarcimento. Se questo non si applica nel tuo caso, modificare il valore della casella di immissione "Come molte feste aggiuntive" quando il programma viene eseguito. Ad esempio, se non si ottiene giorni di riposo per alcuni giorni festivi, ridurre o immettere un numero negativo in quella scatola. Digitare il seguente codice direttamente sotto l'ultima riga al punto 3.
Se Check1.Value = vbChecked Poi
TotBusDays = TotBusDays - 10
Finisci se
Se Check2.Value = vbChecked Poi
TotBusDays = TotBusDays + 1
Finisci se
Se Text1.Text <> "" Allora
AddHol = Text1.Text
TotBusDays = TotBusDays - AddHol
Finisci se
Label1.Caption = "ci sono" e TotBusDays & "giorni lavorativi in" & CalcYear
5 Dare all'utente un modo semplice per uscire dal programma. Nel modulo, fare doppio clic sul pulsante "Exit". Inserire la parola "Fine" tra il "Private Sub Command2_Click ()" e "End Sub" che si vede nella sezione di codice.
6 Fare clic sul modulo stesso e modificare la proprietà Caption del modulo di leggere "Calcola giorni lavorativi". Fai clic su "File" e poi "Salva progetto." Ha scelto una cartella per il programma e denominare il progetto "Calcola giorni lavorativi". Fai clic su "OK", e quindi premere il tasto "F5" per eseguire il programma.