Discussion :

[bingo06260]

Bonjour tout le monde
J’ai 4 DateTimePicker :
- DateTimePicker1.date (présent la date début affectation)
- DateTimePicker2.date (présent la date de retour affectation)
- DateTimePicker3.time (l’heure début affectation)
- DateTimePicker4.time (l’heure de retour d’affectation)

Alors je vous faire un contrôle (les contraintes d’intégrités)

1° :si(DateTimePicker1.date> DateTimePicker2.date) alors
Message (‘erreur’) ;

2 °:Si((DateTimePicker1.date= DateTimePicker2.date) and(DateTimePicker3.time> DateTimePicker4.time)) alors
Message (‘erreur’) ;

LA 1° CA marche mai la 2° non ?

En Delphi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Begin
  If (DateTimePicker1.date> DateTimePicker2.date) then
  begin 
    Showmessage (‘verifier la date’);
    Exit;
  End;
  If ((DateTimePicker1.date= DateTimePicker2.date) and(DateTimePicker3.time > DateTimePicker4.time))Then
  Begin
    Showmessage (‘vérifier l''heure’);
    Exit;
  End;
End;

[Cl@udius]

Salut

Assure-toi que DateTimePicker3 et DateTimePicker4 possèdent la même valeur pour la propriété Date.

Ou alors tu peux faire ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  D1, D2: TDateTime;
begin
  D1 := Trunc(DateTimePicker1.DateTime) + Frac(DateTimePicker2.DateTime);
  D2 := Trunc(DateTimePicker3.DateTime) + Frac(DateTimePicker4.DateTime);
 
  if D1 > D2 then
    ShowMessage('Début d''affectation supérieur au retour.')
  else
    ShowMessage('du ' + DateTimeToStr(D1) + ' au ' + DateTimeToStr(D2));
end;

@+ Claudius

[akli_agha]

Vérifies si les propriétés Time des TDateTimePicker sont kif-kif !
La comparaison prends en compte aussi bien la date que l'heure.

[bingo06260]

Salut

Assure-toi que DateTimePicker3 et DateTimePicker4 possèdent la même valeur pour la propriété Date.

Ou alors tu peux faire ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  D1, D2: TDateTime;
begin
  D1 := Trunc(DateTimePicker1.DateTime) + Frac(DateTimePicker2.DateTime);
  D2 := Trunc(DateTimePicker3.DateTime) + Frac(DateTimePicker4.DateTime);
 
  if D1 > D2 then
    ShowMessage('Début d''affectation supérieur au retour.')
  else
    ShowMessage('du ' + DateTimeToStr(D1) + ' au ' + DateTimeToStr(D2));
end;

@+ Claudius

merci Claudius; ca marche tre bien, mais il reste un probleme c les date sont egaux alors l'heur de DateTimePicker3.DateTime ne doit pas etre superieur a DateTimePicker4.DateTime
merci d'avance

[Cl@udius]

Salut

Le code que je t'ai proposé est déjà censé faire cette vérification !!

D1 est la date/heure du début d'affectation
D2 est la date/heure du retour d'affectation

Le code vérifie simplement que D1 est inférieure à D2. Voilou !

@+ Claudius

[bingo06260]

Grace a toi Cl@udius j’ai trouve la solution ; merci beaucoup ;

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
var
  D1, D2:TDate;
  T1,T2: TTime;
begin
  D1 := Trunc(DateTimePicker1.Date);
  D2 := Trunc(DateTimePicker2.Date);
 
  T1 := Frac(DateTimePicker3.time);
  T2 := Frac(DateTimePicker4.time);
 
  if D1 > D2 then
  begin
    ShowMessage('Début debut supérieur au date de retour.');
    exit;
 end;
 if T1 > T2 then
 begin
  ShowMessage('verifie l’’heure ' );
  exit;
  end;