请问怎么让两个百分比的值相加？

Horus_Ra · 发表于 2006-2-24 17:50:57

比如：10% + 50%

提示类型错误……怎么办啊？

先谢了～

yangkinki · 发表于 2006-2-25 10:44:05

%符号改成/100，即10/100+50/100

Horus_Ra · 发表于 2006-2-27 09:25:37

问题是，这个值是我从界面上取出来的，取出来就带百分号……怎么替换啊？

Hunter · 发表于 2006-2-27 13:36:28

a = "1%"
a=replace (a,"%","")
a = asc(a)
a= a-48

b = "2%"
b = replace(b,"%","")
b = asc(b)
b= b-48

c = (a+b)/100

c = formatpercent(c)

msgbox c

看看可以吗，如果有问题请回复！

Horus_Ra · 发表于 2006-2-27 13:42:29

成功了，多谢多谢！！
我编程能力不行啊～～～

另外，我缩减了一下，结果一样：

a = "1%"
a = replace (a,"%","")
b = "2%"
b = replace (b,"%","")

c = (Cint(a)+Cint(b))/100
c = formatpercent(c)
msgbox c

[ 本帖最后由 Horus_Ra 于 2006-2-27 13:47 编辑 ]

Hunter · 发表于 2006-2-27 13:56:59

嗯，精简了不少。

我要做SQAD · 发表于 2006-2-27 13:59:05

把%去掉.

如果value1和value2都是2位，且都把值传入datatable中：
Cstr(CInt(left(datatable("value1",1),2))+Cint(left(datatable("value2",1),2)))+"%"
如果位数不定就再修改修改吧。
（初学VBScript,可能还有好的办法吧.）

Horus_Ra · 发表于 2006-2-27 14:34:57

本来我也像楼上这么想，可是要超过2位就不行了……

我要做SQAD · 发表于 2006-2-27 14:50:55

Dim i,iPos1,iPos2
iPos1=InStrRev(datatable("value1",1),"%",-1,1)-1
iPos2=InStrRev(datatable("value2",1),"%",-1,1)-1
i=Cstr(CInt(left(datatable("value1",1),iPos1))+Cint(left(datatable("value2",1),iPos2)))+"%"
这样就不用担心位数了.

Horus_Ra · 发表于 2006-2-27 14:55:22

嗯，这样可行～～

不过还是Replace简洁～～

hbwind · 发表于 2006-2-27 18:13:03

但是replace在大范围字符串搜索的时候效率是不高的，不过在这个例子里面可能区别不大。

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 请问怎么让两个百分比的值相加？

相关帖子

站长推荐 /1