Trouver le premier jour et dernier jour de la semaine

Bonjour,

Afin de simplifier les choix utilisateur, je dois à partir d'une date, trouver la date correspondant au lundi et la date du dimanche. Idem afin de trouver en fonction du date donné le début du mois (facile) et la date de fin de mois (heu!!, comment savoir si y'a un 31, 30???).

Quelqu'un voit comment faire ?

Si la date est donnée par un TDateTime, la fonction DayOfWeek() renvoie un entier qui le numéro du jour de la semaine :
"DayOfWeek renvoie une valeur entière comprise entre 1 et 7. Sunday est le premier jour de la semaine et Saturday le septième."

par exemple

Code:

---

1 2 3 4 5 6 7 8

TDateTime dtDate; . . int n = dtDate.DayOfWeek(); n = (n + 6)%7; // pour avoir 0 pour le lundi, ...6 pour le dimanche; TDateTime dtLundi = dtDate - n; TdateTime dtDimanche = dtLundi + 6;

---

Utiliser ensuite le DecodeDate pour avoir le jour du mois.

Pour ce qui concerne le dernier jour du mois il serait peut-être plus facile de chercher le premier jour du mois suivant et retrancher 1 dans son TDateTime.

Utiliser pour cela les DecodeDate et EncodeDate.

Salut kurkaine:
Tire de l'aide en ligne dans un Tedit tu inscrit une date 22/11/2006 et tu a un ShowMessage du jour:

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TForm1::SpeedButton1Click(TObject *Sender) { char days[7][10] = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" };   TDateTime dtDate = StrToDate(Edit1->Text);   ShowMessage(Edit1->Text + AnsiString(" is a ") + days[dtDate.DayOfWeek() - 1]);   }

---