Извиняюсь, что пишу на WatcomSQL, так как PL/SQL не сильно знаю, но думаю что по функциональности будет один в один:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
/* Функция перевода телефона
в десятичное число */
CREATE FUNCTION _PhoneToBin (
IN @Phone char( 11 )
)
RETURNS numeric( 13 , 11 )
BEGIN
RETURN CONVERT(numeric( 13 , 11 ), Length(@Phone) || '.' || @Phone);
END;
/* Функция перевода десятичного числа
в телефон */
CREATE FUNCTION _BinToPhone (
IN @BinPhone numeric( 13 , 11 )
)
RETURNS char( 11 )
BEGIN
RETURN Left((@BinPhone - Truncnum(@BinPhone, 0 )) *
Power( 10 , Truncnum(@BinPhone, 0 )), Truncnum(@BinPhone, 0 ));
END;
// Проверяем результат
SELECT _PhoneToBin('0100') AS Phone100,
_PhoneToBin('89262500102') AS Phone926,
_BinToPhone(Phone100) AS OrigPhone100,
_BinToPhone(Phone926) AS OrigPhone926,
DataLength(Phone100) AS LenBinPhone100,
DataLength(Phone926) AS LenBinPhone926;
Phone100Phone926OrigPhone100OrigPhone926LenBinPhone100LenBinPhone9264.0111.89262500102'100''89262500102'49
Комментарии:
В ASA тип numeric - плавающий десятичный тип, то есть он занимает ровно столько места, сколько нужно. Я его использовал для хранения телефона, где 2 цифры до знака - это длина телефона, цифры после знака - сам телефон.
Функция "TRUNCNUM" сбрасывает десятичные знаки (то есть не округляет).
Функция "POWER" возводит число в степень.
Остальные функции думаю понятны.
