|
Microsoft Visual Basic offre une variété de fonctions intégrées , y compris pour le calcul et la conversion de dates. Un peu de réflexion appliquée à la définition d'une année bissextile, combiné avec la fonction de IsDate Visual Basic , vous permettra de calculer les années bissextiles avec Visual Basic. Choses que vous devez
Microsoft Word, Excel ou autre logiciel contenant le Visual Basic IDE ( environnement de développement intégré )
Voir Plus Instructions
1 ouvrir Microsoft Word et créez un document intitulé « LeapYear.doc . " Entrez le MS Word Visual Basic IDE en appuyant sur Alt- F11.
Sélectionnez le module correct dans laquelle entrer le code du programme. Dans le volet de projet à la gauche de la fenêtre de l'IDE , cliquez sur le (+) signe plus à gauche de l'article «Projet ( leapyear ) . " Cliquez sur le signe du dossier " Objets Microsoft Word », qui apparaît immédiatement sous la rubrique « Project ( leapyear ) . " Double -cliquez sur " ThisDocument ".
2 Entrez le code du programme . Dans la fenêtre Code vide, tapez ou copiez et collez le code programme suivant:
IsLeapYear de la fonction publique ( SYEAR As Variant ) IsLeapYear = IsDate ( SYEAR ) Fin de Fonction: NextLeapYear Public Sub () Dim SYEAR , sDate , msgDim ans , StartYear , nIterDim myDate
à pied contre une année donnée jusqu'à ce qu'on trouve une année bissextile
StartYear = 1981 Photos yr = startYearnIter = 0myDate = "2/29 /" & yr
Do While ( ( IsLeapYear ( myDate ) = False ) et niter <10) niter = niter + 1an = an + 1myDate = "2/29 /" & yr Photos boucle
( niter <10) Thenmsg = " La prochaine année bissextile après " & StartYear & "est" & yrMsgBox (msg ) End If End Sub
3 modifier la variable " StartYear " pour contenir l'année que vous voulez calculer la prochaine année bissextile pour . Placez le curseur n'importe où dans la fonction NextLeapYear et appuyez sur F5. Le programme s'exécute , révélant le prochain saut à l'année ou avant que vous n'entriez .
4 créer l'interface utilisateur . Sélectionnez le code complet du programme que vous avez tapé et il a coupé le Presse-papiers (Ctrl -X). Cliquez sur l'élément " du projet ( leapyear ) " dans le volet du projet de nouveau, puis allez dans le menu "Insertion" et choisissez " User Form . " . Faites glisser et déposez une zone de texte et un bouton de commande sur la forme , avec le bouton situé sous le champ de saisie
Double- cliquez sur le bouton et le type (ne pas copier et coller ) le code suivant: function CommandButton1_Click : MsgBox ( NextLeapYear ( TextBox1.Text ) )
Positionnez le curseur dans n'importe quel espace de code ouvert à l'extérieur de la fonction CommandButton1_Click . Collez le code préalablement coupé le Presse-papiers .
5 Changement NextLeapYear à une fonction . Modifiez la ligne d'ouverture de NextLeapYear comme suit : . NextLeapYear Fonction publique ( startyear )
Supprimer la variable StartYear parmi les plusieurs instructions Dim , et supprimez le startyear de ligne = 1981 Photos Remplacer le variable msg avec le nom de la fonction ( NextLeapYear ) dans l'état msg = "Le prochain saut ... "
Supprimer l' instruction MsgBox qui suit que « NextLeapYear =" instruction . Vérifiez que les trois dernières lignes de code en fonction NextLeapYear lisent comme suit .
( Niter <10) ThenNextLeapYear = " La prochaine année bissextile après " & startyear & "est" & yrEnd Si
6 Utilisez votre programme de l'année bissextile . Alors que l'intérieur de la fenêtre de code UserForm1 , appuyez sur F5 , entrez un an dans la zone de texte et appuyez sur le bouton.
|
