đoạn code này bạn viết có thể thay đổi kiểu đếm giống Thầy PTM được không
Function SoRaChu(ByVal NumCurrency As Currency) As String
If NumCurrency = 0 Then
SoRaChu = "Kh«ng ®ång"
Exit Function
End If
If NumCurrency > 922337203685477# Then ' Sè lín nhÊt cña lo¹i CURRENCY
SoRaChu = "Kh«ng ®æi ®îc sè lín hn 922,337,203,685,477"
Exit Function
End If
Static CharVND(9) As String, BangChu As String, i As Integer
Dim SoLe, SoDoi As Integer, PhanChan, Ten As String
Dim DonViTien As String, DonViLe As String
Dim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
Dim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As Integer
DonViTien = "®ång" ' B¹n cã thÓ thay ®n vÞ tiÒn tÖ kh¸c ë ®©y
DonViLe = "xu"
CharVND(1) = "mét"
CharVND(2) = "hai"
CharVND(3) = "ba"
CharVND(4) = "bèn"
CharVND(5) = "n¨m"
CharVND(6) = "s¸u"
CharVND(7) = "b¶y"
CharVND(8) = "t¸m"
CharVND(9) = "chÝn"
SoLe = Int((NumCurrency - Int(NumCurrency)) * 100) '2 kÝ sè lÎ
PhanChan = Trim$(Str$(Int(NumCurrency)))
PhanChan = Space(15 - Len(PhanChan)) + PhanChan
NganTy = Val(Left(PhanChan, 3))
Ty = Val(Mid$(PhanChan, 4, 3))
Trieu = Val(Mid$(PhanChan, 7, 3))
Ngan = Val(Mid$(PhanChan, 10, 3))
Dong = Val(Mid$(PhanChan, 13, 3))
If NganTy = 0 And Ty = 0 And Trieu = 0 And Ngan = 0 And Dong = 0 Then
BangChu = "kh«ng " + DonViTien + " "
i = 5
Else
BangChu = ""
i = 0
End If
While i <= 5
Select Case i
Case 0
SoDoi = NganTy
Ten = "ngµn tû"
Case 1
SoDoi = Ty
Ten = "tû"
Case 2
SoDoi = Trieu
Ten = "triÖu"
Case 3
SoDoi = Ngan
Ten = "ngµn"
Case 4
SoDoi = Dong
Ten = DonViTien
Case 5
SoDoi = SoLe
Ten = DonViLe
End Select
If SoDoi <> 0 Then
Tram = Int(SoDoi / 100)
Muoi = Int((SoDoi - Tram * 100) / 10)
DonVi = (SoDoi - Tram * 100) - Muoi * 10
BangChu = Trim(BangChu) + IIf(Len(BangChu) = 0, "", ", ") + _
IIf(Tram <> 0, Trim(CharVND(Tram)) + " tr¨m ", "")
If Muoi = 0 And Tram <> 0 And DonVi <> 0 Then
BangChu = BangChu '+ "lÎ "
Else
If Muoi <> 0 Then
BangChu = BangChu + IIf(Muoi <> 0 And Muoi <> 1, _
Trim(CharVND(Muoi)) + " m¬i ", "mêi ")
End If
End If
If Muoi <> 0 And DonVi = 5 Then
BangChu = BangChu + "l¨m " + Ten + " "
Else
If Muoi > 1 And DonVi = 1 Then
BangChu = BangChu + "mèt " + Ten + " "
Else
BangChu = BangChu + IIf(DonVi <> 0, Trim(CharVND(DonVi)) + " " + Ten + " ", Ten + " ")
End If
End If
Else
BangChu = BangChu + IIf(i = 4, DonViTien + " ", "")
End If
i = i + 1
Wend
If SoLe = 0 Then
BangChu = BangChu + "ch½n"
End If
Mid$(BangChu, 1, 1) = UCase$(Mid$(BangChu, 1, 1))
SoRaChu = BangChu
End Function