ผมว่าหลายท่านก็คง เคยใช้ Function BahtText ใน Excel มาแล้ว แต่ปรากฎว่า บน Crystal Report ไม่มีให้ใช้ ก็ต้องเขียนมันขึ้นมาเอง ละ บางท่านก็คง มี Function ไ้ว้ใช้อยู่แล้ว แต่ผมก็ขอเสนอ Idea ในการเขียนไว้หน่อยแล้วกัน เผื่อว่าใคร จะนึกไม่ออก บอกไม่ถูก เคยเขียนแล้วแต่ ไม่รู้ เอาไฟล์ไปไว้ไหน ก็มาเอา Code ผมไป ประยุกต์ใช้ ก้อ ไม่ว่ากัน (ได้เฉพาะเลขบวก หรือ มากกว่า หรือเท่ากับ ศูนย์ และ ตัวเลขไม่เกิน 12 หลัก ) Concept ก็ง่ายๆ ตามวิธีของผม คือ 1. วิธีการแปลง ตัวเลขเป็น String ก่อน ด้วย จำนวนทศนิยม 2 ตำแหน่ง ตัด Comma หรือ เครื่องหมาย ฿ หรือ $ ออก 2. แยกส่วน บาท และ สตางค์ ออกจากกัน ด้วยทศนิยม 3. นำส่วนสตางค์ มาแปลง เป็นคำ 4. นำส่วนบาท มาแปลง เป็นคำ 5. นำส่วนบาท และ สตางค์ ที่เป็น คำแล้ว มาเชื่อมกัน 6. แปลงคำพิเศษ เช่น ยี่สิบ หรือ คำว่า เอ็ด หลักการมีแค่นี้ คราวนี้มาดู Code (เป็น Code ใน Crystal Report 2008) Function ( NumberVar Amount); ( Local StringVar TextOut:=""; Local StringVar Array N := ["","หนึ่ง","สอง","สาม","สี่",...
ความคิดเห็น
แสดงความคิดเห็น