formater le resultat de WeekOF()

**amaurylerouxdelens** · 18/01/2007, 09h23

Salut à tous,

je cherche à générer un identifiant de semaine pour la date en cours.
pour cela je fait un truc du style

Code :

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

inttostr(YearOf(now))+'-'+inttostr(WeekOf(now))

ce qui me renvoi par exemples:

Code :

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

mon problème vient du formatage de WeekOf() qui se fait sur un ou deux digit.
j'aurais aimé obtenir des

Code :

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

est ce possible ?
d'avance merci

**TicTacToe** · 18/01/2007, 09h32

Le plus trivial est ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
function DateToSem( DDate: TDatetime ): string;
var
  SAn, SSem: string;
begin
  SAn := YearOf( DDate );
  SSem := WeekOf( DDate );
  if Length( SSem ) = 1 
    then SSem := '0' + SSem;
  Result := SAn + '-' + SSem;
end;

Après il y a peut être des astuces ... mais bon

**amaurylerouxdelens** · 18/01/2007, 09h35

ca peut être bien comme ca

je fouille la doc et il me semble que ceci est pas mal non plus :

Code :

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

format('%2d',weekOf(now))

(pas encore testé)

**Cl@udius** · 18/01/2007, 09h35

ou alors

Code :

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

1
2
 
IntToStr(YearOf(Now)) + '-' + Format('%2.2d', [WeekOf(Now)]);

[edit]
Cette syntaxe est plus correcte:

Code :

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

1
2
 
IntToStr(YearOf(Now)) + '-' + Format('%.2d', [WeekOf(Now)]);

[/edit]

@+ Claudius

**amaurylerouxdelens** · 18/01/2007, 09h40

bon, ta syntaxe doit être la bonne la mienne passe pas

sinon ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
function DateToSem( DDate: TDatetime ): string;
var
  SAn, SSem: string;
begin
  SAn := inttostr(YearOf( DDate ));
  SSem := inttostr(WeekOf( DDate ));
  if Length( SSem ) = 1 
    then SSem := '0' + SSem;
  Result := SAn + '-' + SSem;
end;

marche très bien ! Merci

**amaurylerouxdelens** · 18/01/2007, 09h43

ceci

Code :

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

1
2
3
4
function DateToSem( DDate: TDatetime ): string;
begin
  Result := IntToStr(YearOf(DDate)) + '-' + Format('%.2d', [WeekOf(DDate)]);
end;

me semble être la solution la plus élégante mais en terme de performance ? vaut mieux celle juste au dessu sou pas ?

**Cl@udius** · 18/01/2007, 09h49

Re,

L'une ou l'autre revient exactement au même, mais la 2° est plus élégante car dans ce format seule la valeur pécisée après le . est prise en compte.

[edit]
Quoique pas tout à fait:

Code :

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

1
2
 
Format('5.2', [WeekOf[Now]); // Renvoie '   03' avec 3 espaces devant.

[/edit]
@+

**Cl@udius** · 18/01/2007, 10h13

Re,

Faut également faire attention aux derniers jours de l'année, effectue ce test:

Code :

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

1
2
3
4
5
6
7
 
var
  MaDate: TDateTime;
begin
  MaDate := EncodeDate(2007, 12, 31);
  ShowMessage(IntToStr(YearOf(MaDate)) + '-' + Format('%.2d', [WeekOf(MaDate)]));
end;

Cela renvoie '2007-01', pas bon !

**amaurylerouxdelens** · 18/01/2007, 10h32

et pourtant ça n'est pas logique !

une solution ?

**TicTacToe** · 18/01/2007, 10h33

Claudius a raison,

Il faut utiliser WeekOfTheYear pour utiliser l'année de la semaine trouvée.

En effet, le 31/12/2007, correspond à 2008-01 !
(le jeudi de la semaine en question faisant foi et se trouvant en 2008...)

**amaurylerouxdelens** · 18/01/2007, 10h35

ca vient sans doute du fait que 52*7 = 364 != 365

**TicTacToe** · 18/01/2007, 10h36

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function DateToSem( DDate: TDatetime ): string;
var
  SAn, SSem: string;
  IAn: Word;
begin
  SSem := inttostr(WeekOfTheYear( DDate, IAn ));
  SAn := inttostr(IAn);
  if Length( SSem ) = 1 
    then SSem := '0' + SSem;
  Result := SAn + '-' + SSem;
end;

Je n'ai pas tester du tout, mais ca doit être un truc dans ce style.
Sinon le formattage direct avec Format est surement mieux...

**amaurylerouxdelens** · 18/01/2007, 10h36

Envoyé par TicTacToe

Claudius a raison,

Il faut utiliser WeekOfTheYear pour utiliser l'année de la semaine trouvée.

En effet, le 31/12/2007, correspond à 2008-01 !
(le jeudi de la semaine en question faisant foi et se trouvant en 2008...)

impeccable ! Merci

**Jipété** · 18/01/2007, 10h40

Salut !

Et comme ça (testé, OK) ? :

Code :

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

1
2
3
4
5
6
7
var
  MaDate: TDateTime;
  w: integer;
begin
  MaDate := EncodeDate(2007, 12, 31);
  if (MonthOfTheYear(MaDate) = 12) and (WeekOfTheYear(MaDate) = 1) then w := 53;
  ShowMessage(IntToStr(YearOf(MaDate)) + '-' + Format('%.2d', [w]));

Car cette année le 31 décembre est un lundi (voir l'aide)
Mes 2 cts,
--
jp

**amaurylerouxdelens** · 18/01/2007, 10h44

Envoyé par DELPHI HELP

Syntaxe
function WeekOfTheYear(const AValue: TDateTime): Word; overload;

function WeekOfTheYear(const AValue: TDateTime; var AYear: Word): Word; overload;

Description
Appelez WeekOfTheYear pour obtenir la semaine de l'année représentée par une valeur TDateTime spécifiée. WeekOfTheYear renvoie une valeur comprise entre 1 et 53.
AYear renvoie l'année dans laquelle la semaine spécifiée tombe. L'année renvoyée peut différer de celle de AValue. En effet, la première semaine d'une année est la première qui contient au moins quatre jours dans cette année. Par conséquent, si le premier jour calendaire de l'année est vendredi, samedi ou dimanche, WeekOfTheYear renvoie la dernière semaine de l'année antérieure pour le premier, les deux premiers ou les trois premiers jours de l'année calendaire. De même, si le dernier jour calendaire de l'année est lundi, mardi ou mercredi, WeekOfTheYear renvoie 1 (la première semaine de l'année calendaire suivante) pour le dernier, les deux derniers ou les trois derniers jours de l'année calendaire.

ca s'utilise comment concretement svp ?

sinon

Code :

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

1
2
3
4
5
6
7
var
  MaDate: TDateTime;
  w: integer;
begin
  MaDate := EncodeDate(2007, 12, 31);
  if (MonthOfTheYear(MaDate) = 12) and (WeekOfTheYear(MaDate) = 1) then w := 53;
  ShowMessage(IntToStr(YearOf(MaDate)) + '-' + Format('%.2d', [w]));

semble etre bon

**Jipété** · 18/01/2007, 10h48

Le même problème se pose avec le 1er janvier !

Code :

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

  MaDate := EncodeDate(2010, 01, 01);

renvoie 2010-53 !

Rajoute un autre test du même style que ce que j'ai fait.
--
jp

**amaurylerouxdelens** · 18/01/2007, 10h50

c'est du n'importe quoi franchement ! MonthOftheYear de (2010,01,01) renverrais 12 alors ??

**Jipété** · 18/01/2007, 10h52

T'énerves pas et lis l'aide calmement, et réfléchis un peu...
Pointeur sur WeekOfTheYear, F1, lire en bas et voilà.
[edit]Me rend compte que tu l'as postée en citation, l'aide.
Donc, pour répondre à ta question, goto première ligne de ce post !

[/edit]
--
jp

**amaurylerouxdelens** · 18/01/2007, 10h59

je ne m'enerve pas du tout

je suis juste fatigué des comportements bizarre de Delphi ...

enfin pour revenir à nos moutons, le hic c'est que je ne comprends pas l'explication de l'aide ...

**amaurylerouxdelens** · 18/01/2007, 11h02

ah si !

Code :

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

1
2
3
4
5
6
7
8
function Tstruct_aff.DateToSem( DDate: TDatetime ): string;
var
  MyYear:word;
  w: integer;
begin
  w:=WeekOfTheYear(DDate, MyYear);
  Result := IntToStr(MyYear) + '-' + Format('%.2d', [w]);
end;

[edit] : voila comme ca marche ca impeccable, Merci tout le monde !

formater le resultat de WeekOF()

Delphi

Discussions similaires

Partager

Partager