雪姬忍法帖:在VFP中如何将数字转换为中文大写

来源:百度文库 编辑:九乡新闻网 时间:2024/10/05 23:00:09
在VFP中如何将数字转换为中文大写(2008-04-06 14:15:03)  可以使用下面这个函数。只要使用ChineseFormat(12.3)就可以得到你想要的。
    Function ChineseFormat
    Para Number
    sString = "分角元拾佰仟万拾佰仟万亿拾佰仟万"
    sNumber = "零壹贰叁肆伍陆柒捌玖"
    s = Alltrim(Str(Number*100, 30))
     s
    sFormat= ""
    For i = 1 To Len(s)
     c = SubStr(s, Len(s) - i + 1, 1)
     sFormat = SubStr(sNumber, Val(c) * 2 + 1, 2) + SubStr(sString, i*2-1, 2) + sFormat
    EndFor
    Return sFormat