¿Cómo utilizar la programación vb para determinar si es un año bisiesto?
Opción explícita
La función es el año bisiesto (y como entero) como booleano '¿Es este un año bisiesto?'
IsLeapYear = ((y Mod 4 = 0) and (y Mod 100 <>0)) o (y Mod 400 = 0)
Fin de función
Subcomando privado 1_Click()
Texto MsgBox1. text&IIF(isaño bisiesto(Cint(texto 1 . texto)),"yes","no")&"año bisiesto."
Conector final