กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
342 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 อย่างไรครับ ช่วยชี้แนะด้วย!! ขอบคุณมากครับ
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
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
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
Time: 0.1481s
PrintDash = String(2, "*") & strText & String(intX - Len(strText) - 2, "*")