Currency Wrapper windream

2023-04-26 15:18:11 +02:00
parent da9dd6dcd7
commit 0c1b070a90
2 changed files with 3 additions and 3 deletions
--- a/Windream/Helpers.vb
+++ b/Windream/Helpers.vb
@@ -104,7 +104,7 @@ Public Class Helpers
            Case INDEX_TYPE_CURRENCY
                'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
                Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(pValue))
-                Return pValue
+                Return aValueWrapper
            Case Else
                Return pValue
        End Select