santiagomf respondió:
Prueba con este código: Private Sub btnCalcular_Click() Dim anoActual As Integer Dim anoNacim As Integer Dim i As Integer Dim nBisiestos As Integer ' El año actual es el año de la fecha del sistema anoActual = Year(Now()) ' Comprobamos que tenga una...