Microsoft Visual Basic tiene una variedad de funciones integradas , como 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 IsDate Visual Basic, le permitirá calcular los años bisiestos con Visual Basic . Cosas que necesitará
Microsoft Word, Excel u otro programa que contiene el IDE de Visual Basic ( entorno de desarrollo integrado)
Ver Más instrucciones
1

abren Microsoft Word y crear un documento denominado " LeapYear.doc . " Introduzca la Palabra IDE MS 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 de la entrada " Project ( LeapYear ) . " Haga clic en el signo más de la carpeta de " objetos de Microsoft Word ", que aparece inmediatamente debajo de " Project ( LeapYear ) . " Haga doble clic en " ThisDocument ".
2

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

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

Pública NextLeapYear Sub ( ) Dim sYear , sDATE , msgDim año , startYear , nIterDim miDate

a pie más que el año dado hasta que nos encontramos con un año bisiesto

startYear = 1,981 yr =

startYearnIter = 0myDate = "2 /29 /" & año

Do While ( ( IsLeapYear ( miDate ) = False ) y Niter < 10 ) Niter = Niter + 1 año = año + 1myDate = "2 /29 /" & año

Loop

Si salitre ( < 10 ) Thenmsg = " El próximo año bisiesto después " y startYear y "es" y yrMsgBox (msg ) End If 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 NextLeapYear y presione F5. El programa se ejecuta , revelando el próximo salto en o antes del año que ha introducido.
4

Crear la interfaz de usuario . Seleccione el código completo programa que ha escrito y lo corta en el portapapeles (Ctrl -X). Haga clic en el tema "Proyecto ( LeapYear ) " en el panel de proyecto nuevo , y luego ir al menú "Insertar " y seleccione " formulario de usuario . " . Arrastre y suelte un cuadro de texto y un botón de comando al formulario con el botón situado debajo del cuadro de texto

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

Coloque el cursor en cualquier espacio de código abierto fuera de la función CommandButton1_Click . Pega el código que previamente enviados al portapapeles .
5

Cambio NextLeapYear sea una función. Cambie la línea de apertura de NextLeapYear de la siguiente manera : . NextLeapYear Función Pública ( startyear )

Eliminar la variable startYear entre las varias instrucciones Dim , y eliminar la startyear línea = 1981

Sustituya el variables msj con el nombre de la función ( NextLeapYear ) en el MSG sentencia = "El siguiente salto ... "

elimine la instrucción MsgBox que se deduce que " NextLeapYear =" instrucción . Verifique que las tres últimas líneas de código en función NextLeapYear leen de la siguiente manera .

Si ( salitre < 10 ) ThenNextLeapYear = "El próximo año bisiesto después de" y startyear y "es" y yrEnd Si

6

Use su 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.