Office中国论坛/Access中国论坛

标题: 老师们,帮帮忙!急! [打印本页]

作者: shijunde 时间: 2006-4-11 19:45
标题: 老师们,帮帮忙!急!
我想实现:

例:现金:456789.25元,取这个数的千位数6,怎样设置函数?

E-mail:shijunde1984@126.com

作者: qhp-soft 时间: 2006-4-12 00:39
Dim a, b As String
Dim Z As Integer
a = Str(13237789.25)

Z = Len(a)
i = InStr(a, ".")

b = Mid(a, i - 4, Z)

MsgBox Str(b)

_____________________________________________________

如有必要发邮件至: qhp_soft@126.com 或至电:13148802226

-----
论坛是我们成长的家园，我们要共同爱护好、建设好这个家园。同时欢迎大家光临我
的主页：http://www.qhpsoft.com

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)