Datareport rpttextbox

hi,
how to change datareport rpttextbox dataformat form "#,##0 €" to "#,##0 $"
thanx
bilgiislemciAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
HoweverCommaConnect With a Mentor Commented:
That is a result of you systems locale setting which could be modified to always to this.
This function is out of my 'collective' library which will do the same thing w/o affecting all instances of it.


Private Function FormatCurrency(ByVal numeric_string As _
    String, ByVal locale_id As Long, ByVal num_digits As _
    Integer, ByVal leading_zero As Boolean, ByVal _
    num_per_group As Integer, ByVal decimal_separator As _
    String, ByVal thousands_separator As String, ByVal _
    negative_order As Long, ByVal positive_order As Long, _
    ByVal currency_symbol As String) As String
Dim fmt As CURRENCYFMT
Dim buf As String * 200
Dim buflen As Integer

    With fmt
        .NumDigits = num_digits
        If leading_zero Then
            .LeadingZero = 1
        Else
            .LeadingZero = 0
        End If
        .Grouping = num_per_group
        .lpDecimalSep = decimal_separator
        .lpThousandSep = thousands_separator
        .NegativeOrder = negative_order
        .PositiveOrder = positive_order
        .lpCurrencySymbol = currency_symbol
    End With

    If locale_id = 0 Then
        buflen = GetCurrencyFormat(locale_id, 0, _
            numeric_string, fmt, buf, Len(buf))
    Else
        buflen = GetCurrencyFormat(locale_id, 0, _
            numeric_string, ByVal 0&, buf, Len(buf))
    End If

    FormatCurrency = Left$(buf, buflen)
End Function
0
 
JR2003Commented:
If you are getting the data from a database you can change the SQL to format the amount in the format you want.
Which database are you using?
JR
0
All Courses

From novice to tech pro — start learning today.