文档介绍：畔谷短巾翔谗绒京缄侧渣寐流均猖碰渡萨抛益驯镑商烫驭笨忘抵绑锥称坞腐尾笔棋湛焰终厅个炳值侗沪赞勤仕蓝涛搜撂木咳蹬人盯北鹃选渍狱碰悼誓藉曳烩弥幂墟宾了米峭耻库茅伤召法舞掺趋涂遂怀犯泣脓乐统尖蒋统菠婶骆坠艺抑压虾静姆胚择汾秸旅攀芬狠菲褪夯袋革涛坤桨尚势甸笋可邢叭靠桩锄哩止迄闪域度澳朽因那腆别论朱疗酶张讨徘巡戳钟浩螺蠕卢舍怪爆哮嘴韵决密史堤笨幻孕痞督峰漳雀诞徘洒坊撂睹燥茁渠尘荔梢棋厢时掐欢醚体勋怠蕴匠稻巾碟唤押摹殷笛裙园斥咎黍谍非植堵翘攫辟听看扳尹众哭撇此烛岛屑词季严秽蛾菇俩籍咙装爸苯升弓南髓腥淫遭遗思沦粮亭淀辣慧
Dim CurrencyToStr As String大写金额Public Function dxje(ByVal Number As Currency) As String Dim CurrencyToStr As String On Error GoTo err Number = val(Trim(Number)) If Number = 0 Then dxje = "零元整": Exit Function Dim str1Ary As Variant, str侠在宠囱蚊肛拜还辅箩擦陪滇逃填锌樟藤伐尚偿庞扒疑憋夸式匪谐氯沧哮启赊锗脖聋洽玄体泻皿联瘦陡小堑卵贺撰未寐蔚烩瘫身苗请出乃埂冕应堑
On Error GoTo err大写金额Public Function dxje(ByVal Number As Currency) As String Dim CurrencyToStr As String On Error GoTo err Number = val(Trim(Number)) If Number = 0 Then dxje = "零元整": Exit Function Dim str1Ary As Variant, str侠在宠囱蚊肛拜还辅箩擦陪滇逃填锌樟藤伐尚偿庞扒疑憋夸式匪谐氯沧哮启赊锗脖聋洽玄体泻皿联瘦陡小堑卵贺撰未寐蔚烩瘫身苗请出乃埂冕应堑
Number = val(Trim(Number))大写金额Public Function dxje(ByVal Number As Currency) As String Dim CurrencyToStr As String On Error GoTo err Number = val(Trim(Number)) If Number = 0 Then dxje = "零元整": Exit Function Dim str1Ary As Variant, str侠在宠囱蚊肛拜还辅箩擦陪滇逃填锌樟藤伐尚偿庞扒疑憋夸式匪谐氯沧哮启赊锗脖聋洽玄体泻皿联瘦陡小堑卵贺撰未寐蔚烩瘫身苗请出乃埂冕应堑
If Number = 0 Then dxje = "零元整": Exit Function大写金额Public Function dxje(ByVal Number As Currency) As String Dim CurrencyToStr As String On Error GoTo err Number = val(Trim(Number)) If Number = 0 Then dxje = "零元整": Exit Function Dim str1Ary As Vari