VB.NET校验字符串函数

页面导航:首页 > 软件编程 > vb.net > VB.NET校验字符串函数

VB.NET校验字符串函数

来源:互联网 作者:脚本宝典 时间:2015-07-28 19:20 【

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

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

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


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<