Voila j'ai réussit à trouver une solution qui fonctionne :
je met dasn une variable l'année du mois sur lequel on se situe :
1 2
| DecodeDate(MonthCalendar1.Date,year,mois,day);
Van:=IntToStr(year); |
je vide mon tableau ( a pas oublié sinon sa marche que dans un sens) :
1 2 3 4 5 6 7
| for ligne:= 1 to 12 do
begin
for colonne := 1 to 31 do
begin
Tevenement[ligne,colonne] := 0;
end;
end; |
je rajoute une condition à ma requettes (select):
Adoquery1.Parameters.paramByName('annee').Value := van;
Et voila le tour est joué. parcontre si vous avez une autre solution qui fait la même chose mais géré directement avec le monthcalendar jveut bien la connétre
Partager