Red de conocimiento informático - Material del sitio web - Cómo programar todos los años bisiestos con vb

Cómo programar todos los años bisiestos con vb

Subcomando privado 1_Click()

Etiqueta I como un número entero

Etiqueta1. Caption = "Imprimir todos los años bisiestos, esto puede llevar algún tiempo, tenga paciencia..."

Para i = 1 a 10000

Si IsRunYear(i) = True, entonces

Texto1. Texto = Texto1. Texto Comité de Ciencia y Tecnología (1) vbCrLf

El período inactivo del evento

Terminará si...

Entonces

Conector final

Función para determinar si es año bisiesto.

La función es un valor booleano RunYear (CurYear es un número entero)

Indicador booleano Dim

Si CurYear Mod 4 = 0, entonces

Si CurYear Mod 100 = 0, entonces

Si CurYear Mod 400 = 0, entonces

Flag = True

Este es un año bisiesto

Otro

Flag=False

Terminará si...

Otro

Flag=True

Si... Terminará

Otros

Flag = False

Terminará si...

IsRunYear = flag 'Asigna el valor de la variable al deseado La función devuelta.

Finalizar función

Nota:

Debido a que se van a imprimir todos los años del 1 al 10 000, el programa se repite 10 000 veces, lo que lleva algo de tiempo. Espere. ¡pacientemente!