Πώς να υπολογίσετε Εργάσιμες Ημέρες Visual Basic

Δεδομένης 52 εβδομάδες σε ένα χρόνο και πέντε εργάσιμες ημέρες την εβδομάδα , γενικά θεωρείται η ίδια ως εργάσιμες ημέρες , ένα χρόνο πρέπει να περιέχει 52 φορές πέντε , ή 260 , εργάσιμες ημέρες . Αυτό δεν είναι πάντα αλήθεια , όπως φαίνεται όταν συγκρίνουμε ημερολόγια για πολλά χρόνια . Τι ήταν μια εργάσιμη ημέρα μέσα σε ένα χρόνο μπορεί να μην είναι στην επόμενη . Διακοπές επηρεάζουν τον αριθμό των εργάσιμων ημερών ανά έτος , καθώς και . Για να πάρετε μια πιο ακριβή αριθμό των εργάσιμων ημερών , χρησιμοποιήστε αυτό το μικρό πρόγραμμα της Visual Basic . Τα πράγματα που θα χρειαστείτε
Visual Basic 6.0
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Δημιουργήστε μια φόρμα της Visual Basic για να κρατήσει το περιβάλλον εργασίας χρήστη για το πρόγραμμα αυτό . Ανοίξτε το Visual Basic και επιλέξτε "Standard EXE » από την οθόνη πρότυπο . Κάντε διπλό κλικ σχετικά με τους ελέγχους που αναφέρονται παρακάτω, από την "Toolbox " που βλέπετε στο αριστερό μέρος της οθόνης . Όπως ο καθένας εμφανίζεται στη φόρμα , κάντε κλικ πάνω του και σύρετε στη συγκεκριμένη τοποθεσία

CheckBox1 : . Σύρετε στο επάνω αριστερό μέρος formCheckbox2 : Σύρετε προς τα επάνω δεξιά της formLabel1 : Drag κάτω Checkbox1Textbox1 : Drag κάτω Checkbox2CommandButton1 : Κέντρο παρακάτω πάνω controlsLabel2 : Κέντρο κάτω από CommandButton1CommandButton2 : Κέντρο κάτω από Label2 2

Προσθέστε λεζάντες στο " Ιδιότητες" παράθυρο στα δεξιά της οθόνης για κάθε ένα από αυτούς τους ελέγχους . Κάνετε αυτό κάνοντας κλικ στο καθένα , το οποίο φέρνει το επιλεγμένο στοιχείο ελέγχου στο " Ιδιότητες" παράθυρο . Η " Λεζάντα " ιδιοκτησία εμφανίζεται με αλφαβητική σειρά στη λίστα ιδιοτήτων . Αλλάξτε την προεπιλεγμένη λεζάντα ή κείμενο , όπως αναφέρονται παρακάτω . Χρησιμοποιήστε το drag λαβές σχετικά με τους ελέγχους φόρμα για να φιλοξενήσει την προστιθέμενη κείμενο . Μην χρησιμοποιείτε τα εισαγωγικά παρακάτω

CheckBox1 λεζάντα : . "Διπλή ομοσπονδιακές διακοπές ; " Checkbox2 λεζάντα : " Leap Year ; " Label1 λεζάντα : " Πόσα επιπλέον διακοπές ; " TextBox1 : Διαγράψτε το " Κείμενο " ιδιοκτησίας η list.CommandButton1 : "Υπολογισμός Εργάσιμες Ημέρες " . Αλλάξτε το " ( Name ) " ιδιοκτησίας "Υπολογισμό" Label2 : . Διαγράψτε τη λεζάντα αν present.CommandButton2 : . "Exit"
εικόνων 3

Κάντε διπλό κλικ στο " Υπολογισμός Εργάσιμες Ημέρες " κουμπί για να ανοίξετε το παράθυρο κώδικα . Όταν το κάνετε αυτό δύο γραμμές της οθόνης του κώδικα από προεπιλογή , " Private Sub Calculate_Click ( ) " και " End Sub ". Ρυθμίστε το πρώτο μέρος της κωδικοποίησης για τον υπολογισμό εργάσιμες ημέρες εισάγοντας τις ακόλουθες γραμμές μεταξύ αυτών των δύο προεπιλεγμένες γραμμές :

Δημ. EndDate , CURDATE Όπως DateDim BusDay , TotBusDays , CalcYear Όπως IntegerTotBusDays = 0CalcYear = InputBox ( " Ποια χρονιά ; » ) CURDATE = " 1/1 /" & CalcYearEndDate = " 31/12 /" & CalcYearDo Μέχρι CURDATE = EndDateBusDay = Format ( CURDATE , " w " ) Select Case BusDayCase " 2 " για να " 6 " TotBusDays = TotBusDays + 1Case " 1 « Do nothingCase " 2 " " Do nothingEnd SelectCurDate = DateAdd ( " d" , 1 , CURDATE ) Loop
Η 4

Προσθέστε επιπλέον κώδικα για να αντισταθμίσει τις διακοπές . Δέκα ομοσπονδιακές διακοπές σημαίνουν συνήθως λιγότερο 10 εργάσιμες ημέρες , ακόμη και όταν η αργία συμπίπτει με Σαββατοκύριακο, διότι οι περισσότεροι εργοδότες χορηγούν είτε Παρασκευή ή Δευτέρα στην αποζημίωση. Εάν αυτό δεν ισχύει στην περίπτωσή σας , να τροποποιήσετε την τιμή του « Πόσες πρόσθετες διακοπές " παράθυρο εισόδου , ​​όταν το πρόγραμμα εκτελείται . Για παράδειγμα , αν δεν έχετε ρεπό για κάποιες αργίες , να μειώσει ή να εισάγετε έναν αρνητικό αριθμό σε αυτό το κουτί . Πληκτρολογήστε τον ακόλουθο κώδικα ακριβώς κάτω από την τελευταία γραμμή στο Βήμα 3

Αν Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10END IfIf Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IfIf Text1.Text <> " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption = " Υπάρχουν " & TotBusDays &" εργάσιμες ημέρες " & CalcYear
5

Δώστε στον χρήστη έναν εύκολο τρόπο για να βγείτε από το πρόγραμμα . Στη φόρμα , κάντε διπλό κλικ στο κουμπί " Exit" . Εισάγετε τη λέξη "End" μεταξύ του " Private Sub Command2_Click ( ) " και " End Sub " που βλέπετε στο τμήμα κώδικα .
Η

6 Κάντε κλικ στην ίδια τη φόρμα και να αλλάξετε την ιδιότητα Caption της φόρμας ως εξής: " Υπολογισμός Εργάσιμες Ημέρες " . Κάντε κλικ στο " Αρχείο " και στη συνέχεια " Save Project As." Επέλεξε ένα φάκελο για το πρόγραμμα και το όνομα του έργου "Υπολογισμός Εργάσιμες Ημέρες " . Κάντε κλικ στο " OK" και , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε το πρόγραμμα .
Η
εικόνων