VB6 Decimal Point 后的 Value

avantilim · 发表于 8-1-2012 05:04 PM

请问下怎样拿 VB6 Decimal Point 后的 Value?

E.g.

99.01 => 01
100.55 => 55

谢谢...

goat89yang · 发表于 14-1-2012 12:32 PM

cint() ....

k-1 · 发表于 3-2-2012 10:21 AM

应该是Abs() + Int() 或 Fix()罢。。

wing_s · 发表于 16-2-2012 05:27 PM

double org = 99.01
double result = (org - (int)org)*100

这样可以吗？

seanwe87 · 发表于 16-2-2012 08:25 PM

i = 99.01
string result = right(cstr(i), len(cstr(i)) - instr(cstr(i),"."))

kakheng · 发表于 14-3-2012 09:59 AM

Dim i As Double
i = 99.01
Dim s As String
s = CStr(i)
Dim ss() As String
ss = Split(s, ".")
MsgBox ss(UBound(ss))

		自动登录	找回密码
密码			注册

所属分类: 电脑手机