以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  金额分拆  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44136)

--  作者:发财
--  发布时间:2013/12/24 9:32:00
--  金额分拆
EXCEL模板如何将金额分拆成十、万、千、百、十、元、角、分
--  作者:Bin
--  发布时间:2013/12/24 9:50:00
--  
如果你的值是固定2位小数
那么使用表达式分割 
例如 分 ,也就是最后一位小数 SubString([第一列],Len([第一列]),1)
      角,倒数第二位  SubString([第一列],Len([第一列])-1,1)

--  作者:Bin
--  发布时间:2013/12/24 9:52:00
--  
元位开始要判断一下长度是否足够 

例如十位

IIF(Len([第一列])>4,SubString([第一列],Len([第一列])-4,1),0)

--  作者:发财
--  发布时间:2013/12/24 10:05:00
--  
在EXCEL模板公式里面设公式不行吗?
--  作者:Bin
--  发布时间:2013/12/24 10:06:00
--  
这些公式都是可以在Excel模板使用的啊   http://www.foxtable.com/help/topics/2117.htm
--  作者:发财
--  发布时间:2013/12/25 10:00:00
--  

Dim gdt As String = "金额_分,金额_角,金额_元,金额_拾,金额_百,金额_千,金额_万,金额_十"

    Dim  je As Double = e.DataRow("金额")
    For i As Integer = -2 To gdt.split(",").length-3
        e.DataRow(gdt.split(",")(i+2)) = GetDigit(je,i)
        If i+5 > format(je,"0.00").length
            e.DataRow(gdt.split(",")(i+2+1)) = GetDigit(je,i+1)
            Exit For
        End If
    Next

 

可以将各位数金额由字符型转为数据型吗?


--  作者:Bin
--  发布时间:2013/12/25 10:04:00
--  
不可以.
--  作者:Bin
--  发布时间:2013/12/25 10:04:00
--  
如果是  一三六七九     13679 的方式就简单一点.   一万三千六百七十九  也不是不可以,只不过会非常麻烦而已.

第一种直接声明一个数组替换即可.
[此贴子已经被作者于2013-12-25 10:04:54编辑过]

--  作者:发财
--  发布时间:2013/12/25 10:09:00
--  
1235.07金额分拆成1   2   3   5    0   7每个数字只是字符型吗?不可以分拆成数据型吗?
--  作者:发财
--  发布时间:2013/12/25 10:23:00
--  
拆分字符型数字如何合计?