Discussion :

[isachat666]

Bonjour, comment calculer le nombre de semaines entre deux dates ?
Un précédent collègue avait codé la chose suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
n := trunc(DateFin) - trunc(DateDebut);
NbSem := n div 7;
if n mod 7 > 0 then inc(NbSem);

Mais le résultat est faux.
Par exemple cela me donne 5 semaines pour le mois de juillet alors que le mois de juillet s'étale sur 6 semaines du dimanche 1er juillet au mardi 31 juillet.

Merci de votre aide, je suis sûre que c simple mais j'ai le cerveau trop ramolli pour réfléchir (semaine très difficile)

Isa

[STARIS79]

regarde du coté de WeeksBetween() avec uses DateUtils;

[isachat666]

Merci beaucoup, mais cela ne convient pas.
En effet entre le 01/07/2007 et le 31/07/2007 le fonction WeeksBetween() me renvoie 4 (c.a.d. le nb de semaines complètes entre ces deux dates)
Le nb que je souhaite obtenir est 6 (nb de semaines complètes ou incomplètes entre ces deux dates)
Bon je vais prendre un café et faire fonctionner les neurones qui me restent

Isa

[domlagagne]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
showmessage(
floattostr(
ceil(weekspan(strtodate('01/07/2007'),endoftheWeek(strtodate('01/07/2007'))))
+
ceil(weekspan(StartoftheWeek(strtodate('31/07/2007')),(strtodate('31/07/2007'))))
+
weeksBetween(strtodate('01/07/2007'),strtodate('31/07/2007'))
)
);

[Tardiff Jean-François]

Bonjour,

aide Delphi7 en français

WeekOfTheMonth,fonction
Renvoie la semaine du mois représentépar une valeur TDateTime.

Unité

DateUtils

Catégorie

routines date/heure

Syntaxe Delphi :

function WeekOfTheMonth(constAValue:TDateTime):Word;overload;
function WeekOfTheMonth(constAValue:TDateTime;varAYear,AMonth:Word):Word;overload;

Syntaxe C++:

extern PACKAGE Word__ fastcallWeekOfTheMonth(constSystem::TDateTimeAValue);
extern PACKAGE Word__ fastcallWeekOfTheMonth(constSystem::TDateTimeAValue,Word &AYear,Word &AMonth);

Description

Appelez WeekOfTheMonth pour obtenir la semaine du mois représentépar une valeur TDateTime spécifiée.WeekOfTheMonth renvoie une valeur comprise entre 1 et 6.

AYear et AMonth renvoient l'année et le mois dans lesquels WeekOfTheMonth tombe.Ces valeurs peuvent différer de l'année et du mois de AValue.En effet,la première semaine d'un mois est la première qui contient au moins quatre jours dans ce mois.Par conséquent,si le premier jour du mois est vendredi,samedi ou dimanche,le premier,les deux premiers ou les trois premiers jours du mois appartiennent àla dernière semaine du mois antérieur.De même,si le dernier jour du mois est lundi,mardi ou mercredi,le dernier,les deux derniers ou les trois derniers jours du mois appartiennent à la première semaine du mois suivant.

Conseil : Pour compter des semaines basées sur le jour de la semaine de la valeur date et heure,utilisez plutôt la fonction NthDayOfWeek.Par exemple,si AValue représente un samedi qui est le premier jour du mois,WeekOfTheMonth renvoie 5 (ou bien 4),en indiquant la dernière semaine du mois précédent,tandis que NthDayOfWeek renvoie 1 lorsque AValue est le premier samedi du mois .

Remarque : WeekOfTheMonth définit la semaine d'après la norme ISO 8601 :la semaine commence le lundi et s'achève le dimanche.

[Gilbert Geyer]

Bonjour,

Tu peux trouver ici :

http://www.developpez.net/forums/sho...ight=deux+Date
la fonction d'e-ric 18/08/2006, 14h22 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
function DaysBetween(const ANow, AThen: TDateTime): Integer; 
begin    Result := Abs(Trunc(AThen) - Trunc(ANow)); 
end;

qui donne le nombre de jours moins 1 entre deux dates
... suffit de remplacer ANow, AThen par ADate1, ADate2
... puis connaissant le nombre de jours tu peux calculer le nb de semaines complètes ou incomplètes.

A+

[isachat666]

Re-

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbSem :=  ceil(WeekSpan(trunc(StartoftheWeek(DateDebut)),trunc(endoftheWeek(DateFin))));

semble donner un résultat correct.

Merci

[Gilbert Geyer]

Re-Salut,

Isachat666 a écrit :
.. , mais cela ne convient pas.
En effet entre le 01/07/2007 et le 31/07/2007 le fonction WeeksBetween() me renvoie 4 (c.a.d. le nb de semaines complètes entre ces deux dates)
Le nb que je souhaite obtenir est 6 (nb de semaines complètes ou incomplètes entre ces deux dates)

... comment peux-tu souhaiter obtenir le nb 6 semaines alors qu'il n'y en a que 4 et 2 jours entre les dates indiquées ??

Test effectué avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
function DaysBetween(const ADate1, ADate2: TDateTime): Integer;
begin    Result := Abs(Trunc(ADate2) - Trunc(ADate1)) +1 ;
end;

et avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
          ...
          nbJours:=DaysBetween(strtodate('01/07/2007'),strtodate('31/07/2007 '));
          nbSem:=nbJours/7;
          showMessage(floatToStr(nbSem));

... résultat : affiche 4,428 semaines.
A+

EDIT : ai été pris de vitesse.

[Tardiff Jean-François]

Normalement la norme Iso ????? indique qu'une semaine appartient au mois qui contient au moins 4 jour de la semaine.

Si 1 mois commence le Jeudi, La 1° semaine du mois commence le 1° du mois.
Si le mois commence le vendredi, La 1° semaine du mois commence le Luni 4 du mois.

Par conséquence, 1 mois peut avoir jusqu 'a 6 semaines.

Le problème est de calculer le nombre de semaine dans un mois, de fçon a ce que la somme de toutes les nombres de semaine de tout les mois d'une années soit le nombre de semaine de l'année.

[isachat666]

Bonjour,
Peut-être que le code suivant est plus correct que celui de mon précédent post:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
n := trunc(endoftheWeek(DateFin)) - trunc(StartoftheWeek(DateDebut));
NbSem := n div 7;
if n mod 7 > 0 then inc(NbSem);

... comment peux-tu souhaiter obtenir le nb 6 semaines alors qu'il n'y en a que 4 et 2 jours entre les dates indiquées ??

il y a 4 semaines complètes plus deux semaines incomplètes (le 1er du mois est le dimanche de la première semaine et le 30 et 31 sont le lundi et mardi de la dernière semaine) donc voilà pourquoi je veux obtenir le nb 6.

c'est simple c'est pour afficher un état et les données s'affichent par semaine (1 colonne par semaine) donc si je sélectionne juillet 2007 il faut que mon état s'affiche sur 6 colonnes:
sem 1 sem 2 sem 3 sem 4 sem 5 sem 6
25/06/07 02/07/07 09/07/07 16/07/07 23/07/07 30/07/07
01/07/07 08/07/07 15/07/07 22/07/07 29/07/07 05/08/07

c'est pe un peu plus clair comme cela :-)

[Tober]

chaque semaine dans une année à un numéro, donc il suffit de regarder à quelle semaine appartient le 1er juillet, et à quelle semaine appartient le 31 juillet, et de faire la différence + 1 !

[isachat666]

Bonjour,

chaque semaine dans une année à un numéro, donc il suffit de regarder à quelle semaine appartient le 1er juillet, et à quelle semaine appartient le 31 juillet, et de faire la différence + 1 !

juste pour chercher la petite bête

cette méthode ne marchera pas pour le mois de décembre 2007 car le numéro de semaine de la dernière semaine est 1 (et décembre 2007 est un mois qui s'affiche sur 6 semaines la dernière semaine étant à cheval sur decembre 2007 janvier 2008)

[Qwazerty]

SAlut
Tiens en faisant comme ca ca marche a chaque fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function TForm1.NbrWeekOfMonth(MoisAnnee : TDateTime): Integer;
Var JDebut, JFin, NbrS: Integer;
    DateStart, DateEnd : TDateTime;
begin
DateStart := StartOfTheMonth(MoisAnnee);
DateEnd := EndOfTheMonth(MoisAnnee);
JDebut := DayOfTheWeek(DateStart);   //Lun=1 Dim=7
JFin := DayOfTheWeek(DateEnd);
NbrS := 0;
repeat //On cherche le nombre de block de 7 jours
      Inc(Nbrs);
Until IncDay(DateStart,7*NbrS) > DateEnd; //peut etre une fonct° plus propre que ca existe
//On regarde si le jour de la dernier semaine se trouve avant le jour de la date de fin de semaine
//Si c'est le cas il y a encore une semaine incomplete a rajouter
If Jdebut > JFin Then Inc(NbrS);
result := NbrS;
end;

Edit:Il serait peut etre possible de chager le repeat par un function integrer qui donnerai le nombre de Lun, Mar,Mer ... dans le mois, mais je n'est rien vu de tel. /Edit

Ca fait un fonction en plus mais bon elleest pas tres grosse
a++
Qwaz