Ako vypočítať Priestupný rok s Microsoft Visual Basic

Microsoft Visual Basic má rad vstavaných funkcií , vrátane výpočtu a konverziu dát . Trochu myšlienka použitá na definovanie priestupný rok , v kombinácii s funkciou Visual Basic isda , vám umožní vypočítať prestupného roka pomocou jazyka Visual Basic . Veci , ktoré budete potrebovať v Microsoft Word , Excel alebo iný program , ktorý obsahuje Visual Basic IDE ( integrované vývojové prostredie )
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte aplikáciu Microsoft Word a vytvoriť dokument nazvaný " LeapYear.doc . " Zadajte MS Word Visual Basic IDE stlačením Alt - F11 .

Vyberte správny modul , v ktorom sa vstúpiť do programového kódu . V table Project v ľavej časti okna IDE , kliknite na znamienko plus ( + ) znamienko na ľavej strane položky " Project ( LeapYear ) . " Kliknite na znamienko plus zložky " Objekty programu Microsoft Word " , ktoré sa objavia ihneď pod " Project ( LeapYear ) . " Double - kliknite na " ThisDocument . "
2

Zadajte kód programu . V prázdnej kód okná , typu alebo skopírujte a vložte nasledujúci kód programu :

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

Public Sub NextLeapYear ( ) Dim sYear , SDAT , msgDim rok , startYear , nIterDim myDay

" Prejdite až od daného roka , kým nenájdeme priestupný rok

startYear = 1981

yr = startYearnIter = 0myDate = " 2 /29 /" a rok

while ( ( IsLeapYear ( myDay ) = False ) a liadok < 10 ) , liadok = liadok + 1r = yr + 1myDate = " 2 /29 /" a rok

Loop

( liadok < 10 ) Thenmsg = " budúci priestupný rok po " & startYear & " je " & yrMsgBox ( msg ) End If

End Sub
3

Zmeňte " startYear " premennú obsahovať rok , ktorú chcete vypočítať budúci priestupný rok . Umiestnite kurzor kdekoľvek vnútri funkcie NextLeapYear a stlačte kláves F5 . Program spustí , odhaľuje ďalší skok na alebo pred rokom , ktorý ste zadali .
4

Vytvorenie používateľského rozhrania . Vyberte si kompletnú programový kód , ktorý ste zadali , a znížiť ho do schránky ( Ctrl - X ) . Kliknite znovu na " projekt ( LeapYear ) " položku v table Project , prejdite do menu " Vložiť " a vyberte " User formulár . " . Drag and drop textové pole a príkazové tlačidlo do formulára , pomocou tlačidla umiestneného pod textové pole

Dvakrát kliknite na tlačidlo a typ ( nie skopírovať a vložiť ) nasledujúci kód : function CommandButton1_Click : MsgBox ( NextLeapYear ( TextBox1.Text ) )

Umiestnite kurzor do ľubovoľného otvoreného kódu priestoru mimo funkciu CommandButton1_Click . Vložte kód ste už rez do schránky .
5

Zmena NextLeapYear byť funkcie . Zmena otváracia rad NextLeapYear takto : . Public Function NextLeapYear ( startyear )

Odstrániť premennú startYear z radov niekoľkých Dim výkazov , a odstráňte riadok startyear = 1981

Vymeňte msg premenná s názvom funkcie ( NextLeapYear ) vo výkaze msg = " ďalší skok ... "

Odstrániť vyhlásenie MsgBox , ktoré vyplýva , že " NextLeapYear = " vyhlásenie . Overte , že posledné tri riadky kódu vo funkcii NextLeapYear takto .

If ( liadok < 10 ) ThenNextLeapYear = " budúci priestupný rok po " a startyear & " je " & yrEnd Ak

6

Použite svoj ​​priestupný rok program . Kým v okne UserForm1 kódu , stlačte kláves F5 , zadajte rok do textového poľa , a stlačte tlačidlo .

• Predchádzajúca strana: Ako automaticky skopírovať z programu Excel do programu PowerPoint pomocou VBA makier 
• Ďalšia strana: Cvičenie pre pridanie Visual Basic tabuľky programu Word