|
Compte tenu 52 semaines dans une année et cinq en semaine par semaine , généralement considérée comme identique à jours ouvrables , un an devrait contenir 52 fois cinq , ou 260 , jours ouvrés . Ce n'est pas toujours vrai comme on le voit quand on compare les calendriers pour plusieurs années. Ce qui était un jour ouvrable en un an peut-être pas dans l'autre. Vacances incidence sur le nombre de jours ouvrables dans une année aussi. Pour obtenir un nombre plus exact de jours ouvrables, utilisez ce petit programme Visual Basic. Choses que vous devez
Visual Basic 6.0
Afficher plus Instructions
1 Créer un formulaire dans Visual Basic pour maintenir l'interface utilisateur pour ce programme. Ouvrez Visual Basic et choisissez " EXE standard " de l'affichage du modèle. Double -cliquez sur les contrôles énumérés ci-dessous à partir de la " boîte à outils " que vous voyez sur la gauche de l'écran. Comme chacun apparaît sur le formulaire , cliquez dessus et faites-la glisser à l'emplacement spécifié
Checkbox1 : . Glisser à gauche supérieur de formCheckbox2 : Faites glisser vers la droite supérieure de formLabel1 : Drag -dessous Checkbox1Textbox1 : Drag -dessous Checkbox2CommandButton1 : Centre -dessous dessus controlsLabel2 : Centre -dessous CommandButton1CommandButton2 : Centre -dessous Label2
2 ajouter des légendes dans la boîte «Propriétés» à droite de l'écran pour chacun de ces contrôles . Pour ce faire, en cliquant sur chacun, ce qui fait apparaître le contrôle sélectionné dans la boîte " Propriétés". La propriété " Caption" apparaît dans l'ordre alphabétique dans la liste des propriétés. Changer la légende de défaut ou d'un texte dont la liste figure ci-dessous. Utilisez le glisser les poignées sur les contrôles de formulaire pour accueillir le texte ajouté . Ne pas utiliser les guillemets ci-dessous
Checkbox1 légende: . " Soustraire vacances fédérales ? " Checkbox2 légende: "Leap Year ? " Label1 légende: «Combien de jours de congé supplémentaires " Textbox1 : Supprimer le " texte " propriété le list.CommandButton1 : «Calculer jours ouvrables " . Changez le «(Nom ) » propriété sur " Calculer" Label2 : . Supprimer la légende si present.CommandButton2 : . "Exit"
3 Double -cliquez sur le "calculer jours ouvrables " bouton pour ouvrir la fenêtre de code . Lorsque vous faites cela deux lignes de l'affichage du code par défaut, " Private Sub Calculate_Click ( )" et " End Sub ". Mettre en place la première partie de codage pour calculer jours ouvrables en entrant les lignes suivantes entre ces deux lignes par défaut : Photos DateFin Dim, CURDATE Comme DateDim BusDay , TotBusDays , CalcYear Comme IntegerTotBusDays = 0CalcYear = InputBox (" Quelle année? ») CURDATE =" 1 /1 /"& CalcYearEndDate =" 31/12 /"& CalcYearDo Jusqu'à CURDATE = EndDateBusDay = Format ( CURDATE , " w ") Select Case BusDayCase " 2 " à" 6 " TotBusDays = TotBusDays + 1case " 1 « Avez- nothingCase " 2 " " Ne nothingEnd SelectCurDate = DateAdd ( "d" , 1, CURDATE ) Boucle
4 Ajouter code supplémentaire pour compenser pour les vacances. Dix jours fériés fédéraux signifient habituellement 10 jours ouvrables de moins , même si le jour férié tombe un week-end parce que la plupart des employeurs accordent soit un vendredi ou lundi en compensation. Si cela ne s'applique pas dans votre cas, modifiez la valeur de la «Combien de jours de congé supplémentaires " zone de saisie lorsque le programme s'exécute . Par exemple, si vous n'obtenez pas des jours off pour quelques jours de vacances , de réduire ou de saisir un nombre négatif dans cette boîte. Tapez le code suivant directement en dessous de la dernière ligne à l'étape 3
Si Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End IFIF Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IFIF Text1.Text <> " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption =" Il ya "& TotBusDays &" jours ouvrables " et CalcYear
5 donner à l'utilisateur un moyen facile de quitter le programme. Sur le formulaire , double- cliquez sur le bouton "Exit" . Entrez le mot "Fin" entre le " Private Sub Command2_Click ()" et "End Sub " que vous voyez dans la section de code .
6 Cliquez sur le formulaire lui-même et de modifier la propriété Caption de la forme à lire " Calculer jours ouvrables " . Cliquez sur "Fichier " puis " Enregistrer le projet sous . " Choisissez un dossier pour le programme et le nom du projet "Calculer jours ouvrables " . Cliquez sur « OK », puis appuyez sur la touche "F5 " pour exécuter le programme .
|
