Hàm đổi Số sang Chữ trong OpenOffice.org Calc

[jubei_ludu]

Ở đây hẳn các bạn đã quá quen thuọc việc sử dụng các hàm viết bằng VB Script trong Excel để hỗ trợ trong công việc văn phòng.


Hôm nay tôi xin giới thiệu 2 hàm dùng trong Open Office.org Calc (Bộ phần mềm văn phòng mã nguồn mở - miễn phí 100%).


Hai hàm này có chức năng ĐỔI SỐ -> CHỮ (ĐỒNG VIỆT NAM và DOLLAR)

Function VND(BaoNhieu)
  Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String
  Dim I, J, ViTri As integer , S As double
  Dim Hang, Doc, Dem
  If BaoNhieu = 0 Then
    KetQua = "Không đồng"
  Else
    If Abs(BaoNhieu) > 999999999999.99 Then
      KetQua = "Số quá lớn"
    Else
      If BaoNhieu < 0 Then
        KetQua = "triệu" & Space(1)
      Else
        KetQua = Space(0)
      End If
      SoTien = Format(Abs(BaoNhieu), "###########0.00")
      SoTien = Right(Space(12) & SoTien, 15)
      Hang = Array("None", "trăm", "mươi", "nghìn")
      Doc = Array("None", "tỷ", "triệu", "ngà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 5
        Nhom = Mid(SoTien, I * 3 - 2, 3)
        If Nhom <> Space(3) Then
          Select Case Nhom
            Case "000"
              If I = 4 Then
                Chu = "ngàn" & Space(1)
              Else
                Chu = Space(0)
              End If
            Case ".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)
                  Case 2 And S = 0 And S3 <> "0"
                  If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And I = 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

Function USD(AMT)
 Dim ToRead, Chuoi, Nhom, Word As String
  Dim I, J As integer , W, X, Y, Z As Double
  Dim DonVi, HChuc, Khung
  If AMT = 0 Then
    ToRead = "None"
  Else
    DonVi = Array("None", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen")
    HChuc = Array("None", "None", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety")
    Khung = Array("None", "billion", "million", "thousand", "dollars", "cents")
    If AMT < 0 Then
      ToRead = "Minus" & Space(1)
    Else
      ToRead = Space(0)
    End If
    Chuoi = Format(Abs(AMT), "############.00")
    Chuoi = Right(Space(12) & Chuoi, 15)
    For I = 1 To 5
      Nhom = Mid(Chuoi, I * 3 - 2, 3)
      If Nhom <> Space(3) Then
        Select Case Nhom
        Case "000"
          If I = 4 And Abs(AMT) > 1 Then
            Word = "dollars" & Space(1)
          Else
            Word = Space(0)
          End If
        Case ".00"
          Word = "only"
        Case Else
          X = Val(Left(Nhom, 1))
          Y = Val(Mid(Nhom, 2, 1))
          Z = Val(Right(Nhom, 1))
          W = Val(Right(Nhom, 2))
          If X = 0 Then
            Word = Space(0)
          Else
            Word = DonVi(X) & Space(1) & "hundred" & Space(1)
            If W > 0 And W < 21 Then
              Word = Word & "and" & Space(1)
            End If
          End If
          If I = 5 And Abs(AMT) > 1 Then
            Word = "and" & Space(1) & Word
          End If
          If W < 20 And W > 0 Then
            Word = Word & DonVi(W) & Space(1)
          Else
            If W >= 20 Then
              Word = Word & HChuc(Y) & Space(1)
              If Z > 0 Then
                Word = Word & DonVi(Z) & Space(1)
              End If
            End If
          End If
          Word = Word & Khung(I) & Space(1)
        End Select
        ToRead = ToRead & Word
      End If
    Next I
  End If
  USD = UCase(Left(ToRead, 1)) & Mid(ToRead, 2)
End Function

Nguồn: [Đăng nhập để xem liên kết. ]