Ngồi vọc lại mấy chương trình cổ thấy hàm đọc số excel của một cao thủ đời 80 thấy hay quá. Function này cũng xài tốt cho access. Có điều font VNI thì được còn Unicode bị lỗi font. Thử gõ lại phần tiếng Việt bằng bộ gõ Windows, không ngờ lại OK.

Các bạn muốn sử dụng phải tắt bộ gõ tiếng Việt và thiết đặt Vietnamesse keyboard trước khi copy và dán vào module thì mới không bị lỗi. Sau khi dán vào module mà font chữ tiếng Việt vẫn giữ nguyên thì đã thành công.

(18-02-17, 07:00 PM)tranthanhan1962 Đã viết: Ngồi vọc lại mấy chương trình cổ thấy hàm đọc số excel của một cao thủ đời 80 thấy hay quá. Function này cũng xài tốt cho access. Có điều font VNI thì được còn Unicode bị lỗi font. Thử gõ lại phần tiếng Việt bằng bộ gõ Windows, không ngờ lại OK.

Mã:

Public Function VND(BaoNhieu)
Dim KetQua, SOTIEN, Nhom, Chu, Dich, S1, S2, S3 As String
Dim i, j, Vitri As Byte, S As Double
Dim HANG, Doc, Dem, l
If BaoNhieu = 0 Then
   KetQua = "Không đồng"
Else
   If Abs(BaoNhieu) >= 1E+15 Then '1E+15 tức 1.000.000.000.000.000 tức 1 triệu tỷ
       KetQua = "Số quá lớn"
   Else
       If BaoNhieu < 0 Then
           KetQua = "Âm" & Space(1)
       Else
           KetQua = Space(0)
           End If
           SOTIEN = Format(Abs(BaoNhieu), "##############0.00")
           SOTIEN = Right(Space(15) & SOTIEN, 18)
           HANG = Array("None", "trăm", "mươi", "gì đó")
           Doc = Array("Nonne", "nghìn tỷ", "tỷ", "triệu", "nghìn", "đồng", "xu")
           Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín")
           For i = 1 To 6
               Nhom = Mid(SOTIEN, i * 3 - 2, 3)
               If Nhom <> Space(3) Then
                   Select Case Nhom
                       Case "000"
                           If i = 5 Then
                               Chu = "đồng" & Space(1)
                           Else
                               Chu = Space(0)
                           End If
                       Case ",00"
                       Chu = "chẵn"
                       Case "0.00"
                       Chu = " chẵn"
                       Case Else
                           S1 = Left(Nhom, 1)
                           S2 = Mid(Nhom, 2, 1)
                           S3 = Right(Nhom, 1)
                           Chu = Space(0)
                           HANG(3) = Doc(i)
                           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) 'ký tự l
                                   Case 2 And S = 0 And S3 <> "0"
                                       If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And l = 4) Then
                                           Dich = "lẻ" & Space(1)
                                       End If
                                   End Select
                                   Chu = Chu & Dich
                               Next j
                           End Select
                           Vitri = InStr(1, Chu, "mươi một", 1)
                           If Vitri > 0 Then Mid(Chu, Vitri, 9) = "mươi mốt"
                           KetQua = KetQua & Chu
                       End If
                   Next i
               End If
           End If
           VND = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
   End Function

Các bạn muốn sử dụng phải tắt bộ gõ tiếng Việt và thiết đặt Vietnamesse keyboard trước khi copy và dán vào module thì mới không bị lỗi. Sau khi dán vào module mà font chữ tiếng Việt vẫn giữ nguyên thì đã thành công.

Em thì dùng cái này để đọc số tiền: