พิมพ์จำนวนเงินในเช็ค
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 257   3
URL.หัวข้อ / URL
พิมพ์จำนวนเงินในเช็ค

อ้างถึงกระทู้ที่ #1893 อาจารย์ได้แนะนำการเขียน Code สำหรับการกั้นหน้า / กั้นหลัง สำหรับ Payee ไว้ดังนี้ :-
Function PrintDash(strText As String, intX As Integer)
If intX > Len(strText) + 2 Then
PrintDash = String(2, "-") & strText & String(intX - Len(strText) - 2, "-")
End If
End Function
กรณีถ้าเป็นจำนวนเงินให้เป็นแบบ ***1,000,000.00******* ลักษณะนี้จะเขียน Code อย่างไรครับ ช่วยชี้แนะด้วย!! ขอบคุณมากครับ

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R05349
ก็ทำเหมือนกันเลยครับ เพียงแต่เปลี่ยนจาก - เป็น * แทน

PrintDash = String(2, "*") & strText & String(intX - Len(strText) - 2, "*")


2 @R05362
ผมทดลองเปลี่ยนแล้วปรากฏว่า ได้ผลเป็น **100000***** คือมองเห็นจำนวนเงินเป็น Text ดังนั้นเราจะ Format ให้เป็นจำนวนได้อย่างไรครับ อาจารย์ช่วยชี้แนะต่อด้วยครับ ขอบคุณมาก ๆๆๆ
3 @R05364
ก็ใช้ Format() ช่วยจัดให้เป็นตัวเลขแบบ Standard ก่อน แล้วค่อยนำไปรวมกันครับ

Function PrintDash(dblNum As Double, intX As Integer)
If intX > Len(dblNum) + 2 Then
PrintDash = String(2, "*") & Format(dblNum, "standard") & _
String(intX - Len(dblNum) - 2, "*")
End If
End Function
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0510s