3.009.001,00
Ba trieäu khoâng traêm leû chín ngaøn moät ñoàng chaün
Ba trieäu khoâng traêm leû chín ngaøn khoâng traêm leû moät ñoàng chaün
[CENTER][CENTER] caùc anh chò chæ em ñoaïn maõ TH 2 laø coù khoâng traêm leû moät ñoàng chaün.Em laøm hoaøi maø khoâng ra Xin chæ giaùo [/CENTER][/CENTER]
Public Function vnd(howmuch)
Dim ketqua, sotien, nhom, chu, dich, s1, s2, s3 As String
Dim l, j, vitri As Double
Dim hang, doc, dem
If howmuch = 0 Then
ketqua = "Khoâng ñoàng"
Else
If Abs(howmuch) >= 1E+15 Then
ketqua = "Soá gì maø to theá 1 trieäu tyû khoâng ñuû xaøi haû, nhaäp laïi !"
Else
If howmuch < 0 Then
ketqua = "Tröø" & Space(1)
Else
ketqua = Space(0)
End If
sotien = Format(Abs(howmuch), "##############0.00")
sotien = Right(Space(15) & sotien, 18)
hang = Array("None", "traêm", "möôi", "gì ñoù")
doc = Array("None", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng", "chaün")
dem = Array("None", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chín")
For l = 1 To 6
nhom = Mid(sotien, l * 3 - 2, 3)
If nhom <> Space(3) Then
Select Case nhom
Case "000"
If l = 5 Then
chu = "ñoàng" & Space(1)
Else
chu = Space(0)
End If
Case ".00"
chu = "chaün"
Case Else
s1 = Left(nhom, 1)
s2 = Mid(nhom, 2, 1)
s3 = Right(nhom, 1)
chu = Space(0)
hang(3) = doc(l)
For j = 1 To 3
dich = Space(0)
S = Val(Mid(nhom, j, 1))
If S > 0 Then
dich = dem(S) & Space(1) & hang(j) & Space(1)
End If
Select Case j
Case 2 And S = 1
dich = "möôøi" & Space(1)
Case 3 And S = 0 And nhom <> Space(2) & "0"
dich = hang(j) & Space(1)
Case 3 And S = 5 And s2 <> Space(1) And s2 <> "0"
dich = "l" & Mid(dich, 2)
Case 2 And S = 0 And s3 <> "0"
If (s1 >= "1" And s1 <= "9") Or (s1 = "0" And l = 4) Then
dich = "khoâng traêm leû" & Space(1)
End If
End Select
chu = chu & dich
Next j
End Select
vitri = InStr(1, chu, "möôi moät", 1)
If vitri > 0 Then Mid(chu, vitri, 9) = "möôi moát"
ketqua = ketqua & chu
End If
Next l
End If
End If
vnd = UCase(Left(ketqua, 1)) & Mid(ketqua, 2)
End Function
