Accueil
Accueil
Le
Club
Delphi
Kylix
C
C++
Java
J2EE
DotNET
& C#
Visual
Basic
Access
Pascal
Dev
Web
PHP
ASP
XML
UML
SQL
SGBD
Win
Linux
Autres

        


Comment connaître le jour de la semaine associé à une date ?
auteur : Hdd34
La difficulté pour associer un jour de la semaine à une date réside dans le choix d'une convention pour le début de l'année. La norme internationale indique ainsi qu'une semaine est considérée comme complète que lorsqu'elle inclut le Jeudi.

A partir de là, on calcule la date du premier Jeudi de l'année et on en déduit le jour de la semaine recherché à l'aide d'un algorithme... pas très simple !

La fonction suivante renvoie une valeur comprise entre 0 et 6 correspondant respectivement au Lundi et au Dimanche.

Jour de la semaine en fonction de la date
function WeekDay(Day, Month, Year: Word): Word; function FirstThursday(Year: Word): Word; begin FirstThursday := 7 - (1 + (Year-1600) + (Year-1597) div 4 - (Year-1501) div 100 + (Year-1201) div 400) mod 7; end; function DayNumber(Day, Month, Year: Word): Word; const DaysBeforeMonth: array[1..12] of Word = (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334); begin DayNumber := DaysBeforeMonth[Month] + Day + Ord((Month > 2) and (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))); end; begin WeekDay := (7 + DayNumber(Day, Month, Year) - FirstThursday(Year) + 3) mod 7; end;

        

Consultez les autres F.A.Q's

Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2004  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Copyright 2000..2005 www.developpez.com