Widzisz wypowiedzi wyszukane dla zapytania: jajka do kolorowania

datamodule2.IbQuery4.DisableControls;
                with  datamodule2.IbQuery4 do begin
                   close;
                   sql.clear;
                   sql.Add('select * from Historia ') ;         //
pobieram wszystko (*) bo do ibquery sa przyporzadkowane inne kontrolki
                   -
                   open;
                 end;  /// pobranie wszystkiego do  datasetu - na
razie dane sa tylko z tego roku wiec fraza where odpowiedni rok nic nie
zmienia
for mc:= 1 to 12 do   // petla dla miesiecy
begin
   case mc of
   2:dd:=28;
   1,3,5,7,8,10,12:dd:=31;
   4,6,9,11:dd:=30;
   end;  / / tu wiadomo - lata przestepcze :)

  for dn:=1 to dd do  // petla dla dni
        begin
          xdate:= encodedate(y,mc,dn); // tworymy dopowiednia date
              cosjest:=false;
            datamodule2.IbQuery4.First;
            while not datamodule2.IbQuery4.Eof do       //
przeszukiwanie datasetu na okolicznosc wystepowania szukanej daty
              begin
               zdate:=  datamodule2.IbQuery4.Fields[12].AsDateTime;
// tu pobiera z pola typu timestamp !!!!
               if (zdate =xdate)and(zdate<=xdate+1) then  begin   i
akcja jesli cos znaleziono

yp1.SetColorAtDate(xdate,clyellow,true);
              cosjest:=true; end; datamodule2.IbQuery4.Next; end;

     end;
end;