大写|函数|货币|精华|转换 <%Function ChangeNumToDx(SourceNum) Dim String1 '如下定义 Dim String2 '如下定义 Dim String3 '从原SourceNum值中取出的值 Dim I '循环变量 Dim J 'SourceNum的值乘以100的字符串长度 Dim Ch1 '数字的汉语读法 Dim Ch2 '数字位的
大写|函数|货币|转换 Function AtoC(a As Currency) As String '说明:本函数适合于万亿以下的货币转换,允许A的值是最多两位小数 '定义两个字符串,此处汉字与数字均按一位计算 Dim String1 As String '如下定义 Dim String2 As String '如下定义 Dim String3 As String '从原A值中取出的值 Dim I As Integer '循环变量