Programación Ifx

Subcomando privado 1_Click()

Muestra el año como un número entero y y como un número entero

Año = Val(InputBox("El año a juzgar es:"))

Llamar a runnian(año, y)

Si y = 1, entonces

Imprimir cadena (año); SPC(2);

Otros

Imprimir cadena (año); SPC (2); "¡El año no es bisiesto!"

Terminará si...

Fin de unión

Año de subejecución común (n es un número entero, x es un número entero)

Salto difuso en forma de número entero

Si n módulo 400 = 0, entonces

salto = 1

De lo contrario, si n Mod 4 = 0 y n Mod 100 <& gtEntonces 0

salto = 1

Otro

Salto = 0

Terminará si...

x = Salto

Conector final