VB.NET校验字符串函数
VB.NET校验字符串是否是日期
'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检查字符串是否是数字
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'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
以上所述就是本文的全部内容了,希望大家能够喜欢。