Microsoft Visual Basic har en mängd inbyggda funktioner , bland annat för att beräkna och omvandla datum . En liten tanke tillämpas på definitionen av ett skottår , kombinerat med Visual Basic IsDate funktionen gör att du kan beräkna skottår med Visual Basic . Saker du behöver
Microsoft Word , Excel eller andra program som innehåller Visual Basic IDE ( integrerad utvecklingsmiljö )
Visa fler instruktioner
1
Öppna upp Microsoft Word och skapa ett dokument som heter " LeapYear.doc . " Ange MS Word Visual Basic IDE genom att trycka på Alt - F11 .
Välj rätt modul som du skriver programkod . I Project rutan till vänster om IDE fönstret , klicka på plus ( + ) tecknet till vänster om posten " Project ( leapyear ) . " Klicka på plustecknet för mappen " Microsoft Word Objects , " som visas direkt under " Projekt ( leapyear ) . " Dubbelklicka på " ThisDocument . "
2
Ange programkoden . I den tomma koden fönstret , typ eller kopiera och klistra in följande programkod :
Public Function IsLeapYear ( sYear As Variant ) IsLeapYear = IsDate ( sYear ) End Function
Public Sub NextLeapYear ( ) Dim sYear , sdate , msgDim yr , startYear , nIterDim MyDate
promenad upp från visst år tills vi hittar en skottår
startYear = 1981
yr = startYearnIter = 0myDate = " 29/2 /" & yr
Do While ( ( IsLeapYear ( MyDate ) = False ) och SALPETER < 10 ) SALPETER = SALPETER + 1år = yr + 1myDate = " 29/2 /" & yr
Loop
p Om ( SALPETER < 10 ) Thenmsg = "nästa skottår efter " & startYear & " är " & yrMsgBox ( msg ) End If
End Sub Addera 3
Ändra " startYear " variabel att innehålla det år du vill beräkna nästa skottår för . Placera markören någonstans inuti NextLeapYear funktion och tryck på F5 . Programmet exekverar , avslöjar nästa steg på eller före det år du skrev .
4
Skapa användargränssnittet . Välj hela programmet koden du skrev och skär den till Urklipp ( Ctrl - X ) . Klicka på " Project ( leapyear ) " föremål i projektet rutan igen , sedan gå till " Infoga " -menyn och välj "User Form . " . Dra och släpp en textruta och en kommandoknapp på formuläret , med knapp placerad under textrutan
Dubbelklicka på knappen och typ ( inte kopiera och klistra in ) följande kod : CommandButton1_Click funktion : MsgBox ( NextLeapYear ( TextBox1.Text ) ) katalog
Placera markören i någon öppen kod rymden utanför CommandButton1_Click funktionen . Klistra in koden du tidigare klippa till Urklipp .
5
Ändra NextLeapYear vara en funktion . Ändra den första raden av NextLeapYear enligt följande : . Public Function NextLeapYear ( startyear ) katalog
Radera startYear variabel bland flera Dim uttalanden , och ta bort linjen startyear = 1981
Byt msg variabel med namnet på funktionen ( NextLeapYear ) i meddelandet msg = " Nästa steg ... "
Radera MsgBox uttalande som följer att " NextLeapYear = " uttalande . Kontrollera att de tre sista rader kod i funktionen NextLeapYear följande lydelse .
P Om ( SALPETER < 10 ) ThenNextLeapYear = "Nästa skottår efter " & startyear & " är " & yrEnd Om
6
Använd ditt program skottår . Även inne i UserForm1 koden fönstret , tryck på F5 , skriv ett år i textrutan och tryck på knappen .
