VFP - แปลงตัวเลขเป็นตัวอักษรไทย (เงินบาท) ฟังก์ชั่นในตำนาน

ไปเจอฟังก์ชั่นในตำนานที่มีการโพสไว้เมื่อยี่สิบปีก่อน หลายคนนำไปใช้ อึ้งและทึ่งกับคนที่คิด วันนี้เวลาผ่านไปนานมาก ฟังก์ชั่นนี้ก็ยังคงอยู่ในใจหลายๆ คน
แปลงค่าเงิน มาเป็นตัวอักษรไทย
999.99 (เก้าร้อยเก้าสิบเก้าบาทเก้าสิบเก้าสตางค์) คิดได้สุดยอดมาก บรรทัดเดียวจริงๆ

FUNCTION spell
PARAMETER Vn
Va = STRT(TRAN(Vn,'@R G9A9B9C9D9E9F9A9B9C9D9E9F9.9F9S'),' F0.','')

RETURN STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(;
STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(STRT(;
SUBS(Va,RAT(' ',Va)+2,35),'1','หนึ่ง'),'2','สอง'),'3','สาม'),'4','สี่'),;
'5','ห้า'),'6','หก'),'7','เจ็ด'),'8','แปด'),'9','เก้า'),'.0F0S','บาทถ้วน'),;
'0F',''),'0E',''),'0D',''),'0C',''),'0B',''),'0',''),'A','ล้าน'),;
'B','แสน'),'C','หมื่น'),'D','พัน'),'E','ร้อย'),'F','สิบ'),'.','บาท'),;
'หนึ่งสิบ','สิบ'),'สองสิบ','ยี่สิบ'),'สิบหนึ่ง','สิบเอ็ด'),'S','สตางค์')

ขอบคุณ คุณ Karun ที่ได้สร้างฟังก์ชั่นนี้ไว้ให้พวกเราใช้งาน