![]() |
FlowFact - Entwicklungstools |
![]() |
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 |