老师们,帮帮忙!我有一个问题?急!

shijunde

谢谢老师们了!

我想实现这种功能:

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

E-mail:shijunde1984@126.com

qhp-soft

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