code không đọc được mét vuông số thứ ba sau dấu phẩy (1 người xem)

[quynhtlbp]

Em nhờ các Anh(Chị) xem code trong modul1 dịch số ra mét vuông phần thập phân.
VD: 154,235 một trăm năm mươi bốn phẩy hai trăm ba lăm mét vuông.
- nhưng chỉ dịch được,một trăm năm mươi bốn phẩy hai mươi ba mét vuông.
Anh( Chị) xem giúp trong file đính kèm. Em chân thành cảm ơn.

 

[ptm0412]

Bạn tìm trong Module1 dòng lệnh sau:

SoLe = Int((NumCurrency - Int(NumCurrency)) * 100)

Xóa và thay bằng 2 dòng:

ssle = Len(NumCurrency) - Len(str(Int(NumCurrency))) - _
IIf(Len(NumCurrency) = Len(str(Int(NumCurrency))), 0, 1)

SoLe = Int((NumCurrency - Int(NumCurrency)) * 10 ^ ssle)

Sau khi thay, có bao nhiêu số thập phân (từ 0 đến 3) sẽ đọc bấy nhiêu số. Có 4 số thập phân trở lên thì chưa được, vì cấu trúc và thuật toán code này hơi khó sửa.

 

[quynhtlbp]

Em chân thành cảm ơn anh đã giúp đỡ