User Defined Function สำหรับแปลงตัวเลข เป็น อักษรภาษาไทย

ปกติจะเคยเห็น source code ที่ใช้สำหรับแปลงตัวเลขเป็นตัวอักษรกันเยอะแล้วนะครับ

แต่ที่ออฟฟิศผมใช้หลากหลายภาษากันมาก มีอย่างเดียวที่ใช้เหมือนกันก็คือ Database ที่เป็น MS SQL

ทำอย่างไรจะได้ฟังก์ชั่นกลาง  ๆ ที่สามารถเรียกใช้ได้ทุกภาษา ก็ต้องแปลงทุกอย่างให้อยู่ในภาษา SQL ล่ะครับ

ตัวอย่างนี้เป็นตัวอย่างหนึ่งที่มีการเรียกใช้บ่อย ๆ ในการพัฒนาระบบงานทั่วไปคงจะใช้กันบ่อยนะครับ

ปล. source ตัวนี้โมมาจากภาษา php

CREATE FUNCTION dbo.udf_Num2Thai (@Number1 Money)
RETURNS VARCHAR(8000)
AS BEGIN
DECLARE @number Numeric(38 , 0)
DECLARE @decimal INT
DECLARE @loops INT
DECLARE @bigLoops INT
DECLARE @counter INT
DECLARE @bigCount INT
DECLARE @mod INT
DECLARE @numbersTable TABLE (number CHAR(1), word VARCHAR(10))
DECLARE @numbersDigit TABLE (number CHAR(1), word VARCHAR(10))
DECLARE @inputNumber VARCHAR(38)
DECLARE @inputNumber1 VARCHAR(38)
DECLARE @inputDecimal VARCHAR(2)
DECLARE @charNumber CHAR(1)
DECLARE @outputString VARCHAR(8000)
DECLARE @outputString1 VARCHAR(8000)
DECLARE @outputChar VARCHAR(10)
DECLARE @outputChar1 VARCHAR(10)
DECLARE @nextNumber CHAR(1)

IF @number1 = 0 RETURN ‘ศูนย์บาท’

– insert data for the numbers and words
INSERT INTO @NumbersTable
SELECT ‘ ‘, ” UNION ALL SELECT ’0′, ”
UNION ALL SELECT ’1′, ‘หนึ่ง’ UNION ALL SELECT ’2′, ‘สอง’
UNION ALL SELECT ’3′, ‘สาม’ UNION ALL SELECT ’4′, ‘สี่’
UNION ALL SELECT ’5′, ‘ห้า’ UNION ALL SELECT ’6′, ‘หก’
UNION ALL SELECT ’7′, ‘เจ็ด’ UNION ALL SELECT ’8′, ‘แปด’
UNION ALL SELECT ’9′, ‘เก้า’

INSERT INTO @NumbersDigit
SELECT ’1′, ” UNION ALL SELECT ’2′, ‘สิบ’
UNION ALL SELECT ’3′, ‘ร้อย’ UNION ALL SELECT ’4′, ‘พัน’
UNION ALL SELECT ’5′, ‘หมื่น’ UNION ALL SELECT ’6′, ‘แสน’

SET @number = FLOOR(@number1)
SET @decimal = FLOOR((@number1 – FLOOR(@number1))* 100)
SET @inputNumber1 = CONVERT(VARCHAR(38), @number)
SET @inputDecimal = CONVERT(VARCHAR(2), @decimal)
SET @bigLoops = FLOOR(LEN(@inputNumber1) / 6) + 1
SET @mod = LEN(@inputNumber1) % 6
SET @bigCount = 1
SET @outputString = ”

WHILE @bigCount <= @bigLoops BEGIN
IF @bigCount = 1 BEGIN
SET @inputNumber = LEFT(@inputNumber1,@mod)
SET @inputNumber1 = RIGHT(@inputNumber1,LEN(@inputNumber1)-@mod)
END
ELSE BEGIN
SET @inputNumber = LEFT(@inputNumber1,6)
IF @bigCount < @bigLoops
SET @inputNumber1 = RIGHT(@inputNumber1,LEN(@inputNumber1)-6)
END

SET @outputString1 = ”
SET @counter = 1
SET @loops = LEN(@inputNumber)
SET @nextNumber = ”
WHILE 1 <= @loops BEGIN
SET @charNumber = SUBSTRING(@inputNumber,@loops,1)
SET @nextNumber = SUBSTRING(@inputNumber,@loops-1,1)
SELECT @outputChar = word FROM @NumbersTable
WHERE @charNumber = number
SELECT @outputChar1 = word FROM @NumbersDigit
WHERE CONVERT(CHAR(1),@counter) = number
IF @charNumber = ’1′ AND LEN(@inputNumber) > 1 AND @counter = 1 AND @nextNumber > ’0′
SET @outputChar = ‘เอ็ด’
IF @charNumber = ’1′ AND LEN(@inputNumber) >= 2 AND @counter = 2 SET @outputChar = ”
IF @charNumber = ’2′ AND LEN(@inputNumber) >= 2 AND @counter = 2 SET @outputChar = ‘ยี่’
IF @charNumber = ’0′ SET @outputChar1 = ”
SELECT @outputString1 = @outputChar + @outputChar1 + @outputString1,
@counter = @counter + 1,
@loops = @loops – 1
END

IF @bigCount < @bigLoops
IF @outputString1 <> ” SET @outputString = @outputString + @outputString1 + ‘ล้าน’
IF @bigCount >= @bigLoops SET @outputString = @outputString + @outputString1 + ‘บาท’
SET @bigCount = @bigCount + 1
END
– Decimal
IF LEN(@inputDecimal)= 1 SET @inputDecimal = ’0′ + @inputDecimal
SET @inputNumber = @inputDecimal
SET @counter = 1
SET @loops = LEN(@inputNumber)
SET @outputString1 = ”
SET @nextNumber = SUBSTRING(@inputNumber,@loops-1,1)
WHILE 1 <= @loops BEGIN
SET @charNumber = SUBSTRING(@inputNumber,@loops,1)
SELECT @outputChar = word FROM @NumbersTable
WHERE @charNumber = number
SELECT @outputChar1 = word FROM @NumbersDigit
WHERE CONVERT(CHAR(1),@counter) = number
IF @charNumber = ’1′ AND LEN(@inputNumber) > 1 AND @counter = 1 AND @nextNumber > ’0′
SET @outputChar = ‘เอ็ด’
IF @charNumber = ’1′ AND LEN(@inputNumber) >= 2 AND @counter = 2 SET @outputChar = ”
IF @charNumber = ’2′ AND LEN(@inputNumber) >= 2 AND @counter = 2 SET @outputChar = ‘ยี่’
IF @charNumber = ’0′ SET @outputChar1 = ”
SELECT @outputString1 = @outputChar + @outputChar1 + @outputString1,
@counter = @counter + 1,
@loops = @loops – 1
END
IF @inputDecimal = ’00′
SET @outputString = @outPutString + ‘ถ้วน’
ELSE SET @outputString = @outputString + @outputString1 + ‘สตางค์’

RETURN @outputString — return the result
END