Gestion des dates

**jmulans** · 31/05/2007, 15h25

Bonjour,

je fait un calendrier de la semaine je souhaiterais recuperer les dates de la semaine en cours
j'ai a ma disposition la date d'aujourd'hui (avec la fonction Date)
je sais que je peut avoir le numero du jour dans la semaine ou encore le numero de la semaine dans l'année, mais moi je voudrais les dates de la semaine en cours
je pourrais les calculer à partir de la date d'aujourd'hui mais au niveau des changements de mois ou d'années c'est compliqué

y'a-t-il un moyen ?

**Lung** · 31/05/2007, 15h34

J'ai ces deux fonctions pour récupérer le lundi et le dimanche de la semaine d'une date donnée :

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
16
17
function TMainForm.GetLundi(const szADate: String): String;
var
   DateTmp: TDateTime;
begin
   DateTmp := StrToDate(szADate);
   DateTmp := IncDay(DateTmp, 1 - DayOfTheWeek(DateTmp));
   Result := DateToStr(DateTmp);
end;
 
function TMainForm.GetDimanche(const szADate: String): String;
var
   DateTmp: TDateTime;
begin
   DateTmp := StrToDate(szADate);
   DateTmp := IncDay(DateTmp, 7 - DayOfTheWeek(DateTmp));
   Result := DateToStr(DateTmp);
end;