Cómo programar todos los años bisiestos con vb
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!