Владимир Аксенов

Для FIREBIRD

execute block
returns (
  calendar_date date
)
as
begin
  --  получим 1-е число текущего месяца
  calendar_date = left(current_date, 7) || '-01';
  --
  while (:calendar_date <= current_date) do begin
    suspend;
    calendar_date = calendar_date + 1;
  end--while
end