|
Zmeishe...По твоему я её где обрабатываю?
Sorry... Я имел в виду внешнюю UDF...
У меня для одной проги на IB6 дата в виде одного числа INTEGER использовалась, и вычислял я начало месяца, конец и прочее без UDF...
Для твоего случая можно сделать так:
EXECUTE PROCEDURE peEncodeDate (Y INTEGER, M INTEGER, D INTEGER)
RETURNING_VALUES :L,:n;
EXECUTE PROCEDURE peIncMonth (n INTEGER, k INTEGER)
RETURNING_VALUES :L,:n;
Должно работать и на IB и на Oracle... проблемы будут только с датой до рождества Христова... минус я в peDiv2i не учел...
CREATE PROCEDURE peDiv2i (n1 INTEGER, n2 INTEGER)
RETURNS (i INTEGER, n INTEGER)
AS DECLARE VARIABLE f DOUBLE PRECISION;
BEGIN
IF (n1 IS NULL) THEN n1 = 0;
f = n1; f = f / n2; i = 0.5;
IF (i = 0) THEN
IF (f < 0) THEN f = f - 1; ELSE f = f + 1;
ELSE IF (f < 0) THEN f = f - 0.5; ELSE f = f + 0.5;
i = f; IF (i < 0) THEN i = i + 1; ELSE i = i - 1;
n = n1 - i * n2;
END
[quot]
[quot]
CREATE PROCEDURE peEncodeYear (Y INTEGER)
RETURNS (L INTEGER, n INTEGER)
AS DECLARE VARIABLE i INTEGER;
BEGIN
EXECUTE PROCEDURE peDiv2i (:Y, 1000) RETURNING_VALUES :i,:Y;
n = 365241 * i; L = 1;
IF (Y >= 100) THEN BEGIN
EXECUTE PROCEDURE peDiv2i (:Y, 100) RETURNING_VALUES :i,:Y;
n = n + 36524 * i + 1; L = 0; END
IF (Y >= 4) THEN BEGIN
EXECUTE PROCEDURE peDiv2i (:Y, 4) RETURNING_VALUES :i,:Y;
n = n + 1461 * i; IF (L = 0) THEN n = n - 1; L = 1; END
IF (Y > 0) THEN BEGIN
n = n + 365 * Y + L; L = 0; END
END
CREATE PROCEDURE peEncodeMonth (Y INTEGER, M INTEGER)
RETURNS (L INTEGER, n INTEGER)
AS BEGIN
EXECUTE PROCEDURE peEncodeYear (:Y) RETURNING_VALUES :L,:n;
IF (M > 1)
THEN BEGIN n = n + 31;
IF (M > 2)
THEN BEGIN n = n + 28 + L;
IF (M > 3)
THEN BEGIN n = n + 31;
IF (M > 4)
THEN BEGIN n = n + 30;
IF (M > 5)
THEN BEGIN n = n + 31;
IF (M > 6)
THEN BEGIN n = n + 30;
IF (M > 7)
THEN BEGIN n = n + 31;
IF (M > 8)
THEN BEGIN n = n + 31;
IF (M > 9)
THEN BEGIN n = n + 30;
IF (M > 10)
THEN BEGIN n = n + 31;
IF (M > 11)
THEN n = n + 30;
END END END END END END END END END END
END
CREATE PROCEDURE peEncodeDate (Y INTEGER, M INTEGER, D INTEGER)
RETURNS (L INTEGER, n INTEGER)
AS BEGIN
EXECUTE PROCEDURE peEncodeMonth (:Y,:M) RETURNING_VALUES :L,:n;
n = n + D - 1;
END
CREATE PROCEDURE peDecodeYear (i INTEGER)
RETURNS (L INTEGER, Y INTEGER, n INTEGER)
AS BEGIN
EXECUTE PROCEDURE peDiv2i (:i, 365241) RETURNING_VALUES :i,:n;
Y = 1000 * i; L = 1;
IF (n > 36524) THEN BEGIN n = n - 1;
EXECUTE PROCEDURE peDiv2i (:n, 36524) RETURNING_VALUES :i,:n;
Y = Y + 100 * i; L = 0; END
IF (n >= 1460 + L) THEN BEGIN IF (L = 0) THEN n = n + 1;
EXECUTE PROCEDURE peDiv2i (:n, 1461) RETURNING_VALUES :i,:n;
Y = Y + 4 * i; L = 1; END
IF (n >= 365 + L) THEN BEGIN n = n - L;
EXECUTE PROCEDURE peDiv2i (:n, 365) RETURNING_VALUES :i,:n;
Y = Y + i; L = 0; END
END
CREATE PROCEDURE peDecodeMonth (i INTEGER)
RETURNS (L INTEGER, Y INTEGER, M INTEGER, n INTEGER)
AS BEGIN
M = 1; EXECUTE PROCEDURE peDecodeYear (:i) RETURNING_VALUES :L,:Y,:n;
IF (n >= 31)
THEN BEGIN M = 2; n = n - 31;
IF (n >= 28 + L)
THEN BEGIN M = 3; n = n - 28 - L;
IF (n >= 31)
THEN BEGIN M = 4; n = n - 31;
IF (n >= 30)
THEN BEGIN M = 5; n = n - 30;
IF (n >= 31)
THEN BEGIN M = 6; n = n - 31;
IF (n >= 30)
THEN BEGIN M = 7; n = n - 30;
IF (n >= 31)
THEN BEGIN M = 8; n = n - 31;
IF (n >= 31)
THEN BEGIN M = 9; n = n - 31;
IF (n >= 30)
THEN BEGIN M = 10; n = n - 30;
IF (n >= 31)
THEN BEGIN M = 11; n = n - 31;
IF (n >= 30)
THEN BEGIN M = 12; n = n - 30;
END END END END END END END END END END END
END
CREATE PROCEDURE peDecodeDate (i INTEGER)
RETURNS (L INTEGER, Y INTEGER, M INTEGER, D INTEGER)
AS BEGIN
EXECUTE PROCEDURE peDecodeMonth (:i) RETURNING_VALUES :L,:Y,:M,:D; D = D + 1;
END
CREATE PROCEDURE peDaysInLMonth (L INTEGER, M INTEGER)
RETURNS (D INTEGER)
AS BEGIN
IF (M = 1) THEN D = 31;
ELSE IF (M = 2) THEN D = 28 + L;
ELSE IF (M = 3) THEN D = 31;
ELSE IF (M = 4) THEN D = 30;
ELSE IF (M = 5) THEN D = 31;
ELSE IF (M = 6) THEN D = 30;
ELSE IF (M = 7) THEN D = 31;
ELSE IF (M = 8) THEN D = 31;
ELSE IF (M = 9) THEN D = 30;
ELSE IF (M = 10) THEN D = 31;
ELSE IF (M = 11) THEN D = 30;
ELSE D = 31;
END
CREATE PROCEDURE peStartOfTheMonth (i INTEGER)
RETURNS (L INTEGER, n INTEGER)
AS DECLARE VARIABLE Y INTEGER;
DECLARE VARIABLE M INTEGER; DECLARE VARIABLE D INTEGER;
BEGIN
EXECUTE PROCEDURE peDecodeDate (:i) RETURNING_VALUES :L,:Y,:M,:D; D = 1;
EXECUTE PROCEDURE peEncodeDate(:Y,:M,:D) RETURNING_VALUES :L,:n;
END
CREATE PROCEDURE peEndOfTheMonth (i INTEGER)
RETURNS (L INTEGER, n INTEGER)
AS DECLARE VARIABLE Y INTEGER;
DECLARE VARIABLE M INTEGER; DECLARE VARIABLE D INTEGER;
BEGIN
EXECUTE PROCEDURE peDecodeDate (:i) RETURNING_VALUES :L,:Y,:M,:D;
EXECUTE PROCEDURE peDaysInLMonth (:L,:M) RETURNING_VALUES :D;
EXECUTE PROCEDURE peEncodeDate(:Y,:M,:D) RETURNING_VALUES :L,:n;
END
CREATE PROCEDURE peIncMonth (i INTEGER, k INTEGER)
RETURNS (L INTEGER, n INTEGER)
AS DECLARE VARIABLE Y INTEGER;
DECLARE VARIABLE M INTEGER; DECLARE VARIABLE D INTEGER;
BEGIN
EXECUTE PROCEDURE peDecodeDate (:i) RETURNING_VALUES :L,:Y,:M,:D;
M = M - 1 + k;
EXECUTE PROCEDURE peDiv2i (:M, 12) RETURNING_VALUES :n,:M;
M = M + 1; Y = Y + n;
EXECUTE PROCEDURE peEncodeYear (:Y) RETURNING_VALUES :L,:n;
EXECUTE PROCEDURE peDaysInLMonth (:L,:M) RETURNING_VALUES :n;
IF (D > n) THEN D = n;
EXECUTE PROCEDURE peEncodeDate(:Y,:M,:D) RETURNING_VALUES :L,:n;
END
|
