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
où le pb??
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); }
Balises de [Code] rajoutées par henderson. Il faudra y penser la prochaine fois !
Partager