Calcul de recette...

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:

---

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 !

:tagcode:
tu es sûr de ça :!: :?: :!: :?:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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; }

---

Le switch ne fonctionne qu'avec des valeurs entieres ce que ne sont pas 'M1', 'Jan' ....

Salut !

Au cas ou le switch poserait un problème (comme le souligne Trap D), voici un bout de code
qui convertit le nom du mois en int :

Code:

---

1 2	AnsiString Mois[12]= {"JAN", "FEV", "MAR", "AVR", "MAI", "JUIN", "JUIL", "AOU", "SEP", "OCT", "NOV", "DEC"};

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

int CodeMois(AnsiString M) { int n = M.Pos("é"); if(n != 0) M[n] = 'e';   AnsiString A = M.UpperCase(); for(int j = 0; j < 12; j++) { if(A.Pos(Mois[j]) == 1) //ou != 0 ...pour trouver n'importe où dans la chaîne { return j; } } return -1; }

---

Donc à l'usage :

Code:

---

int mois = CodeMois(Edit1->Text);

---

ou

Code:

---

Label1->Caption = CodeMois("Février");

---

etc...

A plus !

Ou alors :
http://c.developpez.com/faq/bcb/?pag...itchansistring :P

J'ai aussi une proposition qui a l'avantage d'avoir un code plus lisible (mais peut-être moins rapide): une suite de if else if...

Code:

---

1 2 3 4 5 6

if (M1=="Jan") { NM=1; } else if (M1=="Fév") { NM=2; } else if (M1=="Mars") { NM=3; } else ... ... else { // Autre valeur };

---