jj 25.04 CURRENCY $$$

app/DD-Record-Organizer/ClassHelper.vb

@@ -2,6 +2,24 @@
 Imports System.Globalization
 Imports DD_LIB_Standards
 Public Class ClassHelper
+    Public Shared Function Format_Currency(value As String, language As String)
+        Try
+            If language <> "de-DE" Then
+                value = value.Replace(",", ".")
+            End If
+
+            Dim dValue = Double.Parse(value)
+
+            Dim ci = Threading.Thread.CurrentThread.CurrentCulture
+            Dim nfi As NumberFormatInfo = ci.NumberFormat.Clone()
+            nfi.CurrencySymbol = "" ' KEIN Currency Symbol
+
+            Return dValue.ToString("C", nfi)
+        Catch ex As Exception
+            Return value.ToString()
+        End Try
+    End Function
+
     Public Shared Function Convert_Date(input As String, format As String)
         Try
             Dim dt As Date = CDate(input)
@@ -107,11 +125,11 @@ Public Class ClassHelper
     ''' <param name="sFilename">Dateiname ohne Pfadangabe</param>
     ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen 
     ''' im Dateinamen</param>
-    Public Shared Function CleanFilename(ByVal sFilename As String, _
+    Public Shared Function CleanFilename(ByVal sFilename As String,
       Optional ByVal REPLACEChar As String = "") As String
 
         ' alle nicht zulässigen Zeichen ersetzen
-        Return System.Text.RegularExpressions.Regex.Replace( _
+        Return System.Text.RegularExpressions.Regex.Replace(
           sFilename, "[?*^""<>|]", REPLACEChar)
     End Function
     Public Shared Sub File_open(RESULT_DOC_PATH As Object, DocID As String)