neu

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -927,6 +927,15 @@ Public Class SQL
         End Try
         Return 0
     End Function
+
+    Public Shared Function checkNullDateReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object
+        If o IsNot Nothing And o IsNot DBNull.Value Then
+            If o.ToString <> "" AndAlso IsDate(o) Then
+                Return CDate(o)
+            End If
+        End If
+        Return returnValue
+    End Function
     Public Shared Function checkNullDate(ByVal o As Object) As Date
         If o IsNot Nothing And o IsNot DBNull.Value Then Return CDate(o)
         Return Now