Pregunta de programación de VB: Dado cualquier año, determine si el año es bisiesto y determine qué estación es y cuántos días tiene el mes según el mes dado. Año bisiesto...

Función LongYear(Y) como booleano 'El año conocido devuelve si es un año consecutivo

Si (Y Mod 4 = 0 O Y Mod 400 = 0) And Y Mod 100 <> 0 Entonces

LongYear=True

Else

LongYear=False

Finalizar si

Finalizar función

Función MonthDayCount(Y,M) 'Devuelve el número de días del mes dado el año y el mes

Seleccione el mes del caso

Caso 4,6, 9,11

MonthDayCount=30

Caso 2

MonthDayCount=IIF(LongYear(Y)=True,29,28)

Case Else

MonthDayCount=31

Fin de Selección

Fin de Función

Función Temporada(M)' El mes conocido devuelve la temporada

Seleccione el mes del caso

Caso 3,4,5

Temporada="Primavera"

Caso 6,7,8

Temporada="Verano"

Caso 9,10,11

Temporada="Otoño"

Caso Otro

Razón ="Invierno"

Finalizar selección

Finalizar función