Discussion :

[raoulmania]

Bonjour à tous,

je recherche un utilitaire pour trouver la semaine de l'année correspondant à une date.

Si vous avez qq news, ca serait sympas

bye

anthony

[DMO]

Code :

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

1
2
3
4
5
6
7
8
9
uses
  DateUtils;
 
(...)
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  NumSemaine := WeekOf(Date);
end;

Renvoie la semaine de l'année représentée par une valeur TDateTime.

[raoulmania]

merci,

j'avais trouvé aussi:

var
DateTime : TDateTime;
GetWeek : Word;
begin
DateTime := EncodeDate(Year,Month,Day);
GetWeek := WeekOfTheYear(DateTime);
end;

[/code]

[DMO]

Exact.

Ce que tu avais trouvé est tout aussi valable:

Remarque : WeekOf renvoie la même valeur que la fonction WeekOfTheYear.

Remarque : WeekOfTheYear renvoie la même valeur que la fonction WeekOf.