'**************************************************
'函数ID：0014[检测ID是否为数字类型]
'函数名：JCID
'作 用：检测ID是否为数字类型
'参 数：ParaValue ---- 被检测的ID值
'返回值：返回ID值，如果不为数字类型返回0
'**************************************************
Function JCID(ByVal ParaValue)
If ((Not isNumeric(ParaValue)) or (Trim(ParaValue)="")) Then
JCID=0
Else
JCID=ParaValue
End If
End function