neu

SDL/cProgramFunctions.vb

@@ -442,14 +442,14 @@ Public Class cProgramFunctions
     Public Shared Function isLeerNothing(o) As Object
         Return IIf(o = "", Nothing, o)
     End Function
-    Public Shared Function isLeerNothingDbl(o) As Object
+    Public Shared Function isLeerNothingDbl(o, Optional returnVal = Nothing) As Object
         Try
-            If o = "" Then Return Nothing
+            If o = "" Then Return returnVal
             If IsNumeric(o) Then Return CDbl(o)
-            Return Nothing
+            Return returnVal
 
         Catch ex As Exception
-            Return Nothing
+            Return returnVal
         End Try
     End Function
     Public Shared Function isLeerNothingDblPKT(o) As Object