Discussion :

[etienneborms]

Bonjour à tous

Voila je suis nouveau sur ce forum , et je vous écrit naturelement car j'ai un petit problème , je développe avec delphi 4 pro , a des fin personnel , et je voudrais pouvoir mettre une formule dans mon logiciel qui pourrait calculé le nombre de jours ouvrable qu'il y a entre deux date spécifique , donc en ne tenant pas compte des week end et le mieux serrait encore de ne pas compté égallement les jours ferié ,

Es possible ? et si oui quelqu'un pourrait-il m'aidé SVP ?

Je vous remercie d'avance .

Etienne

[Pascal Fonteneau]

En codant autour de ces fonctions , c'est assez simple

http://www.developpez.net/forums/d59...-jours-feries/

[etienneborms]

En codant autour de ces fonctions , c'est assez simple

http://www.developpez.net/forums/d59...-jours-feries/

Bonjour

Je te remercie pour ta réponse , et vient de voir le code de Andry , mais cela ne me donne que les jours ferié , et comme je suis un peu novice dans le développement , pourrait tu me dire un peu plus de la manière que je procède pour utiliser ce code , quel composant par exemple utiliser afin de pouvoir parvenir à utiliser ce code , et surtout si ce code peut fonctionner en delphi 4.

Je te remercie déja d'avance

[Pascal Fonteneau]

Re

si ce code peut fonctionner en delphi 4

Oui, mettre DateUtils dans les Uses.
Ensuite, il faut savoir ce que tu comptes comme jours fériés (les samedis ? les dimanches ?) en France ou en Belgique uniquement.
Enfin comparer toutes les dates avec la liste des feriés. Attention si changement d'année entre la date de debut et de fin de test.

[etienneborms]

Re


Oui, mettre DateUtils dans les Uses.
Ensuite, il faut savoir ce que tu comptes comme jours fériés (les samedis ? les dimanches ?) en France ou en Belgique uniquement.
Enfin comparer toutes les dates avec la liste des feriés. Attention si changement d'année entre la date de debut et de fin de test.

Bonjour

DateUtils , ne fonctionne pas en delphi4 , et IncDay non plus y aurait-il dautre code qui puis fonctionner ?

[SergioMaster]

effectivement dateUtils n'est apparu qu'avec des versions plus récentes que D4 . En D3 j'utilise le DateUtil des composants RXLib (est il encore trouvable sur la toile ? )

[etienneborms]

effectivement dateUtils n'est apparu qu'avec des versions plus récentes que D4 . En D3 j'utilise le DateUtil des composants RXLib (est il encore trouvable sur la toile ? )

J'ai surfer pendant 1 heure pour trouver le dateutil pour delphi 4 et pas moyen de le trouver .

dommage.

Y aurait-il quelqu'un qui pourrait me dire éventuellement ou trouver ce genre de code pour delphi 4 .

Moi j'ai tenté avec le code suivant mais rien y fait.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Math, dateutils, ComCtrls, ExtCtrls, Menus;
 
type
  TForm1 = class(TForm)
    lbl_datedebut: TLabel;
    lbl_datefin: TLabel;
    lbl_nb_jours: TLabel;
    lbl_resultat7: TLabel;
    bt_calculer: TButton;
    bt_quitter: TButton;
    bt_effacer: TButton;
    bt_aide: TButton;
    Button5: TButton;
    za_heure: TLabel;
    lbl_nb_jours5: TLabel;
    date1: TDateTimePicker;
    date2: TDateTimePicker;
    gb_resultat: TGroupBox;
    Timer: TTimer;
    lbl_resultat5: TLabel;
    lbl_resultatwe: TLabel;
    lbl_nb_sam_dim: TLabel;
    Label5: TLabel;
    date3: TDateTimePicker;
    date4: TDateTimePicker;
    procedure bt_calculerClick(Sender: TObject);
    procedure bt_quitterClick(Sender: TObject);
    procedure bt_effacerClick(Sender: TObject);
    procedure bt_aideClick(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
 uses unit_aide;
{$R *.DFM}
 
procedure TForm1.bt_calculerClick(Sender: TObject);
var i : integer;
    j : integer;
    jour : string;
begin
   i := 0;
  j := 0;
 
      date3.DateTime := date1.DateTime;
      date4.DateTime := IncDay(date2.DateTime, 1);
      if date1.DateTime>date2.DateTime then
        begin
          gb_resultat.Visible := false;
          // Messagedlg : Affiche une boîte de dialogue de message au centre de l'écran.
          MessageDlg('La date de début doit être inférieure à la date de fin !',
           mterror,[mbOk],0);
        end
          else
            Repeat
              // FormatDateTime : Formate un objet TDateTime.
              jour := FormatDateTime('dddd',date3.DateTime);
              label5.Caption := jour;
              if (jour = 'samedi') OR (jour = 'dimanche') Then
                begin
                  j := j+1;
                  date3.DateTime := IncDay(date3.DateTime, 1);
                  // IncDay : Renvoie une date décalée d'un certain nombre de jours.
               end
            else
              begin
                i := i+1;
                date3.DateTime := IncDay(date3.DateTime, 1);
              end;
              // CompareDate : Indique la relation entre les parties date
              // de deux valeurs TDateTime.
            Until CompareDate(date3.DateTime,date4.DateTime) = 0;
 
// Affichage du groupbox et affichage des résultats.
  gb_resultat.Visible:=true;
  lbl_resultat5.Caption := inttostr(i);
  lbl_resultatwe.Caption := inttostr(j);
  lbl_resultat7.Caption := inttostr(i+j);
 
 
end;
 
procedure TForm1.bt_quitterClick(Sender: TObject);
begin
application.Terminate;
end;
 
procedure TForm1.bt_effacerClick(Sender: TObject);
begin
  gb_resultat.Visible := false;
  lbl_resultat7.caption := '';
  lbl_resultat5.caption := '';
  date1.Date := now;
  date2.date := now;
end;
 
procedure TForm1.bt_aideClick(Sender: TObject);
begin
form2.Show;
end;
 
procedure TForm1.TimerTimer(Sender: TObject);
var
str : string;
begin
  datetimetostring(str,'dddd d mmmm yyyy   hh:mm:ss', now);
  za_heure.Caption := str;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 date1.Date := now; // Now: Renvoie la date et l'heure en cours.
  date2.date := now;
end;
 
end.