rounding numbers

[Dr_Michael]

I want to round a number with no decimals, so I use:

Round(MyNumber, 0)



I want to ask you how can I add a digit grouping "." ?
eg. if MyNumber = 1344,78 I want to be displayed as: "1.344,78"
How can I achieve this?

Michael Vlastos
Automation Engineer
Company SouthGate Hellas SA
Development Department
Athens, Greece

[Dr_Michael]

... These numbers are displayed in a ListView column and when I try to sort them, it sorts them as text and not numbers, like this way:
105
11
1131
123

But the right order should be:
11
105
123
1131

Michael Vlastos
Automation Engineer
Company SouthGate Hellas SA
Development Department
Athens, Greece

[Lothar Haensler]

ONE possible solution:
Dim number As Double
number = 1344.78
MsgBox Format(number, "#,###.##")

[Lothar Haensler]

Listview sorts columns as Text.
One possible solution:
- add your values into two separate columns
- make one column invisible (width = 0)
- add a formatted value to the invisible column (l.subitems(1)= format(...)) [format that column in a way that causes correct sort order when sorted as Test]
- sort the listview on that invisible column

[Dr_Michael]

about my first question:
it worked with this:

Format(Round(MyNumber, 0), "#,###")



Thanx!

about the second question now:
your solution is very clever, I'll try it out and let you know. But I would love an easier way of doing that. Anyway, thak you
P.S. Lothar, check your private messages please!

Michael Vlastos
Automation Engineer
Company SouthGate Hellas SA
Development Department
Athens, Greece

[Lothar Haensler]

you can also use the format function for rounding!
Try these:

Dim number as Double
number = 1344.774
MsgBox Format(number, "#,###.##")

number = 1344.776
MsgBox Format(number, "#,###.##")




...will yield 1344.77 and 1344.78

[Dr_Michael]

It worked!!!!! Can I rate you again? ;-)

Michael Vlastos
Automation Engineer
Company SouthGate Hellas SA
Development Department
Athens, Greece

[Lothar Haensler]

>...Can I rate you again? ;-)

go ahead. If it doesn't work, send money! ;-)