TSQL -将货币转换为西班牙语文本

DECLARE @amount MONEY = 1234.56;
DECLARE @text NVARCHAR(100);

IF @amount >= 0
    SET @text = 'Cero ';
ELSE
    SET @text = 'Menos ';

DECLARE @integerPart INT = ABS(CONVERT(INT, @amount));
DECLARE @decimalPart INT = ABS(CONVERT(INT, (@amount - @integerPart) * 100));

SELECT @text += (
    SELECT CASE
        WHEN @integerPart >= 1000000 THEN 'Un Millón '
        WHEN @integerPart >= 1000 THEN CONVERT(NVARCHAR(20), @integerPart / 1000) + ' Mil '
        ELSE ''
    END +
    CASE
        WHEN @integerPart % 1000 BETWEEN 1 AND 29 THEN ' ' + (
            SELECT CASE
                WHEN @integerPart % 1000 = 1 THEN 'Un'
                WHEN @integerPart % 1000 = 2 THEN 'Dos'
                WHEN @integerPart % 1000 = 3 THEN 'Tres'
                WHEN @integerPart % 1000 = 4 THEN 'Cuatro'
                WHEN @integerPart % 1000 = 5 THEN 'Cinco'
                WHEN @integerPart % 1000 = 6 THEN 'Seis'
                WHEN @integerPart % 1000 = 7 THEN 'Siete'
                WHEN @integerPart % 1000 = 8 THEN 'Ocho'
                WHEN @integerPart % 1000 = 9 THEN 'Nueve'
                WHEN @integerPart % 1000 = 10 THEN 'Diez'
                WHEN @integerPart % 1000 = 11 THEN 'Once'
                WHEN @integerPart % 1000 = 12 THEN 'Doce'
                WHEN @integerPart % 1000 = 13 THEN 'Trece'
                WHEN @integerPart % 1000 = 14 THEN 'Catorce'
                WHEN @integerPart % 1000 = 15 THEN 'Quince'
                WHEN @integerPart % 1000 = 16 THEN 'Dieciséis'
                WHEN @integerPart % 1000 = 17 THEN 'Diecisiete'
                WHEN @integerPart % 1000 = 18 THEN 'Dieciocho'
                WHEN @integerPart % 1000 = 19 THEN 'Diecinueve'
                WHEN @integerPart % 1000 = 20 THEN 'Veinte'
                WHEN @integerPart % 1000 = 21 THEN 'Veintiuno'
                WHEN @integerPart % 1000 = 22 THEN 'Veintidós'
                WHEN @integerPart % 1000 = 23 THEN 'Veintitrés'
                WHEN @integerPart % 1000 = 24 THEN 'Veinticuatro'
                WHEN @integerPart % 1000 = 25 THEN 'Veinticinco'
                WHEN @integerPart % 1000 = 26 THEN 'Veintiséis'
                WHEN @integerPart % 1000 = 27 THEN 'Veintisiete'
                WHEN @integerPart % 1000 = 28 THEN 'Veintiocho'
                WHEN @integerPart % 1000 = 29 THEN 'Veintinueve'
            END
        )
        WHEN @integerPart % 1000 BETWEEN 30 AND 99 THEN ' ' + (
            SELECT CASE
                WHEN @integerPart % 1000 BETWEEN 30 AND 39 THEN 'Treinta'
                WHEN @integerPart % 1000 BETWEEN 40 AND 49 THEN 'Cuarenta'
                WHEN @integerPart % 1000 BETWEEN 50 AND 59 THEN 'Cincuenta'
                WHEN @integerPart % 1000 BETWEEN 60 AND 69 THEN 'Sesenta'
                WHEN @integerPart % 1000 BETWEEN 70 AND 79 THEN 'Setenta'
                WHEN @integerPart % 1000 BETWEEN 80 AND 89 THEN 'Ochenta'
                WHEN @integerPart % 1000 BETWEEN 90 AND 99 THEN 'Noventa'
            END +
            CASE
                WHEN @integerPart % 10 = 1 THEN ' y Un'
                WHEN @integerPart % 10 = 2 THEN ' y Dos'
                WHEN @integerPart % 10 = 3 THEN ' y Tres'
                WHEN @integerPart % 10 = 4 THEN ' y Cuatro'
                WHEN @integerPart % 10 = 5 THEN ' y Cinco'
                WHEN @integerPart % 10 = 6 THEN ' y Seis'
                WHEN @integerPart % 10 = 7 THEN ' y Siete'
                WHEN @integerPart % 10 = 8 THEN ' y Ocho'
                WHEN @integerPart % 10 = 9 THEN ' y Nueve'
            END
        )
        WHEN @integerPart % 1000 = 100 THEN ' Cien'
        WHEN @integerPart % 1000 BETWEEN 101 AND 199 THEN ' Ciento ' + (
            SELECT CASE
                WHEN @integerPart % 100 = 1 THEN 'Un'
                WHEN @integerPart % 100 = 2 THEN 'Dos'
                WHEN @integerPart % 100 = 3 THEN 'Tres'
                WHEN @integerPart % 100 = 4 THEN 'Cuatro'
                WHEN @integerPart % 100 = 5 THEN 'Cinco'
                WHEN @integerPart % 100 = 6 THEN 'Seis'
                WHEN @integerPart % 100 = 7 THEN 'Siete'
                WHEN @integerPart % 100 = 8 THEN 'Ocho'
                WHEN @integerPart % 100 = 9 THEN 'Nueve'
                WHEN @integerPart % 100 = 10 THEN 'Diez'
                WHEN @integerPart % 100 = 11 THEN 'Once'
                WHEN @integerPart % 100 = 12 THEN 'Doce'
                WHEN @integerPart % 100 = 13 THEN 'Trece'
                WHEN @integerPart % 100 = 14 THEN 'Catorce'
                WHEN @integerPart % 100 = 15 THEN 'Quince'
                WHEN @integerPart % 100 = 16 THEN 'Dieciséis'
                WHEN @integerPart % 100 = 17 THEN 'Diecisiete'
                WHEN @integerPart % 100 = 18 THEN 'Dieciocho'
                WHEN @integerPart % 100 = 19 THEN 'Diecinueve'
                WHEN @integerPart % 100 = 20 THEN 'Veinte'
                WHEN @integerPart % 100 = 21 THEN 'Veintiuno'
                WHEN @integerPart % 100 = 22 THEN 'Veintidós'
                WHEN @integerPart % 100 = 23 THEN 'Veintitrés'
                WHEN @integerPart % 100 = 24 THEN 'Veinticuatro'
                WHEN @integerPart % 100 = 25 THEN 'Veinticinco'
                WHEN @integerPart % 100 = 26 THEN 'Veintiséis'
                WHEN @integerPart % 100 = 27 THEN 'Veintisiete'
                WHEN @integerPart % 100 = 28 THEN 'Veintiocho'
                WHEN @integerPart % 100 = 29 THEN 'Veintinueve'
            END
        )
        WHEN @integerPart % 1000 BETWEEN 200 AND 999 THEN (
            SELECT CASE
                WHEN @integerPart % 1000 BETWEEN 200 AND 299 THEN 'Doscientos'
                WHEN @integerPart % 1000 BETWEEN 300 AND 399 THEN 'Trescientos'
                WHEN @integerPart % 1000 BETWEEN 400 AND 499 THEN 'Cuatrocientos'
                WHEN @integerPart % 1000 BETWEEN 500 AND 599 THEN 'Quinientos'
                WHEN @integerPart % 1000 BETWEEN 600 AND 699 THEN 'Seiscientos'
                WHEN @integerPart % 1000 BETWEEN 700 AND 799 THEN 'Setecientos'
                WHEN @integerPart % 1000 BETWEEN 800 AND 899 THEN 'Ochocientos'
                WHEN @integerPart % 1000 BETWEEN 900 AND 999 THEN 'Novecientos'
            END +
            CASE
                WHEN @integerPart % 100 = 1 THEN ' Un'
                WHEN @integerPart % 100 = 2 THEN ' Dos'
                WHEN @integerPart % 100 = 3 THEN ' Tres'
                WHEN @integerPart % 100 = 4 THEN ' Cuatro'
                WHEN @integerPart % 100 = 5 THEN ' Cinco'
                WHEN @integerPart % 100 = 6 THEN ' Seis'
                WHEN @integerPart % 100 = 7 THEN ' Siete'
                WHEN @integerPart % 100 = 8 THEN ' Ocho'
                WHEN @integerPart % 100 = 9 THEN ' Nueve'
            END
        )
    END +
    ' Pesos ' +
    CASE
        WHEN @decimalPart = 0 THEN ''
        WHEN @decimalPart = 1 THEN 'y 1 Centavo'
        ELSE CONVERT(NVARCHAR(20), @decimalPart) + ' Centavos'
    END
);

SELECT @text AS [SpanishText];