Microsoft Visual Basic har en rekke innebygde funksjoner, blant annet for å beregne og konvertere datoer. En liten tanke gjaldt definisjonen av et skuddår , kombinert med Visual Basic IsDate funksjon, vil gjøre deg i stand til å beregne skuddår med Visual Basic. Du trenger
Microsoft Word, Excel eller et annet program som inneholder Visual Basic IDE (integrert utviklingsmiljø )
Vis flere instruksjoner
en

Åpne opp Microsoft Word og lage 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 Prosjekt ruten til venstre for IDE -vinduet klikker du på pluss ( + ) tegnet til venstre for posten " Project ( Leapyear ) . " Klikk på plusstegnet til mappen " Microsoft Word-objekter ", som vises rett under " Project ( Leapyear ) . " Dobbeltklikk på " ThisDocument . "
2

Skriv inn programkode. I det tomme kode vinduet , skriv eller kopier og lim inn følgende programkode : en

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

Public Sub NextLeapYear ( ) Dim sYear , sDate , msgDim yr , startYear , nIterDim mydate

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

startYear = 1981

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

Mens ( ( IsLeapYear (Dato ) = False ) og Niter < 10 ) Niter = Niter + 1 års = yr + 1myDate = " 2/29 /" & yr

Loop
p Hvis ( Niter < 10 ) Thenmsg = " Den neste skuddår etter " & startYear & " er " & yrMsgBox ( MSG) End If

End Sub
3

Endre " startYear " variable å inneholde det året du ønsker å beregne den neste skuddår for . Plasser markøren hvor som helst inne i NextLeapYear funksjon og trykk F5 . Programmet utfører , avslører den neste spranget på eller før året du skrev inn.
4

Lag brukergrensesnittet. Velg komplett program koden du skrev og klippe det til utklippstavlen ( Ctrl -X ) . Klikk på " Project ( Leapyear ) " element i prosjektet panelet igjen , og deretter gå til " Insert"-menyen og velg " User Form . " . Dra og slippe 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 en åpen kode plass utenfor CommandButton1_Click funksjonen. Lime inn koden du nyklipte til utklippstavlen.
5

Endre NextLeapYear å være en funksjon . Endre åpningen linjen i NextLeapYear å lyde som følger : . Public Function NextLeapYear ( startyear )

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

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

Slett MsgBox uttalelse som følger at " NextLeapYear = " statement. Kontroller at de siste tre linjer med kode i funksjon NextLeapYear lyde .
P Hvis ( Niter < 10 ) ThenNextLeapYear = " Den neste skuddår etter " & startyear & " er " & yrEnd Hvis

6

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