Section courante

A propos

Section administrative du site

Il est parfois pratique de savoir quel année possède 366 jours dans le calendrier grégorien. On appel s'est année, les années bissextile. A l'aide du code source Visual Basic .NET (VB .NET) suivant, vous trouverez la réponse que vous souhaitez :

  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim I As Integer
  5.         For I = 1900 To 2009
  6.             If DateTime.IsLeapYear(I) Then Console.WriteLine(I & " est une année bissextile")
  7.         Next
  8.     End Sub
  9.  
  10. End Module

ou si vous êtes dans l'obligation de le traiter manuellement :

  1. Module Module1
  2.  
  3.     Function IsLeapYear(ByVal Year As Integer) As Boolean
  4.         Return (((Year And 3) = 0) And ((Year Mod 100 <> 0) Or (Year Mod 400 = 0)))
  5.     End Function
  6.  
  7.  
  8.     Sub Main()
  9.         Dim I As Integer
  10.         For I = 1900 To 2009
  11.             If IsLeapYear(I) Then Console.WriteLine(I & " est une année bissextile")
  12.         Next
  13.     End Sub
  14.  
  15. End Module

on obtiendra le résultat suivant :

1904 est une année bissextile
1908 est une année bissextile
1912 est une année bissextile
1916 est une année bissextile
1920 est une année bissextile
1924 est une année bissextile
1928 est une année bissextile
1932 est une année bissextile
1936 est une année bissextile
1940 est une année bissextile
1944 est une année bissextile
1948 est une année bissextile
1952 est une année bissextile
1956 est une année bissextile
1960 est une année bissextile
1964 est une année bissextile
1968 est une année bissextile
1972 est une année bissextile
1976 est une année bissextile
1980 est une année bissextile
1984 est une année bissextile
1988 est une année bissextile
1992 est une année bissextile
1996 est une année bissextile
2000 est une année bissextile
2004 est une année bissextile
2008 est une année bissextile

Dernière mise à jour : Samedi, le 22 octobre 2016