สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ

[Guitar-hero]

สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ คือผมต้องการ ให้รายงานสามารถ พิมพ์ตัวเลข ให้เป็น ตัวอักษรได้

เช่น  3500 > "สามพันห้าร้อยบาทถ้วน"

อย่างนี้สามารถทำได้อย่างไรบ้างครับ

[nutsuanplu]

ลองเอาไปประยุกต์ดูครับ
วางไว้ใน variable

Value :=  ThaiMoney(100);

[Guitar-hero]

ขอบคุณมากๆครับ

[Guitar-hero]

แล้วถ้าจะใส่คำว่า "ถ้วน" ต่อท้ายต้องทำอย่างไรครับ

[Farza]

Value :=  ThaiMoney(100)+' ถ้วน';

[nutsuanplu]

คงต้องเขียนคำสั่งขึ้นมา ตรวจสอบว่ามีค่าทศนิยมหรือไม่
ลองทำดูครับ (ผมไม่เคยทำ  )

[nutsuanplu]

ลองๆ ค้นเจอ เลยเอามาฝากครับ เอาไปวางไว้ใน variable ประเภท string
variable1 เป็นประเภท Double นะครับ

if pos('.',CurrToStr(variable1.value))>0 then
  Value := '( '+ThaiMoney(variable1.value) +' )'
else
  Value := '( '+ThaiMoney(variable1.value)+ 'ถ้วน )';