大神们，我找了一段标注，帮忙看看我哪里改错了，谢谢

shiyonghao

大神们，我找了一段标注，帮忙看看我哪里改错了，谢谢

Function strlen(str)
dim p_len
    p_len=0
    strlen=0
    p_len=len(str)
   FOR xx=1 to p_len
       IF asc(mid(str,xx,1))<0 then
           strlen=int(strlen) + 2
       ELSE
           strlen=int(strlen) + 1
       END if
   NEXT
END Function
FUNCTION myFind ( [DKSL] , [DKMJ])
   a=strlen( [DKSL] )
   b=strlen( [DKMJ] &"亩")
   IF a>b then
      myFind ="<und>" & [DKSL] & "</und>"&  vbnewline& [DKMJ] &"亩"
   ELSE
       str= space((b-a)/2)
       myFind ="<und>" & str & [DKSL] & str &"</und>" & vbnewline & [DKMJ] &"亩"
   END if
END Function

TAXILOG

你这是VBC编程吗

hua840209

谢谢分享