Discussion :

[Sol44bzh]

Bonjour,

Je souhaiterais savoir si il existe une fonction me permettant de reconstruire une date à partir de la semaine + année.

Je stocke dans une table de statistiques des données par semaine et par année. Afin de réaliser des graphiques (avec Fastreport) en ayant toujours le même axe, il serait plus facile de réencoder ma semaine et mon année en date complète.

Année Début : 2019
Semaine Début : 27
--> 01/07/2019

Année Fin : 2020
Semaine Fin : 38
--> 14/09/2020

Merci pour votre aide
Solenn

[ALWEBER]

Une solution possible. Uses DateUtils

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  Date1 : TDateTime;
  NumSem : Word;
  Annee : Word ;
begin
  Annee := 2020 ;
  NumSem := 27 ;
  Date1 := StrToDate ('01/01/'+Annee.ToString) ;
  while WeekOfTheYear(Date1)<NumSem do
     Date1 := Date1 + 1 ;
  showMessage (DateToStr(Date1)) ;

[popo]

Ou encore plus simple, également dans DateUtils.

Code :

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

EncodeDateWeek(2020,38)

Il existe un troisième paramètre qui accepte un entier de 1 à 7 (lundi à dimanche), et qui par défaut est à 1.

Code :

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

1
2
Writeln(DateToStr(EncodeDateWeek(2020,38, 1)));
Writeln(DateToStr(EncodeDateWeek(2020,38, 7)));

Renvoie :
14/09/2020
20/09/2020

[sergio_is_back]

Ou encore plus simple, également dans DateUtils.

Code :

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

EncodeDateWeek(2020,38)

Il existe un troisième paramètre qui accepte un entier de 1 à 7 (lundi à dimanche), et qui par défaut est à 1.

Code :

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

1
2
Writeln(DateToStr(EncodeDateWeek(2020,38, 1)));
Writeln(DateToStr(EncodeDateWeek(2020,38, 7)));

Renvoie :
14/09/2020
20/09/2020

Oui, DateUtils est un vrai couteau Suisse pour la gestion du temps... Trop souvent oublié (souvent par manque de connaissance), j'ai vu des algos pas possibles pour calculer un écart entre deux dates, ou le numéro de semaine d'une date, ou le quantième de la date alors qu'avec DateUtils toutes les fonctions sont déjà prévues...

[anapurna]

salut

attention a vérifier mais je crois que les numéro de semaine américaine ne sont pas les même qu'en france.
dans mon souvenir le numero de semaine americaine ne commence que si il y a au moins 4 jours ouvrés


mes 2 cents ....

[popo]

salut

attention a vérifier mais je crois que les numéro de semaine américaine ne sont pas les même qu'en france.
dans mon souvenir le numero de semaine americaine ne commence que si il y a au moins 4 jours ouvrés


mes 2 cents ....

Du coup, je suis allé vérifier...
Et j'ai trouvé une règle différente :

Pas la même règle entre les US et l'Europe
Lorsqu'une année commence un vendredi, un samedi ou un dimanche, ceci n'est pas considéré comme une semaine. Mais pour l'Amérique du Nord, cette règle n'existe pas et le calcul des numéros de semaine commence dès le 1er Janvier, même si le 1er Janvier est un dimanche

Et puisqu'il y a des normes de partout, je suis également allé vérifier s'il y en avait une.
Je n'ai pas pu trouver de site officiel alors je me raccrocherai à ce que dit Wikipédia (malgré ce que j'en pense).
Et il semblerai que ce soit la même que chez nous.