если нет календаря используйте запрос
ВЫБРАТЬ
1 КАК Цифра
ПОМЕСТИТЬ ТаблицаЦифр
ОБЪЕДИНИТЬ
ВЫБРАТЬ
2
ОБЪЕДИНИТЬ
ВЫБРАТЬ
3
ОБЪЕДИНИТЬ
ВЫБРАТЬ
4
ОБЪЕДИНИТЬ
ВЫБРАТЬ
5
ОБЪЕДИНИТЬ
ВЫБРАТЬ
6
ОБЪЕДИНИТЬ
ВЫБРАТЬ
7
ОБЪЕДИНИТЬ
ВЫБРАТЬ
8
ОБЪЕДИНИТЬ
ВЫБРАТЬ
9
ОБЪЕДИНИТЬ
ВЫБРАТЬ
0
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ДОБАВИТЬКДАТЕ(&НачДата, ДЕНЬ, ТаблицаЦифр.Цифра + ТаблицаЦифр1.Цифра * 10 + ТаблицаЦифр2.Цифра * 100 + ТаблицаЦифр3.Цифра * 1000) КАК Дата
ПОМЕСТИТЬ ТаблицаДат
ИЗ
ТаблицаЦифр КАК ТаблицаЦифр,
ТаблицаЦифр КАК ТаблицаЦифр1,
ТаблицаЦифр КАК ТаблицаЦифр2,
ТаблицаЦифр КАК ТаблицаЦифр3
ГДЕ
ДОБАВИТЬКДАТЕ(&НачДата, ДЕНЬ, ТаблицаЦифр.Цифра + ТаблицаЦифр1.Цифра * 10 + ТаблицаЦифр2.Цифра * 100 + ТаблицаЦифр3.Цифра * 1000) <= &КонДата
;
////////////////////////////////////////////////////////////////////////////////
УНИЧТОЖИТЬ ТаблицаЦифр
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ТаблицаДат.Дата КАК Дата
ИЗ
ТаблицаДат КАК ТаблицаДат
ГДЕ
ДЕНЬ(ТаблицаДат.Дата) = 1
(8) Чудесно! Спасибо! Я правда ещё не понял как, но чудесно! =)
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший