考试首页 | 考试用书 | 培训课程 | 模拟考场 | 考试论坛  
  当前位置:编程开发 > DotNET > VB.Net > 文章内容
  

VB.NET校验字符串函数

 [ 2017年7月26日 ] 【

VB.NET校验字符串是否是日期

1
2
3
4
5
6
7
8
9
'Validate for a date
Shared Function checkdate(ByVal thisvalue As String) As String
  If Not IsDate(thisvalue) Then
    checkdate = "NULL"
  Else
    checkdate = "'" & thisvalue & "'"
  End If
  Return checkdate
End Function ' END checkdate

VB.NET检查字符串是否是数字

1
2
3
4
5
6
7
8
9
10
11
12
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Used to submit values to the database, check for empty value, replace w/ "NULL"
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   
Shared Function checkNumber(ByVal thisvalue As String) As String
  If IsDBNull(thisvalue) Or Len(thisvalue) = 0 Or Not IsNumeric(thisvalue) Then
    checkNumber = "NULL"
  Else
    checkNumber = thisvalue
  End If
  Return checkNumber
End Function ' END checkNumber

以上所述就是本文的全部内容了,希望大家能够喜欢。

本文纠错】【告诉好友】【打印此文】【返回顶部
将考试网添加到收藏夹 | 每次上网自动访问考试网 | 复制本页地址,传给QQ/MSN上的好友 | 申请链接 | 意见留言 TOP
关于本站  网站声明  广告服务  联系方式  站内导航  考试论坛
Copyright © 2007-2013 中华考试网(Examw.com) All Rights Reserved