Процедуры

[DemAn]

нужна процедурка pr_КОМСОТР

[DemAn]

есть даты например
01-06-09 по 31-07-09

как узнать число календарных дней ?

[Vitaly]

Между этими датами ?

Функции для работы с датами
Предполагается что даты - это массив из трех элементов (день, месяц, год). Период между датами также может представляться в виде массива (количество дней, месяцев, лет).
В дальнейшем описании предполагается описание s
var d1[3], d2[3], pd[3], n;

Дата(день,месяц,год,d1)
Описание Установить дату d1 с соответствующими значениями:
Дата(1,4,1994,d1);
Дата(3,3,1997,d2);

Период(дней,месяцев,лет,pd)
Описание Аналогично функции 1, только установить период.

ДатаМинусДата(d2,d1)
Описание Возвращается количество дней между дата d1 и d2.
ДатаМинусДата(d2,d1) = 1097 дней.

ДатаПлюсДни(d1,n,d2)
Описание d2 устанавливается в дату, которая наступит через n дней после даты d1.
Если n = 10, то
ДатаПлюсДни(d1,10,d2) установит d2 в 1.4.1994.

ДатаМинусДни(d1,n,d2)
Описание d2 устанавливается в дату, которая меньше d1 на n дней.
ДатаМинусДни(d1,1,d2) установит d2 в 22.3.1994.

ПериодМеждуДатами(d1,d2,pd
Описание pd устанавливается равным периоду между датами d1, d2, выраженному в днях месяцах и годах.
ПериодМеждуДатами(d1,d2,pd) равен 2 для 11 месяцев и 2 лет, т.е.
pd[0]=2; pd[1]=11; pd[2]=2;

ДатаПлюсПериод(d1,pd,d2)
Описание d2 устанавливается в дату, равную d1 плюс период pd.
Если pd - (2,11,2), d1 (1,4,1994), то
ДатаПлюсПериод(d1,pd,d2) установит d2 в (3,3,1997).

ДатаМинусПериод(d1,pd,d2)
Описание d2 устанавливается в дату, равную d1 минус период pd.
Если pd - (6,3,2), d1 (3,3,1997), то
ДатаМинусПериод(d1,pd,d2) установит d2 в (25,11,1994).

ДатаРавнаДате(d1,d2)
Описание Возвращает 1, если дата d1 равна дате d2, иначе - 0.

ДатаМеньшеДаты(d1,d2)
Описание Возвращает 1, если дата d1 меньше даты d2, иначе - 0.

[DemAn]

спасибо !
можно еще так сделать

select to_date('31.07.2009', 'DD.MM.YYYY') - to_date('01.06.2009', 'DD.MM.YYYY')+1 from dual

[DemAn]

запрос ворачивает строчку в три столбца

| 25 | 56 | 85 |

как посчитать столбцы ?

[Vitaly]

{

var d1[3], d2[3];

Дата( 1,6,2009,d1);
Дата(30,6,2009,d2);

x = ДатаМинусДата(d2,d1);
put("дни = %d", x);

return 0;}

[DemAn]

можеше выложить процедурку которая формирует форму 57 Т ?


Форма № 57-Т
Приказ Росстата:
Об утверждении формы
от 10.08.2009 № 165

[A2]

Зачем ее выкладывать, она есть в обновлении.

см. файл z.exp там указано где лежит

[olya_gran]

Подскажите, где искать файл z.exp и в каком модуле формируется форма 57-Т? В документации к обновлению 5.04.01.01 нет упоминания данной формы.

[DUCKKK]

Этой формы нет в программе.