FlowFact - Entwicklungstools

zurück

Function - FormatCurrencyFF
Währung anhängen


Beispiel: dblWert=1.23; Rückgabe="€ 1,23"
  Function FormatCurrencyFF(ByVal dblWert As Double, Optional ByVal strCurrency As String = "", Optional ByVal lngPos As Long = 1) As String  
 


dblWert: Der zu formatierende Zahlenwert
strCurrency: Währungssymbol; (Leer) Währungssymbol aus den Grundeinstellungen wird verwendet
lngPos: =0: Währungssymbol vor dem Zahlenwert hinzufügen; =1 dahinter


Public Function FormatCurrencyFF(ByVal dblWert As Double, Optional ByVal strCurrency As String = "", Optional ByVal lngPos As Long = 1) As String
    Dim strResult As String

    strResult = ""

    If strCurrency = "" Then
        strCurrency = m_oApplication.oBase.FF_STDRS("Währung")
    End If

    strResult = Strings.FormatNumber(dblWert)
    If lngPos = 0 Then
        strResult = Trim(strCurrency & " " & strResult)
    ElseIf lngPos = 1 Then
        strResult = Trim(strResult & " " & strCurrency)
    End If

    FormatCurrencyFF = strResult
End Function