Tecnología

Inicio

Cómo calcular el año bisiesto Con Microsoft Visual Basic

Microsoft Visual Basic tiene una variedad de funciones incorporadas, incluyendo para el cálculo y la conversión de fechas. Un poco de reflexión aplicada a la definición de un año bisiesto, combinado con la función de Visual Basic IsDate, le permitirá calcular los años bisiestos con Visual Basic.

Instrucciones

1 Abre Microsoft Word y cree un documento llamado "LeapYear.doc." Introduzca el IDE MS Word de Visual Basic presionando Alt-F11.

Seleccione el módulo correcto en el que introducir el código del programa. En el panel Proyecto a la izquierda de la ventana del IDE, haga clic en el signo más (+) a la izquierda del elemento "Proyecto (LeapYear)." Haga clic en el signo más de la carpeta "Objetos de Microsoft Word", que aparece inmediatamente debajo de "Proyecto (LeapYear)." Haga doble clic en "ThisDocument".

2 Introduzca el código del programa. En el código de ventana en blanco, escriba o copie y pegue el siguiente código de programa:

Función pública ESAÑOBISIESTO (sYear como variante)
ESAÑOBISIESTO = IsDate (sYear)
End Function

Public Sub NextLeapYear ()
Dim sYear, SDATE, msg
Dim año, StartYear, niter
myDate Dim

"Caminar desde el año determinado hasta que encontremos un año bisiesto

StartYear = 1981

yr = StartYear
niter = 0
myDate = "2/29 /" & año

Hacer mientras que ((ESAÑOBISIESTO (myDate) = false) Y niter <10)
niter = 1 + niter
yr = 1 año +
myDate = "2/29 /" & año

Lazo

Si (niter <10) A continuación,

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

Terminara si

End Sub

3 Cambiar la variable "StartYear" para contener el año que desea calcular el próximo año bisiesto para. Coloque el cursor en cualquier lugar dentro de la función y presione F5 NextLeapYear. El programa se ejecuta, revelando el siguiente salto en o antes del año que ha introducido.

4 Crear la interfaz de usuario. Seleccione el código de programa completo que ha escrito y cortar al portapapeles (Ctrl-X). Haga clic en el "Proyecto (LeapYear)" elemento en el panel Proyecto de nuevo, a continuación, vaya al menú "Insertar" y selecciona "formulario de usuario." Arrastrar y soltar un botón de comando de un cuadro de texto y en la forma, con el botón situado debajo del cuadro de texto.

Haga doble clic en el botón y el tipo (no copie y pegue) el siguiente código:
CommandButton1_Click función:
MsgBox (NextLeapYear (TextBox1.Text))

Coloque el cursor en cualquier espacio de código abierto fuera de la función CommandButton1_Click. Pegar el código que previamente cortado en el portapapeles.

5 Cambiar NextLeapYear a una función. Cambie la línea de apertura de NextLeapYear para que lea como sigue:
Función pública NextLeapYear (StartYear)

Eliminar la variable StartYear de entre las varias instrucciones Dim, y eliminar la línea de StartYear = 1,981.

Sustituya la variable msg con el nombre de la función (NextLeapYear) en el comunicado msg = "El siguiente salto ..."

Eliminar la instrucción MsgBox que se deduce que "NextLeapYear =" instrucción. Compruebe que las tres últimas líneas de código en función NextLeapYear dicen lo siguiente.

Si (niter <10) A continuación,

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

Terminara si

6 Utilice el programa de año bisiesto. Mientras que dentro de la ventana de código UserForm1, presione F5, introduzca un año en el cuadro de texto y pulse el botón.