Encoder une date à partir de la semaine et année

Version imprimable

23/09/2020, 09h41
Sol44bzh

Encoder une date à partir de la semaine et année

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

Une solution possible. Uses DateUtils

Code:

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)) ;

23/09/2020, 10h22
popo
Ou encore plus simple, également dans DateUtils.

Code:

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:

1 2 Writeln(DateToStr(EncodeDateWeek(2020,38, 1))); Writeln(DateToStr(EncodeDateWeek(2020,38, 7)));
Renvoie :
14/09/2020
20/09/2020
23/09/2020, 12h56
sergio_is_back
Citation:
Envoyé par popo

Ou encore plus simple, également dans DateUtils.

Code:

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:

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...
23/09/2020, 17h50
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 ....
24/09/2020, 11h54
popo

Citation:

Envoyé par 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 ....

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

Citation:

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:massacre:).
Et il semblerai que ce soit la même que chez nous.
24/09/2020, 12h55
anapurna

salut

je voulais juste attiré l'attention sur cette petite particularité

donc si le premier janvier est un vendredi ce n'est pas la semaine une ... mais la dernière semaine l'année précédente