Discussion :

[louay02]

Bonjour

j'ai fais un compteur qui compte combien y a t il des enregistrements à une date choisi à partir d'un datetimepiker, le souci que mon compteur n'incrémente pas

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
begin
  D1:=datetimepicker1.DateTime;
  D2:=datetimepicker2.DateTime;
  L:=TStringList.Create;
  S:=TStringList.Create;
  L.LoadFromFile('C:\stat\Fichier.txt');
  I:=0;
  h:=0;
   repeat
   L1:=L.Strings[i];
   s.Delimiter:=',';
   s.DelimitedText:=L1;
   K:=s[0];
   Date:=K[4]+K[5]+K[3]+K[1]+K[2]+K[6]+'20'+K[7]+K[8];
   Hour:=S[1];
   Subno:=S[8];
   Apl_Name:=S[3];
   Stat1:=copy(L1,Length(L1)-103,50);
   Stat1_1 :=copy(Stat1,Length(Stat1)-49,1);
   if Stat1_1=',' then Stat1:=copy(L1,Length(L1)-102,50) else
    Stat1:=copy(L1,Length(L1)-103,50);
    Stat1_1 :=copy(Stat1,Length(Stat1)-49,1);
    if  strtodate(Date)=D1 then h:=h+1;
   i:=i+1;
   until i=L.Count;
     showmessage(inttostr(h))

Le résultat est variable "h"

[BuzzLeclaire]

Salut,

Des stats sur un fichier text c'est original, je suppose que tu n'as pas le choix....

Il faut que tu vérifie le format que retourne ton D1 c'est du DateTime donc il dois y avoir les heures...

Essai

Code :

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

if FormatDateTime('dd/mm/yyyy',StrToDate(Date)) = FormatDateTime('dd/mm/yyyy',D1) then ...

Je le fais à la voler...

a+

[EDIT] : Pour info tant que tu test l'égalité d'une date cela ira mais si jamais tu devais teste du > ou < il faut vraiment être en type date ou mettre le format STR au format anglais.

[louay02]

ca marche Merci BuzzLeclaire

[louay02]

Des stats sur un fichier text c'est original.

j'ai une application qui fournies des données d'une formas texte

[EDIT] : Pour info tant que tu test l'égalité d'une date cela ira mais si jamais tu devais teste du > ou < il faut vraiment être en type date ou mettre le format STR au format anglais.

oui exactement j'aurai testé plut târ un Between des dates dans mon fichier texte

Si vous savez une aidez n’hésiter pas