Creare un modulo in Visual Basic per tenere l'interfaccia utente per questo programma. Aprire Visual Basic e scegliere " EXE standard " dal display del modello. Fare doppio clic sui comandi elencati di seguito dal " Toolbox" che vedete sulla sinistra dello schermo . Come appare ciascuno sul modulo, fare clic su di esso e trascinarlo nella posizione specificata
Checkbox1 : . Trascinare a sinistra di formCheckbox2 : Trascinare a destra di formLabel1 : Trascinare sotto Checkbox1Textbox1 : Trascinare sotto Checkbox2CommandButton1 : Centro di seguito sopra controlsLabel2 : Centro di seguito CommandButton1CommandButton2 : Centro di seguito Label2
2
Aggiungi didascalie nel dialogo "Proprietà" sulla destra dello schermo per ciascuno di questi controlli . Farlo cliccando su ciascuno , che porta in primo piano il controllo selezionato nel dialogo "Proprietà" . La proprietà " Caption " appare in ordine alfabetico nell'elenco delle proprietà . Modificare la didascalia predefinita o testo come elencato di seguito . Utilizzare il trascinamento maniglie sul modulo controlli per accogliere il testo aggiunto . Non utilizzare le virgolette seguente
Checkbox1 didascalia : ". Sottrarre le feste federali ? " Checkbox2 didascalia : "Leap Year ? " Caption Label1 : " Quanti giorni di ferie aggiuntivi " Textbox1 : Eliminare la proprietà "Testo" in il list.CommandButton1 : "Calcola giorni Lavorativi " . Modificare il " ( nome)" proprietà su " Calcola" Label2 : . Eliminare la didascalia se present.CommandButton2 : . "Exit"
3 Fare doppio clic su " Calcola Giorni Lavorativi " pulsante 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 del codice per il calcolo business day , inserendo le seguenti linee tra queste due linee predefinite :
Dim DataFine , CURDATE Come DateDim BusDay , TotBusDays , CalcYear Come IntegerTotBusDays = 0CalcYear = InputBox ( " Che anno ? " ) CURDATE =" 1/1 /" & CalcYearEndDate = " 31/12 /"& CalcYearDo Fino CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select Case BusDayCase " 2 "a" 6 " TotBusDays = TotBusDays + 1case " 1 "' Do nothingCase " 2 " ' Do nothingEnd SelectCurDate = DateAdd ( " d " , 1 , CURDATE ) loop
4
Aggiungi codice aggiuntivo per compensare per le vacanze. Dieci feste federali di solito significa meno 10 giorni lavorativi , anche quando la festa cade di 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 " Quanti giorni di ferie aggiuntivi " casella di immissione quando il programma viene eseguito . Per 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 nel passaggio 3
Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End IFIF Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IFIF Text1.Text < > " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption = " Ci sono "& TotBusDays &" giorni lavorativi a " & CalcYear
5
Dare all'utente un modo semplice per uscire dal programma . Nel modulo , fare doppio clic sul pulsante "Esci" . Immettere la parola " Fine " tra il " Private Sub Command2_Click ( ) " e "End Sub " che vedete nella sezione di codice .
6
Clicca sul modulo stesso e modificare la proprietà Caption del form leggere "Calcola giorni Lavorativi " . Fare clic su "File " e poi " Salva progetto con nome . " Ha scelto una cartella per il programma e il nome del progetto "Calcola Giorni Lavorativi " . Fare clic su " OK ", quindi premere "F5" per eseguire il programma .
Programmazione © www.354353.com