62,046
社区成员
发帖
与我相关
我的任务
分享
function getvalue(qz,str)
dim y,i,s,j
y=right(year(trim(date())),2)
for i=1 to len(str)
s=mid(str,i,1)
if cint(s)>0 then
j=i
exit for
end if
next
if cint(j)>len(str) then j=len(str)
i=cint(right(str,len(str)+1-j))+1
i=right("0000"&cstr(i),4)
getpzh=qz&y&i
end function