Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 614
Nombre de snippets : 1940
Connexion

Determiner si une année est bissextile

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 19/10/2006 08:55:50 et initié par Renfield [Liste]
Date de mise à jour : 23/10/2006 21:20:02
Vue : 27557
Catégorie(s) : Date & Heure
Langages dispo pour ce code :
- VB6, VBA
- C, C++
- C# 1.x, C# 2.x
- VB6, VBA, VBScript
- Windev
- VB6, VBA
- VB 2005, VB6, VBScript
- VB6, VBA
- Delphi 5
- Java
- SQL, SQL 2005
- VB 2005, VB 2008
- PHP 4, PHP 5
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 19/10/2006
Posté par Renfield [Liste]
DateMAJ : 23/10/2006 
Public Function IsLeapYear(ByVal vzInput As Variant) As Boolean
Dim nYear As Integer
    If VarType(vzInput) = vbDate Then
        nYear = DatePart("YYYY", vzInput)
    ElseIf IsNumeric(vzInput) Then
        nYear = vzInput
    Else
        Exit Function
    End If
    IsLeapYear = IsDate(nYear & "-02-29")
End Function
Remarque :
possibilité de lui passer une date (la fonction considerera l'année de la date fournie)
ou de passer l'année :

a = IsLeapYear ( #10/19/2006# )
ou
a = IsLeapYear ( 2006 )
Langage : C , C++
Date ajout : 19/10/2006
Posté par Renfield [Liste]
DateMAJ : 20/10/2006 
#define IsLeapYear(vYear)  ((!(vYear & 3) && (vYear % 100)) || !(vYear % 400))
Langage : C# 1.x , C# 2.x
Date ajout : 19/10/2006
Posté par MorpionMx [Liste]

DateTime.IsLeapYear(annee);
Langage : VB6 , VBA , VBScript
Date ajout : 19/10/2006
Posté par EBArtSoft [Liste]
DateMAJ : 19/10/2006 

Public Function IsLeapYear(ByRef d As Variant) As Boolean
    Select Case VarType(d)
    Case vbDate: Dim f&: f = Year(d): IsLeapYear = ((f Mod 4 = 0) And (f Mod 100)) Or (f Mod 400 = 0)
    Case vbLong, vbInteger, vbByte:   IsLeapYear = ((d Mod 4 = 0) And (d Mod 100)) Or (d Mod 400 = 0)
    End Select
End Function
Langage : Windev
Date ajout : 19/10/2006
Posté par Elian Lacroix [Liste]
Info("bissextile ? "+DateValide(<AAAA>+"0229"))
Langage : VB6 , VBA
Date ajout : 19/10/2006
Posté par mortalino [Liste]
Function IsLeapYear(ByVal vYear As Variant) As Boolean
    If VarType(vYear) = vbDate Then
        If DateDiff("d", CDate("01/01/" & DatePart("YYYY", vYear)), _
                         CDate("31/12/" & DatePart("YYYY", vYear))) = 365 Then IsLeapYear = True
    ElseIf IsNumeric(vYear) Then
        If DateDiff("d", CDate("01/01/" & vYear), _
                         CDate("31/12/" & vYear)) = 365 Then IsLeapYear = True
    End If
End Function

Sub Exemple_Utilisation()
    MsgBox IsLeapYear(2004) ' retourne vrai
    MsgBox IsLeapYear(Date) ' retourne faux
End Sub
Remarque :
Encore une autre technique...
Langage : VB6 , VB 2005 , VBScript
Date ajout : 22/10/2006
Posté par labout [Liste]
DateMAJ : 23/10/2006 

Function isBissext(annee)
Dim ddate 
    ddate = CDate("28/02/" & annee)

    If Month(ddate+1) = 2 Then
        isBissext = True
    Else
        isBissext = False
    End If
End Function
Langage : VB6 , VBA
Date ajout : 23/10/2006
Posté par PCPT [Liste]
DateMAJ : 23/10/2006 
Function IsLeapYear(iYear%) As Boolean
    IsLeapYear = IsDate("29/02/" & CStr(iYear))
End Function
Langage : Delphi 5
Date ajout : 24/10/2006
Posté par cirec [Liste]
{Tout simplement}
If IsLeapYear(Annee) Then ...
Langage : Java
Date ajout : 04/03/2007
Posté par Ombitious_Developper [Liste]

import java.util.GregorianCalendar;
boolean estBessextile (int year) {
    return new GregorianCalendar ().isLeapYear (year);
}
Langage : SQL , SQL 2005
Date ajout : 29/03/2007
Posté par pifou25 [Liste]
CREATE FUNCTION IsLeapYear (@Annee AS int) 
RETURNS bit
AS
BEGIN
    Declare @Date29Fev AS Datetime
    Declare @Result AS bit
    SET @Date29Fev  = DATEADD(DAY, -1, Cast('01/03/'+Cast(@Annee AS varchar(4)) AS datetime))
    IF Day(@Date29Fev )=29    
        SET @Result =1
    ELSE
        SET @Result = 0
    return @Result
END
Remarque :
vérifié sous SQL server 2000 ça doit marcher également pour le 2005.
Langage : VB 2005 , VB 2008
Date ajout : 25/06/2008
Posté par gillardg [Liste]

'year est une année repréntée par 4 chiffres 

System.DateTime.IsLeapYear(year)
Langage : PHP 4 , PHP 5
Date ajout : 11/07/2008
Posté par JoJo738 [Liste]
function is_leap_year($year)
{
    if( ( $year % 100 == 0 && $year % 400 == 0 ) OR ( $year % 100 != 0 && $year % 4 == 0 ) )
    {
        return true;
    }
    return false;
}

Snippets en rapport avec : Bissextile, Leap, Année, Fevrier, Calendrier

01/06/2007 - Déterminer si une année est bissextile en julien et grégorien

30/10/2006 - Déterminer le jour de la semaine d'une date



Codes sources en rapport avec : Bissextile, Leap, Année, Fevrier, Calendrier

{JAVA / J2EE} CALCUL LE JOUR SUIVANT D'UNE DATE EN FONCTION DES ANNÉES BISSEXTILE ET LE NOMBRE DE JOURS DANS CHAQUE MOIS.
Calcule et affiche le jour suivant d'une date en fonction des années bissextile et le nombre de jour...

{Visual Basic, VB6, VB.NET, VB 2005} CALENDRIER SOUS VBA (EXCEL)
Ce code permet de sélectionner une date dans un calendrier Le nombre de jour par mois et défini Le...

{C / C++ / C++.NET} CALCUL AGE V2
Calcul l'age en fonction des saisies utilisateur (année, mois, jour naissance) Prend en compte les ...

{PHP} [CLASSE PHP] MINI CALENDRIER AVEC LES 12 MOIS AFFICHÉS
Voila ce petit script affiche 12 petits calendriers (1 par mois :D). La date du jour en cours est s...

{Visual Basic, VB6, VB.NET, VB 2005} CALCUL DES JOURS OUVRÉS ET OUVRABLES
J'ai repris une source de Belegaer pour la réctualiser et l'adapter à VB 2008. Voici une méthode po...

{JAVA / J2EE} CALENDRIER ET HORLOGE AVEC LA LIBRAIRIE ORG.JDESKTOP.SWINGX
Petit calendrier et horloge affichant l'heure et la date dynamiquement. La date est liee a l'heure. ...

{Visual Basic, VB6, VB.NET, VB 2005} CALENDMULTI
Ce logiciel permet de fabriquer, visualiser et imprimer, des calendriers complets jusqu'en 2100. En...

{PHP} UN CALENDRIER SOUS LA FORME D'UN TABLEAU
Cette source permet de créer un calendrier sous la forme d'un tableau, comme celui du Site du Zer0, ...

{PHP} CLASSE CALENDRIER
classe pour afficher un petit calendrier tout simple en PHP5. J'ai pas trouvé de classe pour affiche...

{PHP} CALENDRIER
Cette classe affiche un calendrier et met une date sélectionné en surbrillance. N'ayant pas trouvé ...