Lỗi Code dịch số sang chữ
DoquangLam > 10-06-11, 11:08 PM
Nhờ các bạn kiểm tra dùm mình lỗi code dịch số sang chữ (lỗi ngay dòng màu đỏ).
File đính kèm các bạn mở Reports "R_48CapNhatChungTu_PN" -> Bị lỗi
Cám ơn các bạn !
Function VND(Amt)
If Amt = 0 Then
Resp = "Khoâng ñoàng"
Else
If Abs(Amt) > 999999999999.99 Then
Resp = "Soá quaù lôùn"
Else
If Amt < 0 Then
Resp = "Tröø "
Else
Resp = Space(0)
End If
Tien = Format(Abs(Amt), "###########0")
Tien = Right(Space(12) + Tien, 12)
doc = Space(0): Dem = doc
doc = doc + "traêm möôi tyû "
doc = doc + "traêm möôi trieäu"
doc = doc + "traêm möôi ngaøn "
doc = doc + "traêm möôi ñoàng "
doc = doc + "traêm möôi "
Dem = Dem + "moät hai ba boán naêm "
Dem = Dem + "saùu baûy taùm chín "
For I = 1 To 5
Nhom = Mid(Tien, I * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If I = 4 Then
Chu = "ñoàng "
Else
Chu = Space(0)
End If
Case ".00"
Chu = "chaün"
Case Else
So1 = Left(Nhom, 1)
So2 = Mid(Nhom, 2, 1)
So3 = Right(Nhom, 1)
Chu = Space(0)
For j = 1 To 3
Dich = Space(0)
s = Val(Mid(Nhom, j, 1))
If s > 0 Then
Dich = Trim(Mid(Dem, s * 5 - 4, 5)) + " " + Trim(Mid(doc, (I - 1) * 18 + j * 6 - 5, 6)) + " "
End If
Select Case j
Case 2 And s = 1
Dich = "möôøi "
Case 3 And s = 0 And Nhom <> Space(2) + "0"
Dich = Trim(Mid(doc, (I - 1) * 18 + j * 6 - 5, 6)) + Space(1)
Case 3 And s = 5 And So2 <> Space(1) And So2 <> "0"
Dich = "l" + Mid(Dich, 2)
Case 2 And s = 0 And So3 <> "0"
If (So1 >= "1" And So1 <= "9") Or (So1 = "0" And I = 4) Then
Dich = "leû "
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"
Resp = Resp + Chu
End If
Next I
End If
End If
VND = UCase(Left(Resp, 1)) + Mid(Resp, 2)
End Function