Số chính tả trong Excel không hoạt động

Sl số 2) 1,525,489. 256 (Một triệu năm trăm hai mươi lăm nghìn bốn trăm tám mươi chín rial và hai trăm năm mươi sáu baisa. )

bất kỳ ai có thể vui lòng sửa công thức dưới đây theo (Sl No -2)

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rials, Baisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Baisa = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rials = Temp & Place(Count) & Rials
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn Case Rials
Trường hợp ""
Rial = "Không có Rial"
Trường hợp "Một"
Rials = "Một Rials"
trường hợp khác
Rials = Rials & " Rials"
Kết thúc chọn
Chọn trường hợp Baisa
Trường hợp ""
Baisa = " and No Baisa"
Trường hợp "Một"
Baisa = "và một Baisa"
trường hợp khác
Baisa = " và " & Baisa & " Baisa"
Kết thúc chọn
SpellNumber = Rials & Baisa
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19…
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị trong khoảng 20-99…
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Satyam nói
29 Tháng Năm, 2022 tại 10. 45 giờ sáng

Chào ngài,

Yêu cầu của tôi (1,525,489. 256) Oman Rials trong lời nói
Một Triệu Năm Trăm Hai Mươi Lăm Ngàn Bốn Trăm Tám Chín Rial Và Hai Trăm Năm Mươi Sáu Baisa
Bạn có thể vui lòng sửa các Công thức dưới đây

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rials, Baisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Baisa = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rials = Temp & Place(Count) & Rials
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn Case Rials
Trường hợp ""
Rial = "Không có Rial"
Trường hợp "Một"
Rials = "Một Rials"
trường hợp khác
Rials = Rials & " Rials"
Kết thúc chọn
Chọn trường hợp Baisa
Trường hợp ""
Baisa = " and No Baisa"
Trường hợp "Một"
Baisa = "và một Baisa"
trường hợp khác
Baisa = " và " & Baisa & " Baisa"
Kết thúc chọn
SpellNumber = Rials & Baisa
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19…
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị trong khoảng 20-99…
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Rajesh nói.
Tháng Tám 20, 2022 tại 2. 33 giờ chiều

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rials, Baisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"
' Chuỗi đại diện cho số lượng
MyNumber = Trim(Str(MyNumber))
' Vị trí của số thập phân 0 nếu không có
DecimalPlace = InStr(MyNumber, ". ")
' Chuyển đổi Baisa và đặt MyNumber thành số tiền
Nếu DecimalPlace > 0 Thì
Baisa = GetHundreds(Left(Mid(MyNumber, DecimalPlace + 1) & _
"000", 3))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rials = Temp & Place(Count) & Rials
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn Case Rials
Trường hợp ""
Rial = "Không có Rial"
Trường hợp "Một"
Rials = "Một Rials"
trường hợp khác
Rials = Rials & " "
Kết thúc chọn
Chọn trường hợp Baisa
Trường hợp ""
Baisa = "Chỉ"
Trường hợp "Một"
Baisa = "và Baisa Một Trăm"
trường hợp khác
Baisa = "và Baisa" & Baisa & "Chỉ"
Kết thúc chọn
SpellNumber = Rials & Baisa
chức năng kết thúc

' Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

' Chuyển đổi một số từ 10 đến 99 thành văn bản
Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

' Chuyển đổi một số từ 1 đến 9 thành văn bản
Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

amir nói.
11 Tháng Tư, 2021 tại 10. 56 giờ chiều

Có Lỗi ????

Tùy chọn rõ ràng

'Chức năng chính

Hàm SpellNumber(ByVal MyNumber)

Đô la mờ, xu, nhiệt độ

Dim DecimalPlace, Count

ReDim Place(9) dưới dạng chuỗi

Place(2) = " Nghìn "

Vị trí(3) = " Triệu "

Vị trí(4) = "Tỷ"

Vị trí(5) = "Nghìn tỷ"

' Chuỗi đại diện cho số lượng

MyNumber = Trim(Str(MyNumber))

' Vị trí của số thập phân 0 nếu không có

DecimalPlace = InStr(MyNumber, ". ")

' Chuyển đổi xu và đặt MyNumber thành số tiền đô la

Nếu DecimalPlace > 0 Thì

Cents = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))

MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))

kết thúc nếu

Đếm = 1

Thực hiện trong khi MyNumber ""

Temp = GetHundreds(Right(MyNumber, 3))

Nếu Temp "" Thì Dollars = Temp & Place(Count) & Dollars

Nếu Len(MyNumber) > 3 Thì

MyNumber = Trái(MyNumber, Len(MyNumber) - 3)

Khác

Số của tôi = ""

kết thúc nếu

Đếm = Đếm + 1

Vòng

Chọn trường hợp đô la

Trường hợp ""

Đô la = "Không có đô la"

Trường hợp "Một"

Đô la = "Một đô la"

trường hợp khác

Đô la = Đô la và "Đô la"

Kết thúc chọn

Chọn trường hợp xu

Trường hợp ""

Xu = "và Không có xu"

Trường hợp "Một"

Xu = "và Một xu"

trường hợp khác

Xu = " và " & Xu & " Xu"

Kết thúc chọn

SpellNumber = Đô la & Xu

chức năng kết thúc

' Chuyển đổi một số từ 100-999 thành văn bản

Hàm GetHundreds(ByVal MyNumber)

Kết quả mờ dưới dạng chuỗi

Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng

MyNumber = Right("000" & MyNumber, 3)

' Đổi chỗ hàng trăm

Nếu Mid(MyNumber, 1, 1) "0" Thì

Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "

kết thúc nếu

' Đổi chỗ cho hàng chục và hàng đơn vị

Nếu Mid(MyNumber, 2, 1) "0" Thì

Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))

Khác

Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))

kết thúc nếu

GetHundreds = Kết quả

chức năng kết thúc

' Chuyển đổi một số từ 10 đến 99 thành văn bản

Hàm GetTens(TensText)

Kết quả mờ dưới dạng chuỗi

Kết quả = "" ' Null giá trị hàm tạm thời

Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19

Chọn Trường hợp Val (TensText)

Trường hợp 10. Kết quả = "Mười"

Trường hợp 11. Kết quả = "Mười một"

Trường hợp 12. Kết quả = "Mười hai"

Trường hợp 13. Kết quả = "Mười ba"

Trường hợp 14. Kết quả = "Mười bốn"

Trường hợp 15. Kết quả = "Mười lăm"

Trường hợp 16. Kết quả = "Mười sáu"

Trường hợp 17. Kết quả = "Mười bảy"

Trường hợp 18. Kết quả = "Mười tám"

Trường hợp 19. Kết quả = "Mười chín"

trường hợp khác

Kết thúc chọn

Khác ' Nếu giá trị giữa 20-99

Chọn Case Val(Trái(TensText, 1))

trường hợp 2. Kết quả = "Hai mươi"

Trường hợp 3. Kết quả = "Ba mươi"

Trường hợp 4. Kết quả = "Bốn mươi"

Trường hợp 5. Kết quả = "Năm mươi"

Trường hợp 6. Kết quả = "Sáu mươi"

Trường hợp 7. Kết quả = "Bảy mươi"

Trường hợp 8. Kết quả = "Tám mươi"

Trường hợp 9. Kết quả = "Chín mươi"

trường hợp khác

Kết thúc chọn

Kết quả = Kết quả & GetDigit _

(Right(TensText, 1)) ' Truy xuất những vị trí

kết thúc nếu

GetTens = Kết quả

chức năng kết thúc

' Chuyển đổi một số từ 1 đến 9 thành văn bản

Hàm GetDigit(Chữ số)

Chọn Case Val(Digit)

Trường hợp 1. GetDigit = "Một"

trường hợp 2. GetDigit = "Hai"

Trường hợp 3. GetDigit = "Ba"

Trường hợp 4. GetDigit = "Bốn"

Trường hợp 5. GetDigit = "Năm"

Trường hợp 6. GetDigit = "Sáu"

Trường hợp 7. GetDigit = "Bảy"

Trường hợp 8. GetDigit = "Tám"

Trường hợp 9. GetDigit = "Chín"

trường hợp khác. GetDigit = ""

Kết thúc chọn

chức năng kết thúc

lakshman nói.
Tháng Hai 17, 2021 tại 5. 34 giờ sáng

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 2 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 2)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng

Trong mã này, có điều gì đó không ổn khi chúng tôi sử dụng bằng Tiền tệ Ấn Độ, nó sẽ có dạng "chỉ một laksh hai mươi sáu nghìn bảy trăm rupee" nhưng đầu ra giống như
"chỉ một trăm hai mươi sáu nghìn bảy trăm rupi

chính xác mã phải thay đổi ở đâu. bất cứ ai có thể hỗ trợ tôi để làm rõ vấn đề

lakshman nói.
Tháng Hai 17, 2021 tại 5. 33 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupee, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Địa điểm(3) = " Lakh "
Vị trí(4) = " Crore "

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 2 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 2)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng

Vòng
Chọn trường hợp Rupee
Trường hợp ""
Rupee = ""
Trường hợp "Một"
Rupee = "Một Rupee"
trường hợp khác
Rupee = Rupee & "Rupee"
Kết thúc chọn
Chọn Trường hợp Paise
Trường hợp ""
Paise = "Chỉ"
Trường hợp "Một"
Paise = "Chỉ một Paise"

trường hợp khác
Paise = " và " & Paise & " Chỉ Paise"
Kết thúc chọn
SpellNumber = Rupees và Paise
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Trong mã này, có điều gì đó không ổn khi chúng tôi sử dụng bằng Tiền tệ Ấn Độ, nó sẽ có dạng "chỉ một laksh hai mươi sáu nghìn bảy trăm rupee" nhưng đầu ra giống như
"chỉ một trăm hai mươi sáu nghìn bảy trăm rupi

chính xác mã phải thay đổi ở đâu. bất cứ ai có thể hỗ trợ tôi để làm rõ vấn đề

LINDO ALEX nói.
Tháng Hai 6, 2021 tại 2. 33 giờ chiều

3 thập phân
Dinar Bahrain

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Dinar, phim, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"
' Chuỗi đại diện cho số lượng
MyNumber = Trim(Str(MyNumber))
' Vị trí của số thập phân 0 nếu không có
DecimalPlace = InStr(MyNumber, ". ")
' Chuyển đổi xu và đặt MyNumber thành số tiền Dinar
Nếu DecimalPlace > 0 Thì
fils = GetHundreds(Left(Mid(MyNumber, DecimalPlace + 1) & _
"000", 3))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Dinar = Temp & Place(Count) & Dinar
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn Trường hợp Dinar
Trường hợp ""
Dinar = "Không có Dinar"
Trường hợp "Một"
Dinar = "Một dinar"
trường hợp khác
Dinar = Dinar và " Dinar"
Kết thúc chọn
Chọn Hồ sơ vụ án
Trường hợp ""
fils = "và Không có fils"
Trường hợp "Một"
fils = "và Một fils"
trường hợp khác
fils = " và " & fils & " fils"
Kết thúc chọn
SpellNumber = Dinar & fils
chức năng kết thúc

' Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

' Chuyển đổi một số từ 10 đến 99 thành văn bản
Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

' Chuyển đổi một số từ 1 đến 9 thành văn bản
Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Santhosh Kumar Tirunahari nói.
Tháng Một 31, 2021 tại 8. 34 giờ chiều

chào md. Delwar,

Hãy thử điều này cho đồng rupee và paise của Ấn Độ

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupee, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Địa điểm(3) = " Lakh "
Vị trí(4) = " Crore "

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 2 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 2)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng

Vòng
Chọn trường hợp Rupee
Trường hợp ""
Rupee = ""
Trường hợp "Một"
Rupee = "Một Rupee"
trường hợp khác
Rupee = Rupee & "Rupee"
Kết thúc chọn
Chọn Trường hợp Paise
Trường hợp ""
Paise = "Chỉ"
Trường hợp "Một"
Paise = "Chỉ một Paise"

trường hợp khác
Paise = " và " & Paise & " Chỉ Paise"
Kết thúc chọn
SpellNumber = Rupees và Paise
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Delin Davy nói.
Tháng Một 16, 2021 tại 9. 51 giờ sáng

Đúng cho Rupee Ấn Độ

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupee, Paisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Paisa = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn trường hợp Rupee
Trường hợp ""
Rupee = "Không có Rupee"
Trường hợp "Một"
Rupee = "Một Rupee"
trường hợp khác
Rupees = Rupees và "Rupees"
Kết thúc chọn
Chọn trường hợp Paisa
Trường hợp ""
Paisa = "và Không có Paisa"
Trường hợp "Một"
Paisa = "và Một Paise"
trường hợp khác
Paisa = " và " & Paisa & " Paisa"
Kết thúc chọn
SpellNumber = Rupee & Paisa
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

ALI HAIDER KHAN nói.
Tháng Mười Hai 19, 2020 tại 7. 59 giờ sáng

xuất sắc
1) Alt+f11
2) chèn mô-đun ma nhấp vào karain us ma jo cửa sổ mở hogi us ma nicha jo diya ha woh copy kar ka us ma kardain quá khứ
3) ab koi bhi ô na ​​ja kar =spellNumber(A)
4) A ki jaga woh số di động dalain jis ko convert karna hai

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupee, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Địa điểm(3) = " Lạc "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"
' Chuỗi đại diện cho số lượng
MyNumber = Trim(Str(MyNumber))
' Vị trí của số thập phân 0 nếu không có
DecimalPlace = InStr(MyNumber, ". ")
' Chuyển đổi Paise và đặt MyNumber thành số tiền rupee
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn trường hợp Rupee
Trường hợp ""
Rupee = "Không có Rupee"
Trường hợp "Một"
Rupee = "Một Rupee"
trường hợp khác
Rupees = Rupees và "Rupees"
Kết thúc chọn
Chọn Trường hợp Paise
Trường hợp ""
Paise = " và Không có Paise"
Trường hợp "Một"
Paise = "và một Paise"
trường hợp khác
Paise = " và " & Paise & " Paise"
Kết thúc chọn
SpellNumber = Rupees và Paise
chức năng kết thúc

' Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

' Chuyển đổi một số từ 10 đến 99 thành văn bản
Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

' Chuyển đổi một số từ 1 đến 9 thành văn bản
Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Chivar Pilones nói.
Tháng Một 7, 2021 tại 4. 22 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Pesos, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Xu = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Pesos = Temp & Place(Count) & Pesos
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn Trường hợp Peso
Trường hợp ""
Peso = "Không Peso"
Trường hợp "Một"
Peso = "Một Peso"
trường hợp khác
Pesos = Pesos và " Pesos"
Kết thúc chọn
Chọn trường hợp xu
Trường hợp ""
Xu = "và Không có xu"
Trường hợp "Một"
Xu = "và Một xu"
trường hợp khác
Xu = " và " & Xu & " Xu"
Kết thúc chọn
SpellNumber = Peso và Cent
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Marosh nói.
Tháng Mười Một 22, 2020 tại 11. 42 giờ chiều

Đánh số theo từ bằng đồng rupee Pakistan

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupee, Paisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Paisa = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn trường hợp Rupee
Trường hợp ""
Rupee = "Không có Rupee"
Trường hợp "Một"
Rupee = "Một đô la"
trường hợp khác
Rupees = Rupees và "Rupees"
Kết thúc chọn
Chọn trường hợp Paisa
Trường hợp ""
Paisa = "và Không có Paisa"
Trường hợp "Một"
Paisa = "và một Paisa"
trường hợp khác
Paisa = " và " & Paisa & " Paisa"
Kết thúc chọn
SpellNumber = Rupee & Paisa
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Nuwan nói.
12 Tháng Mười tại 11. 23 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupees, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Xu = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupees = Temp & Place(Count) & Rupees
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn trường hợp Rupee
Trường hợp ""
Rupee = "Không có Rupee"
Trường hợp "Một"
Rupee = "Một đô la"
trường hợp khác
Rupees = Rupees và "Rupees"
Kết thúc chọn
Chọn trường hợp xu
Trường hợp ""
Xu = "và Không có xu"
Trường hợp "Một"
Xu = "và Một xu"
trường hợp khác
Xu = " và " & Xu & " Xu"
Kết thúc chọn
SpellNumber = Rupees và Cents
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Nuwan nói.
12 Tháng Mười tại 11. 25 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Ấn Độ Rupee, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) dưới dạng chuỗi
Place(2) = " Nghìn "
Vị trí(3) = " Triệu "
Vị trí(4) = "Tỷ"
Vị trí(5) = "Nghìn tỷ"

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ". ")
Nếu DecimalPlace > 0 Thì
Xu = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))
kết thúc nếu
Đếm = 1
Thực hiện trong khi MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
Nếu Temp "" Thì Rupee Ấn Độ = Temp & Place(Count) & Rupee Ấn Độ
Nếu Len(MyNumber) > 3 Thì
MyNumber = Trái(MyNumber, Len(MyNumber) - 3)
Khác
Số của tôi = ""
kết thúc nếu
Đếm = Đếm + 1
Vòng
Chọn trường hợp Rupee Ấn Độ
Trường hợp ""
Rupee Ấn Độ = "Không có Rupee Ấn Độ"
Trường hợp "Một"
Rupee Ấn Độ = "Một đô la"
trường hợp khác
Rupee Ấn Độ = Rupee Ấn Độ thành " Rupee Ấn Độ"
Kết thúc chọn
Chọn trường hợp xu
Trường hợp ""
Xu = "và Không có xu"
Trường hợp "Một"
Xu = "và Một xu"
trường hợp khác
Xu = " và " & Xu & " Xu"
Kết thúc chọn
SpellNumber = Rupee Ấn Độ và Cents
chức năng kết thúc

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng
MyNumber = Right("000" & MyNumber, 3)
' Đổi chỗ hàng trăm
Nếu Mid(MyNumber, 1, 1) "0" Thì
Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "
kết thúc nếu
' Đổi chỗ cho hàng chục và hàng đơn vị
Nếu Mid(MyNumber, 2, 1) "0" Thì
Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))
Khác
Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))
kết thúc nếu
GetHundreds = Kết quả
chức năng kết thúc

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Kết quả = "" ' Null giá trị hàm tạm thời
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
Trường hợp 12. Kết quả = "Mười hai"
Trường hợp 13. Kết quả = "Mười ba"
Trường hợp 14. Kết quả = "Mười bốn"
Trường hợp 15. Kết quả = "Mười lăm"
Trường hợp 16. Kết quả = "Mười sáu"
Trường hợp 17. Kết quả = "Mười bảy"
Trường hợp 18. Kết quả = "Mười tám"
Trường hợp 19. Kết quả = "Mười chín"
trường hợp khác
Kết thúc chọn
Khác ' Nếu giá trị giữa 20-99
Chọn Case Val(Trái(TensText, 1))
trường hợp 2. Kết quả = "Hai mươi"
Trường hợp 3. Kết quả = "Ba mươi"
Trường hợp 4. Kết quả = "Bốn mươi"
Trường hợp 5. Kết quả = "Năm mươi"
Trường hợp 6. Kết quả = "Sáu mươi"
Trường hợp 7. Kết quả = "Bảy mươi"
Trường hợp 8. Kết quả = "Tám mươi"
Trường hợp 9. Kết quả = "Chín mươi"
trường hợp khác
Kết thúc chọn
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Truy xuất những vị trí
kết thúc nếu
GetTens = Kết quả
chức năng kết thúc

Hàm GetDigit(Chữ số)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
trường hợp khác. GetDigit = ""
Kết thúc chọn
chức năng kết thúc

Lỗi #name trong Excel là gì?

Excel có thể viết số bằng chữ không?