comprobar en Excel un año bisiesto

[Fantasma]

He encontrado varios codigos de VB pero no he encontrado como aplicarlos a Excel, necesito ayuda pls.

 

[Juan Pablo González]

La comprobación de un año bisiesto es simplemente una comprobación matemática, cuál es la que ha encontrado para VB para ayudarle a "traducirla" ?

_________________
Regards,

Juan Pablo G.
MrExcel.com Consulting

 

[Juan Pablo González]

On 2002-09-30 07:23, Fantasma wrote:
Hola Juan P.

esto fue lo que encontré:

Function BisiestoSINO(Year As Date)As Boolean
Dim Mod400 As Long, Mod100 As Long, Mod4 As Long

BisiestoSINO = False 'Indica si es bisiesto o no
Mod400 = Year Mod 400
Mod100 = Year Mod 100
Mod4 = Year Mod 4

If (Mod400 = 0)then BisiestoSINO = True
If (Mod100 = 0)and(Mod400<>0)then bisiestoSINO =False
If (Modr = 0) and (Mod100<> 0)and(Mod400=0) then Bisiesto = True
End Function


Tambien encontre esta
Function BisiestoSINO (Year As DAte) As Boolean
BisiestoSINO = DAy (DateSerial(Year(fecha),3,0))=29
End function

Gracias por tu atencion.

 

[Juan Pablo González]

Usando la misma lógica de la segunda fórmula, algo así sirve:

Libro1
	E	F	G	H
1		Ao	EsBisiesto
2		2000	VERDADERO
3		2001	FALSO
4		2002	FALSO
5		2003	FALSO
6		2004	VERDADERO
7		2005	FALSO
8		2006	FALSO
9		2007	FALSO
10		2008	VERDADERO
11		2009	FALSO
12		2010	FALSO
13		2011	FALSO
14		2012	VERDADERO
15		2013	FALSO
16		2014	FALSO
Hoja2

_________________
Regards,

Juan Pablo G.
MrExcel.com Consulting

 

[Juan Pablo González]

On 2002-09-30 07:50, Fantasma wrote:
Super,

Un Millon de Gracias!