Microsoft Visual Basic har en række indbyggede funktioner, herunder for beregning og konvertering datoer. En lille tanke anvendes til definitionen af et skudår , kombineret med Visual Basic ISDATE funktion, vil gøre det muligt for dig at beregne skudår med Visual Basic. Ting du skal
Microsoft Word, Excel eller et andet program , der indeholder Visual Basic IDE ( integreret udviklingsmiljø )
Vis Flere Instruktioner
1
Open op Microsoft Word og skabe et dokument kaldet " LeapYear.doc ". Indtast MS Word Visual Basic IDE ved at trykke Alt - F11 .
Vælg det korrekte modul, hvor at indtaste programkode. I Project ruden til venstre for IDE -vinduet , skal du klikke på plus (+) tegnet til venstre for posten " Project ( LeapYear ) . " Klik på plus-tegnet for mappen " Microsoft Word Objects ", som vises umiddelbart under " Project ( LeapYear ) . " Dobbeltklik på " ThisDocument ".
2
Indtast programmets kode. I det tomme kodevinduet , type eller kopiere og indsætte følgende program kode : Hej
Public Function IsLeapYear ( sYear Som Variant ) IsLeapYear = ISDATE ( sYear ) End Function
Public Sub NextLeapYear ( ) Dim sYear , sDate , msgDim yr , startYear , nIterDim myDate
' Gå op fra det pågældende år , indtil vi finder et skudår
startYear = 1981
yr = startYearnIter = 0myDate = " 2/29 /" & yr
Do While ( ( IsLeapYear ( myDate ) = False ) og Niter <10 ) Niter = Niter + 1 års = yr + 1myDate = " 2/29 /" & yr
Loop
p Hvis ( Niter < 10) Thenmsg = " Det næste skudår efter " & startYear & "er " & yrMsgBox ( msg ) End If
End Sub
3
Ændr " startYear " variable til at indeholde det år, du vil beregne det næste skudår for . Placer markøren et vilkårligt sted inde i NextLeapYear funktion, og tryk F5 . Programmet udfører , afslører næste spring på eller før det år, du har indtastet.
4
Opret brugergrænsefladen. Vælg det komplette program kode, du har skrevet , og klippe det til Udklipsholder (Ctrl -X) . Klik på " Project ( LeapYear )" emne i Project ruden igen, derefter gå til "Indsæt" menuen og vælg "Bruger Form ". . Træk og slip en tekstboks, og en kommandoknap til formularen , med knappen placeret under tekstfeltet
Dobbeltklik på knappen og type ( ikke kopiere og indsætte ) følgende kode : CommandButton1_Click funktion: MsgBox ( NextLeapYear ( TextBox1.Text ) )
Placer markøren i et åbent kode rummet udenfor CommandButton1_Click funktion. Indsæt koden du tidligere skæres til Udklipsholder.
5.
Change NextLeapYear at være en funktion . Skift åbningen linje NextLeapYear til følgende ordlyd : . Public Function NextLeapYear ( startyear )
Slet startYear variable blandt de mange Dim udsagn og slette den linje startyear = 1981
Udskift msg variabel med navnet på den funktion ( NextLeapYear ) i oversigten msg = " den næste spring ... "
Slet MsgBox erklæring, følger, at " NextLeapYear =" erklæring. Kontroller, at de sidste tre linjer kode i funktion NextLeapYear læses som følger.
P Hvis ( Niter <10 ) ThenNextLeapYear = " Det næste skudår efter " & startyear & "er " & yrEnd Hvis
< br > 6
Brug din skudår program. Mens inde UserForm1 kodevinduet , skal du trykke på F5 , indtast et år i tekstfeltet , og tryk på knappen .