VB.NET校验字符串函数
VB.NET校验字符串是否是日期
'Validateforadate SharedFunctioncheckdate(ByValthisvalueAsString)AsString IfNotIsDate(thisvalue)Then checkdate="NULL" Else checkdate="'"&thisvalue&"'" EndIf Returncheckdate EndFunction'ENDcheckdate
VB.NET检查字符串是否是数字
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'Usedtosubmitvaluestothedatabase,checkforemptyvalue,replacew/"NULL" '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SharedFunctioncheckNumber(ByValthisvalueAsString)AsString IfIsDBNull(thisvalue)OrLen(thisvalue)=0OrNotIsNumeric(thisvalue)Then checkNumber="NULL" Else checkNumber=thisvalue EndIf ReturncheckNumber EndFunction'ENDcheckNumber
以上所述就是本文的全部内容了,希望大家能够喜欢。