向高手求助！！一个小问题~~

Question

在VB中截取数据的问题~
比如：12345678，我只想要后6位！有没有什么函数可以解决？？或者帮助写一个函数撒~~谢谢了~~

Answer 1

dim i as long
i=12345678
iRet=cint(right(cstr(i),6))

Answer 2

dim str_old as string
dim str_new as string
str_old="12345678"
str_new=right(str_old,6)right函数具有截取字符串右边数据功能
str_new为新字符串
right为函数实体
str_old为源字符串
6 为截取字符长度（以字串为单位）

Answer 3

dim i as long，iRet as long 
i=12345678
iRet=i mod (10^6)
不必用类型状换来转换去的