controle des champs DateEdit

Question

Bonjour, 
je suis gedeon, je viens de commencé Delphi et j'ai un problème de controle de champs.je veux controlé les champs de date.je veux donné un intervall de date;Date Min et Max.Merci

Cirec · Answer

Bonjour,

et bien venu ;)

pour les besoin du teste j'ai mis 3 TDateTimePcker et 1 TButton sur une fiche;

Dans les uses il faut mettre "DateUtils" 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1        : TForm1;

implementation

{$R *.dfm}
uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  DateMin,
  DateMax,
  DateTest: TDateTime;
begin
  DateMin := DateTimePicker1.DateTime;
  DateMax := DateTimePicker2.DateTime;
  DateTest := DateTimePicker3.DateTime;
  if WithinPastDays(DateMin, DateTest, DaysBetween(DateMin, DateMax)) then
    ShowMessage('Dans l''intervalle')
end;

end.
 

Cordialement,

&#8194;&#8194;&#8194;&#8194;@+ Cirec

korgis · Answer

Oui, soit le bienvenu dans l'univers Delphi.

Petite question sympa qui nous rappelle qu'on a tous débuté ;-)
...et qu'on a pas fini d'apprendre !

Si tu ne veux pas utiliser DateUtils (?), ou si tu utilises une très vieille version de Delphi qui ne dispose pas des fonctions "WithinPastDays" et "DaysBetween", voici une petite fonction qui peut dépanner :

function IsInInterval(DateMini, DateMaxi, DateTest: TDate): Boolean;
begin
  Result := not (Int(DateTest) < Int(DateMini)) and not (Int(DateTest) > Int(DateMaxi));
end;
que tu peux tester avec 3 TDateTimePicker :

procedure TForm1.DateTimePickerTestChange(Sender: TObject);
begin
  if IsInInterval(DateTimePickerMini.Date, DateTimePickerMaxi.Date, DateTimePickerTest.Date) then
    Label1.Caption := 'dans l''intervalle'
  else
    Label1.Caption := 'pas dans l''intervalle'
end;

Controle des champs DateEdit

2 réponses

Votre réponse

Discussions similaires