Ситуация: в клиентской программе на дельфи (RAD Studio 2010) нужно отображать значения типа decimal(31, 15), полностью отображая все знаки после запятой (все 15). Как выяснилось, сделать это, передавая на клиент значения как есть (именно decimal(31,15)) невозможно: при отключенной опции EnableBCD значения передаются как double, и ряд значений при заданной маске отображения 15 знаков приобретают в дробной части хвост, которого на самом деле нет - видимо, это связано с потерей точности при прееобразовании в double по IEEE-754. Если включить опцию EnableBCD, значения передаются как binary-coded decimal (собственно, BCD), но обычный BCD (TBCDField) производит округление до формата currency (до 3 знаков), что неприемлемо. А значения типа TFMTBCD (TFMTBСDField), где округление не производится, используемая версия библиотеки доступа к данным (DevArt SDAC) не поддерживает.
Ввиду всего вышеизложенного было принято решение форматировать decimal(31,15) в varchar на сервере. Требования: 15 знаков после запятой, разделитель дробной и целой частей запятая, разделитель разрядов целой части пробел. Сервер - 2005-й.
Была написана вот такая функция:
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.
28.
29.
30.
31.
32.
CREATE FUNCTION [DBO].[UF_FORMAT_DECIMAL](@D DECIMAL(31,15))
RETURNS TABLE
AS RETURN
WITH CTE AS (
SELECT @D N
)
SELECT F1.Z+LTRIM(F3.D)+F2.A RESULT
FROM CTE E
CROSS APPLY (
SELECT
CASE WHEN CONVERT(VARCHAR, E.N) LIKE '-%' THEN '-' ELSE '' END,
SUBSTRING(
REPLACE(CONVERT(VARCHAR, E.N), '.', ','),
CASE WHEN CONVERT(VARCHAR, E.N) LIKE '-%' THEN 2 ELSE 1 END,
LEN(CONVERT(VARCHAR, N))
)
) F1(Z,S)
CROSS APPLY (
SELECT
SUBSTRING(F1.S, 1, CHARINDEX(',', F1.S)-1),
SUBSTRING(F1.S, CHARINDEX(',', F1.S), LEN(F1.S))
) F2(B, A)
CROSS APPLY (
SELECT
SUBSTRING(F2.B, LEN(F2.B)-17, 3)
+' '+SUBSTRING(F2.B, LEN(F2.B)-14, 3)
+' '+SUBSTRING(F2.B, LEN(F2.B)-11, 3)
+' '+SUBSTRING(F2.B, LEN(F2.B)-8, 3)
+' '+SUBSTRING(F2.B, LEN(F2.B)-5, 3)
+' '+SUBSTRING(F2.B, LEN(F2.B)-2, 3)
) F3(D)
GO
Вроде бы работает вполне нормально, но, может, здесь можно что-то подкрутить в плане лаконичности, быстродействия, итд?
