Come calcolare Leap Year Con Microsoft Visual Basic

December 3

Microsoft Visual Basic ha una varietà di funzioni built-in, anche per il calcolo e la conversione di date. Un piccolo pensiero applicato alla definizione di un anno bisestile, in combinazione con la funzione di Visual Basic IsDate, vi permetterà di calcolare gli anni bisestili con Visual Basic.

istruzione

1 Aprire Microsoft Word e creare un documento chiamato "LeapYear.doc." Inserire il MS Word di Visual Basic premendo Alt-F11.

Selezionare il modulo corretto in cui inserire 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 "Oggetti di Microsoft Word", che appare immediatamente sotto "Progetto (LeapYear)." Fare doppio clic su "ThisDocument".

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

ANNO.BISESTILE Funzione pubblica (sYear As Variant)
ANNO.BISESTILE = IsDate (sYear)
End Function

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

'A piedi fino dal dato anno fino a trovare un anno bisestile

startYear = 1981

yr = startYear
niter = 0
myDate = "2/29 /" & yr

Do While ((ANNO.BISESTILE (Data) = false) E niter <10)
niter = niter + 1
yr = yr + 1
myDate = "2/29 /" & yr

Ciclo continuo

Se (niter <10) Poi

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

Finisci se

End Sub

3 Modificare la variabile "startYear" per contenere l'anno si vuole calcolare l'anno bisestile successivo per. Posizionare il cursore in qualsiasi punto all'interno della funzione e premere F5 NextLeapYear. Il programma esegue, rivelando il prossimo salto o prima dell'anno immesso.

4 Creare l'interfaccia utente. Selezionare il codice completo del programma digitato e tagliarla negli appunti (Ctrl-X). Fare clic sul "Progetto (LeapYear)" elemento nel riquadro del progetto di nuovo, poi andare al menu "Inserisci" e scegliere "modulo 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:
Funzione CommandButton1_Click:
MsgBox (NextLeapYear (TextBox1.Text))

Posizionare il cursore in qualsiasi spazio di codice aperto di fuori della funzione CommandButton1_Click. Incollare il codice precedentemente tagliate negli Appunti.

5 Cambiare NextLeapYear essere una funzione. Modificare la riga di NextLeapYear apertura come segue:
Funzione pubblica NextLeapYear (startyear)

Eliminare la variabile startYear tra le varie istruzioni Dim, e cancellare la linea di startyear = 1981.

Sostituire la variabile msg con il nome della funzione (NextLeapYear) nello stato msg = "Il prossimo salto ..."

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

Se (niter <10) Poi

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

Finisci 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.