Come calcolare anno bisestile con Microsoft Visual Basic

Visual Basic dispone di una varietà di funzioni built - in , tra cui per il calcolo e la conversione di date . Un piccolo pensiero applicato alla definizione di un anno bisestile , in combinazione con la funzione IsDate Visual Basic , vi permetterà di calcolare gli anni bisestili con Visual Basic . Cose che ti serviranno
Microsoft Word , Excel o un altro programma che contiene il Visual Basic ( ambiente di sviluppo integrato ) economici Mostra più istruzioni
1

Aperte fino Microsoft Word e creare un documento chiamato " LeapYear.doc . " Inserisci il MS Word Visual Basic IDE premendo Alt - F11 .

Selezionare il modulo corretto in cui immettere il codice del programma . Nel riquadro del progetto nella parte sinistra della finestra IDE , fare clic sul segno (+) più a sinistra della voce " Progetto ( LeapYear ) . " Fare clic sul segno più della cartella " Microsoft Word Objects ", che appare immediatamente sotto "Progetto ( LeapYear ) . " Fare doppio clic su " ThisDocument ".
2

Inserisci il codice del programma . Nel codice della finestra vuota , digitare o copiare e incollare il seguente codice di programma :

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

pubblico NextLeapYear Sub ( ) Dim sYear , sDate , msgDim yr , startYear , nIterDim myDate

' Cammina fino dall'anno dato fino a trovare un anno bisestile

startYear = 1981

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

Do While ( ( IsLeapYear ( myDate ) = False) e niter < 10) niter = niter + 1 anno = yr + 1myDate = "2/29 /" & yr

loop

niter ( < 10) Thenmsg = " Il prossimo anno bisestile dopo " & startYear & " è" & yrMsgBox ( msg ) End If End Sub

3

modificare la variabile " startYear " per contenere l' anno che si desidera calcolare il prossimo anno bisestile per . Posizionare il cursore in qualsiasi punto all'interno della funzione NextLeapYear e premere F5 . Il programma esegue , rivelando il prossimo salto in anno o prima di entrare .
4

creare l'interfaccia utente . Selezionare il codice del programma completo è stata digitata e tagliato negli appunti ( Ctrl - X) . Fare clic sulla voce "Progetto ( LeapYear ) " nel riquadro del progetto di nuovo, poi andare nel menu "Inserisci" e scegliere " form utente . " . Trascinare e rilasciare una casella di testo e un pulsante di comando nel form , con il pulsante posizionato sotto la casella di testo

Fare doppio clic sul pulsante e il tipo ( non copiare e incollare ) il codice seguente : function CommandButton1_Click : MsgBox ( NextLeapYear ( TextBox1.Text ) ) per

Posizionare il cursore in qualsiasi spazio di codice aperto al di fuori della funzione CommandButton1_Click . Incolla il codice precedentemente tagliato negli Appunti .
5

Cambia NextLeapYear di essere una funzione. Modificare la riga di NextLeapYear apertura come segue : . Funzione Pubblica NextLeapYear ( startyear ) per

eliminare la variabile startYear tra le diverse istruzioni Dim , ed eliminare la startyear line = 1981

Sostituire il variabile msg con il nome della funzione ( NextLeapYear ) nella dichiarazione msg = "Il prossimo salto ... "

eliminare l'istruzione MsgBox che segue che " NextLeapYear =" istruzione . Verificare che le ultime tre righe di codice in funzione NextLeapYear letti come segue .

( Niter < 10) ThenNextLeapYear = " Il prossimo anno bisestile dopo " & startyear & "è" & yrEnd Se

6

Usa il tuo programma di anno bisestile . Mentre all'interno della finestra del codice UserForm1 , premere F5 , immettere un anno nella casella di testo e premere il pulsante .

• Come copiare automaticamente da Excel a PowerPoint Utilizzo di una macro VBA 
• Tutorial per l'aggiunta di Visual tabelle di base di Word