SLT

je voudrais pouvoir calculer les recettes saisies dans une table . là où ça bloque c'est lorsque je veux calculer pour un mois précis à une année par exemple:
le mois de février de l'an 2004
voiçi mon code

//CALCUL cas DU MOIS

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
35
36
37
38
39
40
41
42
43
44
45
46
if(RadioButton2->Checked==true)
         {
         M1 =combo2->Text;
         switch ('M1')
             {
             case  'Jan' : NM =1;  break;
             case  'Fév' : NM= 2;break;
             case  'Mars' : NM= 3;  break;
             case  'Avr' : NM=4; break;
             case  'Mai' : NM= 5; break;
             case  'Juin' : NM= 6; break;
             case  'Juil' : NM=7;break;
             case  'Août' : NM=8; break;
             case  'Sept' : NM=9;break;
             case  'Oct' : NM=10; break;
             case  'Nov' : NM=11; break;
             case  'Déc' : NM=12; break;
             }
 
//Fixer une année
 
        if(RadioButton3->Checked==true)
            {  
            A1= combo3->Text;
            }
 
 
         for (int i = Mini; i <= Max; i++) // Mini et max et le nbre  d'enregistrement de ma table
            {dtDepense=StrToDate(Form1->Table->FieldByName("Date")->Text);
         //TDateTime dtDatesys =Date();
             DecodeDate(dtDepense, Year, Month, Day);
         M2 = IntToStr(Month);
 
         A2= IntToStr(Year);
 
            if  (NM == M2) && (A1==A2)
            {
            imois = imois + StrToFloat(Form1->Table->FieldByName("Total")->Text);
             Form1->Table->Next();
              // do something with record...
            }
              else Form1->Table->Next();
            }
//            Label6->Caption = FloatToStr(imois);
  Label6->Caption =StrToInt(M1);
            }
où le pb??

Balises de [Code] rajoutées par henderson. Il faudra y penser la prochaine fois !