Office中国论坛/Access中国论坛

标题: 老师们,帮帮忙!我有一个问题?急! [打印本页]

作者: shijunde 时间: 2006-4-11 19:39
标题: 老师们,帮帮忙!我有一个问题?急!
谢谢老师们了!

我想实现这种功能:

例:现金:456789.25元,我想取这个数的千位数?麻烦把公式写下来?

E-mail:shijunde1984@126.com

作者: qhp-soft 时间: 2006-4-12 00:44

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

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

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