[分享]修改後的人民幣大小寫轉換模塊_access模塊-access類模塊-access函數-access VBA_Access中國-Office中國

尾數為“分”時，最後不出現“整”字 大寫 欄位 =chMoney(Val([小寫欄位])) Public Function CCh(N1) As String Select Case N1 Case 0 CCh = "零" Case 1 CCh = "壹" Case 2 CCh = "貳" Case 3 CCh = "叁" Case 4 CCh = "肆" Case 5 CCh = "伍" Case 6 CCh = "陸" Case ...

www.office-cn.net