Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

German numeric format

Status
Not open for further replies.
trScott

trScott

Technical User
Dec 13, 2004
31
US
I need to format a value in the German format - switch the commas for periods and vice versa.

3,455.00 should be 3.445,00

Thanks for any help!
 
Sort by date Sort by votes
Hi
This might help:
Code: 
Dim IntPart, DecPart
cur = (Format(cur, "#,###.00"))
If InStr(1, cur, ".") > 0 Then
    DecPart = Mid(cur, InStr(1, cur, ".") + 1)
Else
    DecPart = "00"
End If

IntPart = Mid(cur, 1, InStr(1, cur, ".") - 1)
Do While InStr(1, IntPart, ",") > 0
    Mid(IntPart, InStr(1, IntPart, ","), 1) = "."
Loop
EUCurrency = IntPart & "," & DecPart
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

FancyPrairie
  • Locked
  • Question
How to Format a date on a report
Replies
1
Views
358
sxschech
sxschech
breezett93
  • Locked
  • Question
Report often takes multiple minutes to load, lots of formatting time between pages
Replies
5
Views
502
dhookom
dhookom
BallunarCrew
  • Locked
  • Question
Report Header and Column Formatting Issue 1
Replies
2
Views
632
BallunarCrew
BallunarCrew
lameid
  • Locked
  • Question
Need Pagination - Subreport - Rich Text Format
Replies
2
Views
247
lameid
lameid
spartansFC
  • Locked
  • Question
Conditional Formatting of a string
Replies
4
Views
166
spartansFC
spartansFC

Part and Inventory Search

Sponsor

Back
Top