Hvordan beregne skuddår Med Microsoft Visual Basic

January 9

Microsoft Visual Basic har en rekke innebygde funksjoner, inkludert for beregning og konvertering datoer. En liten tanke brukes til definisjonen av et skuddår, kombinert med Visual Basic IsDate funksjonen, vil gjøre deg i stand til å beregne skuddår med Visual Basic.

Bruksanvisning

1 Åpne opp Microsoft Word og opprette et dokument som heter "LeapYear.doc." Skriv inn MS Word Visual Basic IDE ved å trykke Alt-F11.

Velg riktig modul der du kan skrive programkode. I prosjektruten til venstre i IDE-vinduet klikker du på plusstegnet (+) til venstre for elementet "Project (Leapyear)." Klikk på plusstegnet i mappen "Microsoft Word Objects", som vises umiddelbart under "Project (Leapyear)." Dobbeltklikk på "ThisDocument."

2 Tast inn programkoden. I det tomme kodevinduet, skriv eller kopier og lim inn følgende programkode:

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

Public Sub NextLeapYear ()
Dim sYear, sDate, msg
Dim yr, startYear, Niter
Dim myDate

"Gå opp fra gitt år til vi finner et skuddår

startYear = 1981

yr = startYear
Niter = 0
myDate = "2/29 /" og yr

Gjør Mens ((IsLeapYear (myDate) = False) Og Niter <10)
Niter = Niter + 1
yr = yr + 1
myDate = "2/29 /" og yr

Loop

Hvis (Niter <10) Deretter

msg = "The next leap year after " & startYear & " is " & yr MsgBox (msg)

Slutt om

End Sub

3 Endre "startYear" variabel til å inneholde det året du ønsker å beregne neste skuddår for. Plasser markøren hvor som helst inne i NextLeapYear funksjon og trykk F5. Programmet kjører, avslører den neste spranget på eller før året du har angitt.

4 Opprett brukergrensesnittet. Velg hele programmet koden du skrev inn og klippe det til utklippstavlen (Ctrl-X). Klikk på "Project (Leapyear)" element i prosjektruten igjen, så gå til "Insert" -menyen og velg "User Form". Dra og slipp en tekstboks og en kommandoknapp på skjemaet, med knappen plassert under tekstboksen.

Dobbeltklikk på knappen og type (ikke kopier og lim) inn følgende kode:
CommandButton1_Click funksjon:
MsgBox (NextLeapYear (TextBox1.Text))

Plasser markøren i enhver åpen kode plass utenfor CommandButton1_Click funksjon. Lim inn koden du tidligere kuttet til utklippstavlen.

5 Bytt NextLeapYear å være en funksjon. Endre åpningslinjen NextLeapYear å lyde som følger:
Public Function NextLeapYear (startyear)

Slett startYear variabel blant flere Dim uttalelser, og slette linjen startyear = 1981.

Bytt msg variabel med navnet på funksjonen (NextLeapYear) i setningen msg = "Det neste spranget ..."

Slett MsgBox uttalelse som følger at "NextLeapYear =" statement. Kontroller at de siste tre linjer med kode i funksjon NextLeapYear lyde.

Hvis (Niter <10) Deretter

NextLeapYear = "The next leap year after " & startyear & " is " & yr

Slutt om

6 Bruk din skuddår program. Mens inne koden vinduet UserForm1, trykk F5, skriv et år i tekstboksen, og trykk på knappen.