'Convert the lowercase of the currency to uppercase, for example: 佰 圆 捌 柒 柒
Public Function Num2chi (Byval Txtje As Double) AS String
DIM I, K AS INTEGER
DIM NC, ND, KA, CHRNUM, STRZHENG AS STRING
DIM C1, C2, C3 AS STRING
DIM K1 AS INTEGER
DIM Zheng as string
Dim xiao as string
NC = Trim (Format (TXTJE, "## 0.00")))
C1 = "佰 万 万 元"
C2 = "angle"
C3 = "捌柒 捌柒 肆 壹"
IF nc = 0 THEN
Num2chi = "Zero Yuan"
EXIT FUNCTION
END IF
Num2chi = ""
ZHENG = MID (NC, 1, (LEN (NC) - 3))
XIAO = MID (NC, (Len (zheng) 2))
IF Val (xiao) <> 0 THEN
For i = len (xiao) to 1 step -1
Chrnum = MID (xiao, i, 1)
IF chrnum <> 0 THEN
Num2chi = MID (C2, I, 1) & Num2chi
Num2chi = MID (C3, (Len (C3) - Chrnum 1), 1) & Num2chi
END IF
Next I
END IF
K = 0
IF VAL (zheng) <> 0 THEN
Num2chi = "Yuan" & Num2chi
For i = len (zheng) to 1 step -1
IF (Len (zheng) - i) = 4 THEN
Num2chi = "10,000" & num2chi
Elseif (Len (zheng) - i) = 8 THEN
Num2chi = "100 million" & num2chi
Elseif (Len (zheng) - i) = 12 THEN
Num2chi = "10,000" & num2chi
END IF
Chrnum = MID (zheng, i, 1)
IF chrnum <> 0 THEN
IF i = len (zheng) THEN
Num2chi = MID (C3, (Len (C3) - Chrnum 1), 1) & Num2chi
Else
IF (Len (zheng) - i) <> 4 and (zheng) - i) <> 8 and (zheng) - i) <> 12 THEN
Num2chi = MID (C1, (Len (C1) - K), 1) & Num2chi
END IF
Num2chi = MID (C3, (Len (C3) - Chrnum 1), 1) & Num2chi
END IF
Else
IF MID (Num2chi, 1, 1) <> "Yuan" and MID (Num2chi, 1, 1) <> "Wan" and MID (Num2chi, 1, 1) <> "" "THEN
IF MID (Num2chi, 1, 1) <> "zero" lifenum2chi = "zero" & num2chi
END IF
END IF
END IF
K = K 1
Next i
END IF
IF Right (TRIM (Num2chi), 1) <> "points" then
Num2chi = Num2chi & "All"
END IF
END FUNCTION
