Format numbers

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

VB Code:

Format(sngNumber, "#.##")

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

Try the FormatNumber function it may help you :)

Something like:

VB Code:

Msgbox FormatNumber(4.2512, 2)

Cheers,

RyanJ

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

Quote:

---

Originally Posted by Tomexx

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:

VB Code:

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

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.

Quote:

---

Originally Posted by 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.

---

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

Quote:

---

Originally Posted by Tomexx

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

---

Just use this

VB Code:

FormatNumber([number], 2)

Quote:

---

Originally Posted by penagate

Just use this

VB Code:

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

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

In that case,

VB Code:

CStr(Round([number], 2))

The CStr is optional.

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

Cheers,

RyanJ

Quote:

---

Originally Posted by penagate

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 :)

Quote:

---

Originally Posted by penagate

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

---

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


Cheers,

RyanJ