2015年12月16日
小写转大写
摘要： Function QtyToChar(Qty: Double): String;Const Con: Array [0 .. 3] Of String[2] = ('', '拾', '佰', '仟'); DD: Array [0 .. 9] Of String[2] = ('零', '壹', '... 阅读全文
posted @ 2015-12-16 11:09 刀小爱 阅读(166) 评论(0) 推荐(0) 编辑