Format numbers

[Tomexx]

Hi,
I wanted to use Format function to format numbers (Single) as follows:

If the number is without decimal - show it
If the number has a decimal part - show it with 2 decimal places

So for 4, I want to show 4
For 4.2512 I want to show 4.25

I tried

Format(sngNumber, "#.##")

Problem is that when the number is whole (4) it formats it as "4."

[sciguyryan]

Try the FormatNumber function it may help you

Something like:

Msgbox FormatNumber(4.2512, 2)

Cheers,

RyanJ

[Tomexx]

Well,
That will format 4 to 4.00
I want 4 to stay 4 and 4.2512 to become 4.25

[sciguyryan]

Well,
That will format 4 to 4.00
I want 4 to stay 4 and 4.2512 to become 4.25

Ah, I see...

I will see if I cna find something


Edit: Try this:

Private Function MyFormat(dblNumber As Double) As Double
    If FormatNumber(dblNumber, 2) = dblNumber Then
        MyFormat = FormatNumber(dblNumber, 0)
    Else
        MyFormat = FormatNumber(dblNumber, 2)
    End If
End Function

Cheers,

RyanJ

[Tomexx]

Thanks for your answer, I was hoping that there would be a way to do this without the IF - EndIF as I have to format large amount of data in a flex grid. I just thought I could do this with a single intristic VB function like Format() etc.

[sciguyryan]

Thanks for your answer, I was hoping that there would be a way to do this without the IF - EndIF as I have to format large amount of data in a flex grid. I just thought I could do this with a single intristic VB function like Format() etc.

I am not really shure.
I have done a quick check of Format and a few others but no lck as yet I am afraid...

Cheers,

RyanJ

[penagate]

Well,
That will format 4 to 4.00
I want 4 to stay 4 and 4.2512 to become 4.25

Just use this

FormatNumber([number], 2)

[sciguyryan]

Just use this

FormatNumber([number], 2)

I already suggested that but it still shows 4.00 instead of 4.

That code I wrote works fine though

Cheers,

RyanJ

[penagate]

Sorry, I thought Tomexx wanted 4.00 instead of 4. Misunderstood.

In that case,

CStr(Round([number], 2))

The CStr is optional.

[sciguyryan]

Cool, I never knew the Round function had a second parameter, thanks for the tip

Cheers,

RyanJ

[sciguyryan]

No worries

I would give you a rep point for that info but I've given one to you less than 10 ago so I will when I have given 10

also, (off-topic) did you know your heros thread has degraded into a deeply philosophical discussion of puking?

Also offtopic yes I did... What a waste LOL.


Cheers,

RyanJ