Vb. NET checksum string function _vb.net

Vb. NET checksum string is a date

' Validate for a date
Shared Function checkdate (ByVal thisvalue As String) As String
  If not IsDate (thisvalue) then< C4/>checkdate = "NULL"
  Else
    checkdate = "'" & Thisvalue & "" "" End
  If return
  checkdate end
Fun Ction ' End Checkdate

Vb. NET checks whether a string is a number

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 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 = t Hisvalue End
  If return
  checknumber end
Function ' End CheckNumber

The above mentioned is the entire content of this article, I hope you can enjoy.