Discussion :

[claude]

Bonjour à tous,
J aimerais pouvoir sélectionner la semaine dans un MonthCalendar en cliquant sur le numéro de semaine. je ne vois pas comment faire, et récupérer la semaine sélectionnée

[claude]

Ou récupérer le numero de la semaine en cliquant sur la date

[sjrd]

La deuxième chose est facile, appelle la fonction DayOfWeek ou DayOfTheWeek. Ces deux fonctions sont commentées dans l'aide de Delphi.

[claude]

Merci, mais c'est le numero de la semaine et pas le numéro du jour de la semaine
exemple :
25/06/2004 correspond à la 26 ème semaines

[qi130]

Regarde dans O_Fonctions qui propose une foule de fonctions sur les dates....

[fs999]

Salut,

Voici une fonction que j'utilise :

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
function Week(dt: TDateTime): Integer;
const
  Dayof : array[1..7] of Byte=(6,7,8,9,10,4,5);
var
  AYear, AMonth, ADay: Word;
  FirstDate: TDateTime;
begin
  try
    DecodeDate(dt, AYear, AMonth, ADay);
    FirstDate := EncodeDate(AYear, 1, 1);
    Result := (Trunc(dt) - Trunc(FirstDate) + DayOf[DayOfWeek(FirstDate)]) div 7;
  except
    Result := -1;
  end;
end;

A+

[sjrd]

Il y a beaucoup plus simple : la fonction WeekOfTheYear, elle aussi documentée dans Delphi.

[claude]

Merci à vous tous
j'ai pris le version de fs999 quir fonctionne très bien.

sjrd : je ne trouve pas la fonction (j'ai un Delphi 4.03 pro) c'est peut-être cela

Merci