专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
面的金额转换,一时兴起也动手写了一个,写的匆忙支持的位数不多,有错误的地方还请多多指教。入口:getChangedValOption Explicit´总体思路:´对数字进行分级处理,级长为4´对分级后的每级分别处理,处理后得到字符串相连´如:123456=12|3456´第二级:12=壹拾贰 + “万”´第一级:3456 =叁千肆百伍拾陆 + “”Private Const PrvStrNum = \"壹贰叁肆伍陆柒捌玖零\"Private Const PrvStrUnit = \" [阅读全文] [PDF]
网上冲浪更快更爽,下载带有 Google 工具栏的 Firefox Public Function ZDX(X As Currency) As String Dim lnP As Integer Dim Prc As String Dim Tmp As String Dim NoB As Currency Dim Dx As String Dim Xx As String Dim Zhen As Boolean Dim Str(10) As String Dim China As String China = \"分角元拾佰仟万拾佰仟亿\" Str(0) [阅读全文] [PDF]
public function zdx(x as currency) as string dim lnp as integer dim prc as string dim tmp as string dim nob as currency dim dx as string dim xx as string dim zhen as boolean dim str(10) as string dim china as string china = \"分角元拾佰仟万拾佰仟亿\" str(0) = \"零\" str(1) = \"壹\" str(2) = \" [阅读全文] [PDF]
1 共3条 分1页