ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 3496|ตอบกลับ: 2

แปลงตัวเลขเป็นหนังสือ vb6

[คัดลอกลิงก์]

1

กระทู้

2

โพสต์

15

เครดิต

Newbie

Rank: 1

เครดิต
15

สอบถาม Code vb6 การแปลงตัวเลขเป็นตัวหนังสือครับ ..ขอบคุณครับ

0

กระทู้

5

โพสต์

36

เครดิต

Newbie

Rank: 1

เครดิต
36
โพสต์ 2018-9-11 08:58:14 | ดูโพสต์ทั้งหมด

Private Function BahtText(ByVal dNumber As Currency) As String
Dim xSatang As String
Dim xBaht As String
Dim ret As String, xNum As String
Dim n1() As String
ret = “”
xNum = Format(dNumber, “0.00”)
n1 = Split(xNum, “.”)
xBaht = Trim(n1(0))
xSatang = Trim(n1(1))

If Val(xBaht) > 0 Then
ret = NumberToThaiText(xBaht) + “บาท”
End If
If Val(xSatang) > 0 Then
ret = ret & NumberToThaiText(xSatang) + “สตางค์”
Else
ret = ret + “ถ้วน”
End If

BahtText = ret
End Function

Private Function NumberToThaiText(ByVal pNum As String)
Dim arrayUnit() As String, arrayNum() As String
Dim xNumLen As Integer
Dim ch As String, ch_old As String, xNum As String, xUnit As String
Dim ret As String
Dim i As Integer

ret = “”
arrayUnit = Split(“แสน,,สิบ,ร้อย,พัน,หมื่น”, “,”)
arrayNum = Split(“ศูนย์,หนึ่ง,สอง,สาม,สี่,ห้า,หก,เจ็ด,แปด,เก้า”, “,”)
xNumLen = Len(pNum)
For i = xNumLen To 1 Step -1
ch_old = ch
ch = Mid(pNum, xNumLen – i + 1, 1)
xNum = Trim(arrayNum(Val(ch)))
xUnit = Trim(arrayUnit(i Mod 6))
xUnit = IIf(xUnit = “” And i > 6, “ล้าน”, xUnit)
If xUnit = “สิบ” And ch = “1” Then
xNum = “”
ElseIf xUnit = “สิบ” And ch = “2” Then
xNum = “ยี่”
ElseIf xUnit = “” And ch = “1” And xNumLen > i And ch_old > “0” Then
xNum = “เอ็ด”
End If
If xNum “ศูนย์” Or xUnit = “ล้าน” Then
ret = ret & IIf(ch = “0”, “”, xNum) & xUnit
End If
Next i

NumberToThaiText = ret
End Function

ลองดูครับ

1

กระทู้

2

โพสต์

15

เครดิต

Newbie

Rank: 1

เครดิต
15
 เจ้าของ| โพสต์ 2018-9-13 14:38:34 | ดูโพสต์ทั้งหมด

somchu ตอบกลับเมื่อ 2018-9-11 08:58
Private Function BahtText(ByVal dNumber As Currency) As String
Dim xSatang As String
Dim xBaht As St ...

ขอบคุณครับอาจารย์
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-3-29 20:23 , Processed in 0.179668 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้