西安做网站ASP强制转换数字的函数

6272017-02-10

'第一个函数,可以强转带小数点的数字格式,西安网站建设团队点墨网络竭诚为您服务。 

Public Function CheckNumeric(ByVal CHECK_ID)
  If CHECK_ID <> "" And IsNumeric(CHECK_ID) Then
   If CHECK_ID > 922337203685477 Then CHECK_ID = 0
   If CHECK_ID < -922337203685477 Then CHECK_ID = 0
   CHECK_ID = CCur(CHECK_ID)
  Else
   CHECK_ID = 0
  End If
  CheckNumeric = CHECK_ID
 End Function

 

'第二个函数,可以强转为整数格式。 

 Public Function ChkNumeric(ByVal CHECK_ID)
  If CHECK_ID <> "" And IsNumeric(CHECK_ID) Then
   If CHECK_ID < 0 Then CHECK_ID = 0
   If CHECK_ID > 2147483647 Then CHECK_ID = 0
   CHECK_ID = CLng(CHECK_ID)
  Else
   CHECK_ID = 0
  End If
  ChkNumeric = CHECK_ID
 End Function

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1