39;----------FUNCTION STRLEN(STR)----------
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( cunname, DJH,SHAPE_Area,lb )
dim str
str=SHAPE_Area
dim d
d=strlen(str)
dim d1
dim d2
d1=strlen(cunname) /2
d2=strlen(DJH) /2
if d2>d1 then
d1=d2
end if
myFind =" " & space(d-1) &cunname & vbnewline & str & string(d1, "—") & lb & vbnewline & space(d) & DJH
END Function
39;编制日期:2012-03-25
Function FindLabel ([小班号],[林种],[树种],[小班面积],[完成面积],[密度],[完成情况],[类别] )
FindLabel = myFind( [林种] & "-" & [小班面积] & "(" & [完成面积] & ")",[树种] & "-" & [密度] & "-" & [完成情况], [小班号],[类别])
End Function
0人已收藏
0人已打赏
免费1人已点赞
分享
阅读下一篇
以下工作必须由总监理工程师完成以下12项工作必须由总监理工程师完成,不可以授权他人。 1、主持编制监理规划,审批监理实施细则。 2、主持审查承包人提出的分包项目和分包人。 3、审批承包人提交的合同工程开工申请、施工组织设计、施工总进度计划、年施工进度计划、专项施工进度计划、资金流计划。 4、审批承包人按有关安全规定和合同要求提交的专项施工方案、度汛方案和灾害应急预案。 5、签发施工图纸。
回帖成功
经验值 +10
全部回复(0)
只看楼主 我来说两句抢沙发