The Gonvert

"We hired a Gontractor a few years ago," wrote Mike A, "this is some of his Gode."

"So far as I can tell, Goverting is the Pepper, MD of Converting"

Private Function GonvertToDBNULL(ByVal myValue As Boolean) As Boolean
    If myValue Then
        Return True
    Else
        Return False
    End If
End Function

Private Function GonvertToDBNULL(ByVal myValue As Integer) As Boolean
    If myValue = 0 OrElse IsNothing(myValue) Or _
       myValue = Integer.MinValue Or _
       myValue = Integer.MinValue Then
        Return True
    Else
        Return False
    End If
End Function

Private Function GonvertToDBNULL(ByVal myValue As String) As Boolean
    If myValue = "" OrElse IsNothing(myValue) Or _
       myValue = String.Empty Then
        Return True
    Else
        Return False
    End If
End Function

Private Function GonvertToDBNULL(ByVal myDate As Date) As Boolean
    If myDate.ToString = "1/1/0001 12:00:00 AM" OrElse _ 
       myDate.ToString = "" Then
        Return True
    Else
        Return False
    End If
End Function

[Advertisement] BuildMaster allows you to create a self-service release management platform that allows different teams to manage their applications. Explore how!