Discussion :

[lassmust]

salut tout le monde
mon problème est le suivant
je n'arrive pas a faire une fonction congé que je lui insère une date plus une durée par mois et me donne la date de retour plus le nombre de dimanche
excusé mon ignorance
merci d'avance

[Aka Guymelef]

Bonjour, je n'ai rien compris à votre problème, pourriez-vous s'il vous plait reformuler votre question ?

[lassmust]

voila ma source

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
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
 
  Date1  : TdateTime;
  Nbombre,diff : Integer;
 
 
begin
 
  Nbombre:=strtoint(edit2.Text); //edit c'est la date de debut congé
 
  if RadioButton1.Checked=true then
    Edit3.Text := datetostr(IncMonth(strtodate(Edit1.Text), Nbombre));
  if RadioButton2.Checked=true then
    Edit3.Text := datetostr(IncDay(strtodate(Edit1.Text), Nbombre));
  if RadioButton3.Checked=true then
    Edit3.Text := datetostr(IncWeek(strtodate(Edit1.Text), Nbombre));
  if RadioButton4.Checked=true then
    Edit3.Text := datetostr(IncYear(strtodate(Edit1.Text), Nbombre));
 
//edit3 c'est la date de fin congé
end;

or mon problème c'est de calculer le nombre des dimanche dans cette intervalle ou le nombre des samedi

j'espère que vous m'avez compris
merci d'avance

[Linkin]

Sûrement quelque chose du genre (pas testé)

Code :

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

1
2
3
4
5
6
7
 
DateFin := DateDebut + NbConges
for i:=0 to NbConges - 1 do
begin
  if DayOfWeek = 1 then // Dimanche
    Inc(DateFin);
end;

[Aka Guymelef]

Attention à l'erreur classique avec la routine DayOfWeek dans le code donné par Linkin. En effet cette routine renvoit le type de jour pour un DataTime passé mais il n'est pas conforme à la norme dans le sens où Dimache est considéré comme le jour 1 et Samedi le jour 7. Utilisez plutôt DayOfTheWeek qui elle est ISO 8601 et retourne 1 pour Lundi et 7 pour Dimanche.

Sinon la solution se trouve effectivement dans l'utilisation de cette routine pour typer chaque jour compris entre la date de début et de fin et ainsi incrémenter le nombre de jours de congés.

[lassmust]

Merci tout le monde

[Linkin]

Désolé, je le savais et en relisant l'aide pour être sûr, j'ai lu l'aide de DayOfTheWeek.

Corrigé dans mon post précédent.