Microsoft Visual Basic verfügt über eine Vielzahl von integrierten Funktionen , unter anderem für die Berechnung und Konvertieren von Datumsangaben . Ein wenig Nachdenken auf die Definition von einem Schaltjahr angewendet , kombiniert mit der Visual Basic IsDate Funktion ermöglicht es Ihnen, in Schaltjahren mit Visual Basic zu berechnen. Things You
Microsoft Word, Excel oder anderen Programmen , die das Visual Basic IDE ( integrierte Entwicklungsumgebung )
brauchen anzeigen Weitere Anweisungen
1

Öffnen von Microsoft Word und erstellen ein Dokument namens " LeapYear.doc . " Geben Sie den MS Word Visual Basic IDE mit Alt- F11 .

Wählen Sie das richtige Modul, in dem Programm -Code einzugeben. Im Projekt- Fenster auf der linken Seite des IDE-Fensters auf das Plus- Zeichen (+) links neben dem Punkt " Project ( LeapYear ) . " Klicken Sie auf das Pluszeichen des Ordners " Microsoft Word Objekte", die sofort erscheint unter " Project ( LeapYear ) . " Doppelklicken Sie auf " ThisDocument . "
2

Geben Sie den Programmcode . In das leere Codefenster eingeben oder kopieren und fügen Sie den folgenden Programmcode:

Public Function IsLeapYear ( sYear As Variant ) IsLeapYear = IsDate ( sYear ) End Function Public Sub

NextLeapYear () Dim sYear , sDate , msgDim yr, startYear , nIterDim myDate

" Gehen Sie aus dem jeweiligen Jahr , bis wir ein Schaltjahr

startYear = 1981

yr = startYearnIter = 0myDate finden = " 2/29 /" & yr

Do While ( ( IsLeapYear ( myDate ) = False) und niter <10 ) = Salpeter Salpeter + 1 Jahr = yr + 1myDate = " 2/29 /" & yr

Schleife

( Salpeter <10 ) Thenmsg = "Der nächste Sprung Jahr nach " & startYear & " ist" & yrMsgBox ( msg ) End If End Sub

3

ändern Sie den " startYear " Variable, um das Jahr, das Sie berechnen wollen die nächste Schaltjahr für enthalten . Positionieren Sie den Cursor irgendwo innerhalb der NextLeapYear Funktion und drücken Sie F5. Das Programm führt , enthüllt die nächste Sprung am oder vor dem Jahr Sie eingegeben haben.
4

Erstellen der Benutzeroberfläche . Wählen Sie das komplette Programm Code, den Sie eingegeben haben, und schneiden Sie es in die Zwischenablage (Strg -X) . Klicken Sie auf das " Project ( LeapYear ) " Artikel in der Projekt- Fenster wieder , dann zum Menü "Einfügen" , und wählen Sie " User Form . " . Ziehen Sie ein Textfeld und eine Befehlsschaltfläche auf das Formular , mit dem Button unter dem Textfeld positioniert

Doppelklicken Sie auf die Schaltfläche , und geben Sie ( nicht kopieren und einfügen ) den folgenden Code: CommandButton1_Click Funktion : MsgBox ( NextLeapYear ( TextBox1.Text ) )

positionieren Sie den Cursor in einem offenen Raum außerhalb des Code CommandButton1_Click Funktion . Fügen Sie den Code, den Sie zuvor in die Zwischenablage zu schneiden.
5

ändern NextLeapYear eine Funktion sein . Ändern Sie die erste Zeile von NextLeapYear wie folgt : . Public Function NextLeapYear ( startyear )

löschen startYear Variable aus den mehrere Dim-Anweisungen , und löschen Sie die Zeile startyear = 1981

Ersetzen der msg Variable mit dem Namen der Funktion ( NextLeapYear ) in der Gewinn- msg = "Der nächste Sprung ... "

löschen MsgBox -Anweisung, dass " NextLeapYear = "-Anweisung folgt . Stellen Sie sicher, dass die letzten drei Zeilen Code in der Funktion NextLeapYear wie folgt zu lesen.

( Salpeter <10 ) ThenNextLeapYear = "Der nächste Sprung Jahr nach " & startyear & " ist" & yrEnd Wenn

6

Verwenden Sie Ihre Schaltjahr Programm . Während im Inneren des UserForm1 Code-Fenster , drücken Sie F5 , geben Sie ein Jahr in das Textfeld ein, und drücken Sie die Taste.