Formatting Numbers with Decimal Places

[James]

Is it possible to format numbers that are displayed in a text box in such a
way that fractional values are displayed to 2 decimal places and whole
numbers are not displayed with any decimal point?

I have tried using the code:
Format (value here, "0.##")

This works okay and works nicely for the fractional values, but when whole
numbers enter the text box the decimal point is displayed without any
trailing values. For example, "4880." Instead, I would like "4880" to be
displayed.

Thanks in advance for any suggestions,

James

 

[Tom Ogilvy]

s = Format (value here, "0.##")
if right(s,1) = "." then
s = Replace(s,".","")
end if

 

[Dave Peterson]

Another way:

Dim myVal as double
Dim myFormat as string

myVal = 12.12

if int(myval) = myval then
myformat = "0"
else
myformat = "0.00"
end if

msgbox format(myval,myformat)

There's a difference between Tom's suggestion and this one.

What do you want to see with a value like 12.0003?

 

[Tom Ogilvy]

What do you want to see with a value like 12.0000000000001?

 

[Dave Peterson]

Me?

I don't care.

But sometimes people want to see different things if the value isn't really a
counting number.

Or am I missing the real point?

 

[Tom Ogilvy]

Like your post,
Just added info for the OP.

 

[Dave Peterson]

Ahhhh.

Like your post,
Just added info for the OP.