Discussion :

[manu80000]

Bonjour a tous, je voudrais savoir comment avoir un TDateTimePicker avec les dates fériés : et par conséquent ne pas pouvoir les sélectionner dans le calendrier. merci d'avance manu

[qi130]

Regarde du coté de l'unité O_Fonctions (freeware). Elle contient de quoi répondre à ton problème.

[manu80000]

j'ai regardé partout et j'ai pas trouvé...

[HumanTool]

salut,
j'aurais tendance à dire que les dates fériées sont propres à chaque pays...
Le meiux à faire est de dérivée TDateTimePicker dans un composant à toi dans lequel tu gères les dates fériées.

[manu80000]

salut,
j'aurais tendance à dire que les dates fériées sont propres à chaque pays...
Le meiux à faire est de dérivée TDateTimePicker dans un composant à toi dans lequel tu gères les dates fériées.

le pb c'est que je sais pas du tout comment on fait pour dérivé un composant vu que je débute dans l'univers du delphi

[HumanTool]

C'est vrai c'est pas évident, comme je ne l'ai pas fait moi même j'ai regarder comment faire. Et je suis tombé sur la méthodes de l'objet TDateTimePicker: BoldDays qui (selon l'aide en ligne) mettrait les jours spécifiés en gras.

procedureBoldDays(Days:array ofLongWord;varMonthBoldInfo:LongWord);
exemple:
BoldDays([1,8],MonthBoldInfo);

est ce que ça peut t'aider...

[OutOfRange]

Salut
Voici une petite function qui permet de déterminer le dimanche de Pâques
et les autres fêtes religieuses
Je l'ai pompée je ne sais + où, peut-être sur ce site d'ailleurs
Ca marche impec !

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
function Paques(AnneePaq : Integer) : TDateTime;
var
  Y,G,C,X,Z,D,E,N,P,J,M : Integer;
begin
  {Algorithme valable pour les dates comprises entre 1583 et 4099}
 
  {Lundi de Pâques = Pâques + 1 jour
  Ascension = Pâques + 39 jours
  Pentecôte = Pâques + 49 jours
  Lundi de Pentecôte = Pâques + 50 jours}
 
  Y := AnneePaq;
  G := (Y mod 19) + 1;
  C := Trunc((Y/100)) + 1;
  X := Trunc(3 * C / 4) - 12;
  Z := Trunc(((8 * C) + 5) / 25) - 5;
  D := Trunc(((5 * Y) / 4) - X - 10);
  E := ((11 * G)+ 20 + Z - X) mod 30;
  if ((E = 25) and (G > 11)) or (E = 24) then
    E := E + 1;
  N := 44 - E;
  if N < 21 then
    N := N + 30;
  P := N + 7 - ((D + N) mod 7);
  if P > 31 then
    J := P - 31
  else
    J := P;
  if J = P then
    M := 3
  else
    M := 4;
  Result := EncodeDate(AnneePaq, M, J);
end;

Je ne sais pas si ça peut t'aider...

[qi130]

j'ai regardé partout et j'ai pas trouvé...

O_Fonctions v.3
Description

o_IsFerie vérifie si la date donnée est un jour férié.

Syntaxe

function o_IsFerie( _Date: variant; _Zone: string = 'F' ): boolean;

Paramètres

_Date : variant : date dont on veut savoir s'il s'agit d'un jour férié.

_Zone : string = 'F' : facultatif, indicatif du pays pour lequel les jours fériés sont demandés.

Le paramètre date transmis peut être un TDateTime ou un String (dans ce cas la chaîne sera évaluée pour voir si la date est valide).

Retour

Renvoie True si la date donnée est un jour férié.

Renvoie False si la date donnée n'est pas un jour férié ou si la chaîne passée est invalide.

Remarque

Les différents pays actuellement recensés : B Belgique
F France
CH Suisse
D Allemagne
E Espagne
GR Grece
I Italie
DK Danemark
IRL Irlande
IS Islande
L Luxembourg
N Norvège
NL Pays Bas
P Portugal
S Suède

[manu80000]

C'est vrai c'est pas évident, comme je ne l'ai pas fait moi même j'ai regarder comment faire. Et je suis tombé sur la méthodes de l'objet TDateTimePicker: BoldDays qui (selon l'aide en ligne) mettrait les jours spécifiés en gras.

procedureBoldDays(Days:array ofLongWord;varMonthBoldInfo:LongWord);
exemple:
BoldDays([1,8],MonthBoldInfo);

est ce que ça peut t'aider...

je vais essayer cela lundi... merci pour ton aide.