art-00951

Адрес этой странички : http://doc-prg.narod.ru/art_00951/art_00951.htm
Дата обновления: 12.04.2009

© 12.04.2009 Сергей Попов

SQL-сервер : Interbase v 5.5 win32.
Тексты некоторых полезных хранимых процедур.
Работа с датами.

Эмуляция функции TRUNC (вспомогательная)

CREATE PROCEDURE MY_TRUNC (V DOUBLE PRECISION) RETURNS (RES INTEGER)
AS

BEGIN
    /* Эмуляция TRUNC */
    IF (V IS NULL) THEN V = 0;
    RES = CAST(V AS INTEGER);
    IF (:RES > :V) THEN RES = :RES - 1;
    SUSPEND;
END

Эмуляция функции MOD (вспомогательная)
MY_MOD

CREATE PROCEDURE MY_MOD (X INTEGER, Y INTEGER) RETURNS (RES INTEGER) AS DECLARE VARIABLE N INTEGER; DECLARE VARIABLE Z DOUBLE PRECISION; BEGIN /* Эмуляция MOD */ RES = 0; IF (:X IS NULL) THEN X = 0; IF (:Y IS NULL) THEN Y = 0; IF (:Y<>0) THEN BEGIN Z = :X / :Y; EXECUTE PROCEDURE MY_TRUNC (:Z) RETURNING_VALUES (:N); RES = :X - (:Y * :N); END SUSPEND; END

Хранимая процедура возвращает первый год Грегорианского календаря.

CREATE PROCEDURE FIRST_YEAR_FOR_GREG RETURNS (YEAR INTEGER)
AS

BEGIN
    /* Первый год Грегорианского календаря */
    YEAR = 1583;
    SUSPEND;
END

Проверка, является ли год високосным (366 дней в году).
YEAR_IS_LEAP

Проверка, является ли тройка чисел - корректной, как дата (год,месяц,год).
NUMBERS_IS_DATE

Проверка, является ли число YMD - корректной датой в формате YYYYMMDD.
YMD_IS_DATE

Создать дату в числовом формате(YYYYMMDD) из чисел Year, Month, Day с проверкой на корректность.
CREATE_DATE_INT

Создать дату в строковом формате (DD.MM.YYYY) из чисел Year, Month, Day с проверкой на корректность.
CREATE_DATE_STR

CREATE PROCEDURE CREATE_DATE_STR (YE INTEGER, MO INTEGER, DA INTEGER, DELIM VARCHAR(1) CHARACTER SET WIN1251) RETURNS (DATE_STR VARCHAR(10) CHARACTER SET WIN1251) AS DECLARE VARIABLE YES INTEGER; DECLARE VARIABLE D_STR VARCHAR(2); DECLARE VARIABLE M_STR VARCHAR(2); DECLARE VARIABLE Y_STR VARCHAR(4); BEGIN /* Создать дату в строковом формате(DD.MM.YYYY) из чисел YE, MO, DA */ /* YE - год */ /* MO - месяц */ /* DA - день */ /* DELIM - разделитель */ DATE_STR = ''; EXECUTE PROCEDURE NUMBERS_IS_DATE (:YE, :MO, :DA) RETURNING_VALUES (:YES); IF (:YES>0) THEN BEGIN IF (:DELIM IS NULL) THEN DELIM = ''; IF (:DELIM = '') THEN DELIM = '.'; IF (:DA IS NULL) THEN DA=0; IF (:MO IS NULL) THEN MO=0; IF (:YE IS NULL) THEN YE=0; IF (:DA < 10) THEN BEGIN D_STR = "0" || :DA; END ELSE BEGIN D_STR = :DA; END IF (:MO < 10) THEN BEGIN M_STR = "0" || :MO; END ELSE BEGIN M_STR = :MO; END IF (:YE < 10) THEN BEGIN Y_STR = "000" || :YE; END ELSE BEGIN IF (:YE < 100) THEN BEGIN Y_STR = "00" || :YE; END ELSE BEGIN IF (:YE < 1000) THEN BEGIN Y_STR = "0" || :YE; END ELSE BEGIN Y_STR = :YE; END END END DATE_STR = D_STR || :DELIM || M_STR || :DELIM || Y_STR; END SUSPEND; END

Из даты в формате YYYYMMDD выделить Год-Месяц в формате YYYYMM.
EXTRACT_YM_FROM_YMD

CREATE PROCEDURE EXTRACT_YM_FROM_YMD (YMD INTEGER) RETURNS (YM INTEGER) AS BEGIN /* Выделить ГодМесяц(YYYYMM) из даты в числовом формате(YYYYMMDD) */ IF (:YMD IS NULL) THEN YMD=0; YM = CAST((:YMD/100) AS INTEGER); IF (:YM IS NULL) THEN YM=0; IF (:YM < 0) THEN YM=0; SUSPEND; END

Из даты в формате YYYYMMDD выделить Год.
EXTRACT_YEAR_FROM_YMD

CREATE PROCEDURE EXTRACT_YEAR_FROM_YMD (YMD INTEGER) RETURNS (YE INTEGER) AS BEGIN /* Выделить ГОД из даты в числовом формате(YYYYMMDD) */ IF (:YMD IS NULL) THEN YMD=0; YE = CAST((:YMD/10000) AS INTEGER); IF (:YE IS NULL) THEN YE=0; IF (:YE < 0) THEN YE=0; SUSPEND; END

Из даты в формате YYYYMMDD выделить Месяц.
EXTRACT_MONTH_FROM_YMD

CREATE PROCEDURE EXTRACT_MONTH_FROM_YMD (YMD INTEGER) RETURNS (MO INTEGER) AS DECLARE VARIABLE YM INTEGER; DECLARE VARIABLE YE INTEGER; BEGIN /* Выделить МЕСЯЦ из даты в числовом формате(YYYYMMDD) */ EXECUTE PROCEDURE EXTRACT_YM_FROM_YMD (:YMD) RETURNING_VALUES (:YM); EXECUTE PROCEDURE EXTRACT_YEAR_FROM_YMD (:YMD) RETURNING_VALUES (:YE); MO = :YM - :YE*100; IF (:MO IS NULL) THEN MO=0; IF (:MO < 0) THEN MO=0; SUSPEND; END

Из даты в формате YYYYMMDD выделить День.
EXTRACT_DAY_FROM_YMD

CREATE PROCEDURE EXTRACT_DAY_FROM_YMD (YMD INTEGER) RETURNS (DAY INTEGER) AS DECLARE VARIABLE YM INTEGER; BEGIN /* Выделить ДЕНЬ из даты в числовом формате(YYYYMMDD) */ EXECUTE PROCEDURE EXTRACT_YM_FROM_YMD (:YMD) RETURNING_VALUES (:YM); DAY = :YMD - :YM*100; IF (:DAY IS NULL) THEN DAY=0; IF (:DAY < 0) THEN DAY=0; SUSPEND; END

Вычислить количество дней в месяце (с учетом високосности)
GET_COUNTDAYS_FOR_YM

CREATE PROCEDURE GET_COUNTDAYS_FOR_YM (YE INTEGER, MO INTEGER) RETURNS (COUNTDAYS INTEGER) AS DECLARE VARIABLE IS_LEAP INTEGER; BEGIN /* Определить количество дней в месяце с учетом високосности года */ COUNTDAYS = 0; IF (:YE IS NULL) THEN YE=0; IF (:MO IS NULL) THEN MO=0; IF (:YE>0) THEN BEGIN IF (:MO = 1) THEN COUNTDAYS = 31; IF (:MO = 2) THEN BEGIN COUNTDAYS = 28; EXECUTE PROCEDURE YEAR_IS_LEAP (:YE) RETURNING_VALUES (:IS_LEAP); IF (:IS_LEAP > 0) THEN COUNTDAYS = 29; END IF (:MO = 3) THEN COUNTDAYS = 31; IF (:MO = 4) THEN COUNTDAYS = 30; IF (:MO = 5) THEN COUNTDAYS = 31; IF (:MO = 6) THEN COUNTDAYS = 30; IF (:MO = 7) THEN COUNTDAYS = 31; IF (:MO = 8) THEN COUNTDAYS = 31; IF (:MO = 9) THEN COUNTDAYS = 30; IF (:MO = 10) THEN COUNTDAYS = 31; IF (:MO = 11) THEN COUNTDAYS = 30; IF (:MO = 12) THEN COUNTDAYS = 31; END SUSPEND; END

Вычислить "размер " даты.
Дата задана тройкой чисел Год, Месяц, День.
GET_SIZEDATE

CREATE PROCEDURE GET_SIZEDATE (YE INTEGER, MO INTEGER, DA INTEGER) RETURNS (SIZEDATE INTEGER) AS DECLARE VARIABLE YES INTEGER; DECLARE VARIABLE BUF1 INTEGER; DECLARE VARIABLE BUF2 INTEGER; DECLARE VARIABLE BUF3 INTEGER; BEGIN /* Вычислить "размер даты" : кол-во дней от нач.даты */ /* Используется для расчета кол-ва дней между двумя датами */ SIZEDATE = 0; EXECUTE PROCEDURE NUMBERS_IS_DATE (:YE, :MO, :DA) RETURNING_VALUES (:YES); IF (:YES>0) THEN BEGIN IF (:DA IS NULL) THEN DA=0; IF (:MO IS NULL) THEN MO=0; IF (:YE IS NULL) THEN YE=0; IF ((:MO>0) AND (:MO<=2)) THEN BEGIN BUF1 = CAST(((:YE-1)/4) AS INTEGER); BUF2 = CAST((3/4*((:YE-1)/100+1)) AS INTEGER); SIZEDATE = :YE*365 + :DA + 31*(:MO-1) + :BUF1 - :BUF2; END ELSE BEGIN BUF1 = CAST((:MO*0.4+2.3) AS INTEGER); BUF2 = CAST((:YE/4) AS INTEGER); BUF3 = CAST((3/4*(:YE/100+1)) AS INTEGER); SIZEDATE = :YE*365 + :DA + 31*(:MO-1) - :BUF1 + :BUF2 - :BUF3; END END SUSPEND; END

Вычислить "размер " даты (используется в D2YMD_MINUS_D1YMD при вычислении разницы дат).
Дата задана в формате YYYYMMDD.
GET_SIZEDATE_YMD

CREATE PROCEDURE GET_SIZEDATE_YMD (YMD INTEGER) RETURNS (SIZEDATE INTEGER) AS DECLARE VARIABLE YE INTEGER; DECLARE VARIABLE MO INTEGER; DECLARE VARIABLE DA INTEGER; DECLARE VARIABLE YES INTEGER; BEGIN /* Вычислить "размер даты" : кол-во дней от нач.даты */ /* Используется для расчета кол-ва дней между датами */ SIZEDATE = 0; EXECUTE PROCEDURE EXTRACT_YEAR_FROM_YMD (:YMD) RETURNING_VALUES (:YE); EXECUTE PROCEDURE EXTRACT_MONTH_FROM_YMD (:YMD) RETURNING_VALUES (:MO); EXECUTE PROCEDURE EXTRACT_DAY_FROM_YMD (:YMD) RETURNING_VALUES (:DA); EXECUTE PROCEDURE NUMBERS_IS_DATE (:YE, :MO, :DA) RETURNING_VALUES (:YES); IF (:YES>0) THEN BEGIN EXECUTE PROCEDURE GET_SIZEDATE (:YE, :MO, :DA) RETURNING_VALUES (:SIZEDATE); END SUSPEND; END

Вычислить количество дней между двумя датами.
Даты заданы в формате YYYYMMDD.
D2YMD_MINUS_D1YMD

CREATE PROCEDURE D2YMD_MINUS_D1YMD (YMD1 INTEGER, YMD2 INTEGER) RETURNS (COUNTDAYS INTEGER) AS DECLARE VARIABLE D1 INTEGER; DECLARE VARIABLE D2 INTEGER; DECLARE VARIABLE YES INTEGER; BEGIN /* Вычислить кол-во дней между двумя датами в формате YYYYMMDD */ /* Если возвращаемое значение меньше 0, то ошибка */ COUNTDAYS = -1; EXECUTE PROCEDURE YMD_IS_DATE (:YMD1) RETURNING_VALUES (:YES); IF (:YES>0) THEN BEGIN EXECUTE PROCEDURE YMD_IS_DATE (:YMD2) RETURNING_VALUES (:YES); IF (:YES>0) THEN BEGIN IF (:YMD1 < :YMD2) THEN BEGIN EXECUTE PROCEDURE GET_SIZEDATE_YMD (:YMD1) RETURNING_VALUES (:D1); EXECUTE PROCEDURE GET_SIZEDATE_YMD (:YMD2) RETURNING_VALUES (:D2); COUNTDAYS = :D2 - :D1; END ELSE BEGIN IF (:YMD1 = :YMD2) THEN COUNTDAYS = 0; END END END SUSPEND; END

Вычислить день недели (дата - 3 числа: год, месяц, день).
GET_DAYOFWEEK

CREATE PROCEDURE GET_DAYOFWEEK (YE INTEGER, MO INTEGER, DA INTEGER) RETURNS (DW INTEGER) AS DECLARE VARIABLE YES INTEGER; DECLARE VARIABLE A INTEGER; DECLARE VARIABLE Y INTEGER; DECLARE VARIABLE M INTEGER; DECLARE VARIABLE N INTEGER; DECLARE VARIABLE X1 INTEGER; DECLARE VARIABLE X2 INTEGER; DECLARE VARIABLE X3 INTEGER; DECLARE VARIABLE X4 INTEGER; DECLARE VARIABLE Z DOUBLE PRECISION; BEGIN /* Вычислить день недели (1-понед, 7-воскр) */ /* 0 - ошибка */ DW = 0; EXECUTE PROCEDURE NUMBERS_IS_DATE (:YE, :MO, :DA) RETURNING_VALUES (:YES); IF (:YES>0) THEN BEGIN Z = (14 - :MO) / 12; EXECUTE PROCEDURE MY_TRUNC (:Z) RETURNING_VALUES (:A); Y = :YE - :A; M = :MO + :A * 12 - 2; Z = :Y / 4; EXECUTE PROCEDURE MY_TRUNC (:Z) RETURNING_VALUES (:X1); Z = :Y / 100; EXECUTE PROCEDURE MY_TRUNC (:Z) RETURNING_VALUES (:X2); Z = :Y / 400; EXECUTE PROCEDURE MY_TRUNC (:Z) RETURNING_VALUES (:X3); Z = (:M * 31) / 12; EXECUTE PROCEDURE MY_TRUNC (:Z) RETURNING_VALUES (:X4); DW = 7000 + (:DA + :Y + :X1 - :X2 + :X3 + :X4); A = :DW; EXECUTE PROCEDURE MY_MOD (:A , 7) RETURNING_VALUES (:DW); IF (:DW = 0) THEN DW = 7; END SUSPEND; END

-->