第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：FunctionAtoC(aAsCurrency)AsString   '定义两个字符串，A的值最多是两位小数.  DimString1AsString '如下定义.  DimString2AsString '如下定义.  DimString3AsString '从原A值中取出的值.  DimIAsInteger    &nb...

如何实现非大小写的替换？FunctionReplaceNoIgnoreCase(str,replStr)   Iflen(replStr)<1orstr=""Then      ReplaceTest=str      Exitfunction   EndIf      DimLoopN   LoopN=1 &n...