ASP แปลงตัวเลขคาเงินเตัวเลขป็นตัวหนังสือ หรือตัวอักษร คะ พร้อมแสดงแท่ง barcode

Function BahtText(ByVal sNum)
	Dim sNumber , sDigit , sDigit10 
	Dim nLen , sWord , sWord2 
	Dim sByte , I , J 

	sNumber = Array("", "หนึ่ง", "สอง", "สาม", "สี่", "ห้า", "หก", "เจ็ด", "แปด", "เก้า")
	sDigit = Array("", "สิบ", "ร้อย", "พัน", "หมื่น", "แสน")
	sDigit10 = Array("", "สิบ", "ยี่สิบ", "สามสิบ", "สี่สิบ", "ห้าสิบ", "หกสิบ", "เจ็ดสิบ", "แปดสิบ", "เก้าสิบ")
	sNum = Replace(FormatNumber(sNum, 2), ",", "")
	nLen = Len(sNum)

	If sNum = ".00" Then BahtText = "ศูนย์"
	For I = 1 To nLen - 3
		J = (15 + nLen - I) Mod 6
		sByte = Mid(sNum, I, 1)
		If sByte <> "0" Then
			If J = 1 Then sWord = sDigit10(sByte) Else sWord = sNumber(sByte) & sDigit(J)
			BahtText = BahtText & sWord
		End If
		If J = 0 And I <> nLen - 3 Then BahtText = BahtText & "ล้าน": BahtText = Replace(BahtText, "หนึ่งล้าน", "เอ็ดล้าน")
	Next

	If Left(sNum, 1) = "1" Then BahtText = Replace(BahtText, "เอ็ดล้าน", "หนึ่งล้าน")

	If Left(sNum, 2) = "11" Then BahtText = Replace(BahtText, "สิบหนึ่งล้าน", "สิบเอ็ดล้าน")
	If Len(BahtText) > 0 Then BahtText = BahtText & "บาท"

	If nLen > 4 Then BahtText = Replace(BahtText, "หนึ่งบาท", "เอ็ดบาท")

	sNum = Right(sNum, 2)

	If sNum = "00" Then
		BahtText = BahtText & "ถ้วน"
	Else
		If Left(sNum, 1) <> "0" Then BahtText = BahtText & sDigit10(Left(sNum, 1))
		If Right(sNum, 1) <> "0" Then BahtText = BahtText & sNumber(Right(sNum, 1))
		BahtText = BahtText & "สตางค์"
		If Left(sNum, 1) <> "0" Then BahtText = Replace(BahtText, "หนึ่งสตางค์", "เอ็ดสตางค์")
	End If
End Function