'############################################################### Function 小写(k) Application.ScreenUpdating = False m1 = Application.WorksheetFunction.Round(k * 100, 0) n1 = Int(m1 / 100) n2 = Int(m1 / 10) ‐ n1 * 10 n3 = m1 ‐ n1 * 100 ‐ n2 * 10 e = Application.WorksheetFunction.Text(n1, "[DBNum1]") f = Application.WorksheetFunction.Text(n2, "[DBNum1]") g = Application.WorksheetFunction.Text(n3, "[DBNum1]") If n3 = 0 Then 小写 = "人民币大写:" & e & "元" & "整" End If If (n3 <> 0) And (n2 <> 0) Then 小写 = "人民币大写:" & e & "元" & f & "角" & g & "分" If n1 = 0 Then 小写 = "人民币大写:" & f & "角" & g & "分" End If End If If (n3 = 0) And n2 <> 0 Then 小写 = "人民币大写:" & e & "元" & f & "角" & "整" If n1 = 0 Then 小写 = "人民币大写:" & f & "角" & "整" End If End If If (n3 <> 0) And (n2 = 0) Then 小写 = "人民币大写:" & e & "元" & g & "分" If n1 = 0 Then 小写 = "人民币大写:" & g & "分" End If End If If k = 0 Or k = "" Then k = "" End If Application.ScreenUpdating = True End Function Function 大写(k) Application.ScreenUpdating = False m1 = Application.WorksheetFunction.Round(k * 100, 0) n1 = Int(m1 / 100) n2 = Int(m1 / 10) ‐ n1 * 10 n3 = m1 ‐ n1 * 100 ‐ n2 * 10 e = Application.WorksheetFunction.Text(n1, "[dbnum2]") f = Application.WorksheetFunction.Text(n2, "[dbnum2]") g = Application.WorksheetFunction.Text(n3, "[dbnum2]") If n3 = 0 Then 大写 = "人民币大写:" & e & "元" & "整" End If If (n3 <> 0) And (n2 <> 0) Then 大写 = "人民币大写:" & e & "元" & f & "角" & g & "分" If n1 = 0 Then 大写 = "人民币大写:" & f & "角" & g & "分" End If End If If (n3 = 0) And n2 <> 0 Then 大写 = "人民币大写:" & e & "元" & f & "角" & "整" If n1 = 0 Then 大写 = "人民币大写:" & f & "角" & "整" End If End If If (n3 <> 0) And (n2 = 0) Then 大写 = "人民币大写:" & e & "元" & f & g & "分" If n1 = 0 Then 大写 = "人民币大写:" & g & "分" End If End If If k = 0 Or k = "" Then 大写 = "" End If Application.ScreenUpdating = True End Function |
|