SQL SERVER - TESTER SI UNE DATE TRANSMISE EST BISSEXTILE OU NON

---------------------------------------------------------------------
SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

---------------------------------------------------------------------
ALTER  FUNCTION TEST_BISSEXTILE 
(
	@YEAR INT
)
	RETURNS BIT
AS
-- Vérification si l'année transmise est une année bissextile 

BEGIN
-- @YEAR est l'année considérée
-- RENVOI 1 SI VRAI ET 0 SI FAUX

	DECLARE @RESULTAT BIT
	SET @RESULTAT = 0
	IF ISNUMERIC(@YEAR)=0 
		RETURN 0

	DECLARE @RESTESECULAIRE INT
	DECLARE @RESTEBISSEXTILE INT

	SET @RESTESECULAIRE = @YEAR % 100

	IF @RESTESECULAIRE = 0
		BEGIN
		SET @RESTEBISSEXTILE = @YEAR % 400

		IF @RESTEBISSEXTILE = 0 
			SET @RESULTAT = 1
		END
	ELSE
		BEGIN
		SET @RESTEBISSEXTILE = @YEAR % 4
		
		IF @RESTEBISSEXTILE = 0 
			SET @RESULTAT = 1
		END

	RETURN @RESULTAT

END

---------------------------------------------------------------------
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

---------------------------------------------------------------------

-- Pour tester cette fonction :

 SELECT dbo.TEST_BISSEXTILE(1996) AS BISSEXTILE
-- et
 SELECT dbo.TEST_BISSEXTILE(2001) AS BISSEXTILE