Discussion :

[b.bilel]

Bonjour ; j'ai 2 edits , le premier affiche l'ancien kilometrage d'un vehicule x,
le deuxieme affiche le nouveau kilometrage .
Je voudrai quand il y aura un interval de 5000 km entre edit1 et edit2 j'obtient un message qui m'informe que le Km et au maxim et chaque fois c'est la meme chose.
Voici mon code

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
  begin
    edit3.Text := Inttostr(daysbetween(StrToint(edit1.Text),StrToint(edit2.Text)));
  end;

Merci pour votre aide.

[Fxg]

Bonjour,

Puisque tu raisonnes sur des kms pourquoi utiliser la fonction daysbetween ?
Tu testes simplement la différences entre tes deux chiffres et si elle est supérieure à 5000 alors tu fais un showmessage ou autre.

Code :

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

If (strtoint(Edit1.text)-strtoint(edit2.text)) then showmessage("ATTENTION")

Si j'ai bien traduit la question qui n'est pas très clair...

[Cl@udius]

Salut

Effectivement DaysBetween sert à calculer le nombre de jours séparant 2 dates. Donc dans ton cas tu peux faire quelque chose comme ceci:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  Km1, Km2, Diff: Integer;
const
  Interval = 5000;
begin
  Km1 := StrToInt(Edit1.Text);
  Km2 := StrToInt(Edit2.Text);
  // Différence  
  Diff := Km2 - Km1
  Edit3.Text := IntToStr(Diff);
  // Message si > à Interval
  if Diff > Interval then
    ShowMessage(Format('Différence Kilométrique supérieur à l''intervalle de %d', [Interval]));
end;

@+ Claudius

[b.bilel]

C'est trés bien , le code est bon
Je vous remerci Pour votre aide.