Function Unjinwei(shuzi)
if int(shuzi)<=1 and int(shuzi)>0 then
Unjinwei=1
else if instr(shuzi,".")=0 then
Unjinwei=shuzi else Unjinwei=cint(Left(cstr(shuzi),instr(1,cstr(shuzi),".")-1))+1
end if
end if
end Function
Function Unjinwei(shuzi)
if int(shuzi)<=1 and int(shuzi)>0 then
Unjinwei=1
else if instr(shuzi,".")=0 then
Unjinwei=shuzi else Unjinwei=cint(Left(cstr(shuzi),instr(1,cstr(shuzi),".")-1))+1
end if
end if
end Function