Dim clas As Integer
Dim s As Integer
s= CInt([最大水深] )
if s < =0.5 Then
clas = 0
elseif ( s >0.5 and s <=1) Then
clas=1
elseif ( s >1 and s <=1.5) Then
clas=2
elseif ( s >1.5 and s <=2.5) Then
clas=3
elseif ( s >2.5 and s <=5) Then
clas=4
elseif ( s >5 ) Then
clas=5
End if
Dim s As Integer
s= CInt([最大水深] )
if s < =0.5 Then
clas = 0
elseif ( s >0.5 and s <=1) Then
clas=1
elseif ( s >1 and s <=1.5) Then
clas=2
elseif ( s >1.5 and s <=2.5) Then
clas=3
elseif ( s >2.5 and s <=5) Then
clas=4
elseif ( s >5 ) Then
clas=5
End if