FormatCurrency question UK £

[Richard Davies]

Hi all

I've just finished a site for a client and am just sorting out some of the
finer elements of the site.

The client wants prices formatted like

£8

£11
rather than £8.00 or £11.00. If the price is £8.50 then it has to show
£8.50.

Could anyone advise on the syntax for formatting the price in this way? I
haven't got a reference book with this in, and haven't had much luck
searching the archive.

Regards and thanks

Richard

[Ray at]

Here is one way:

Function
FormatCurrencyInThisAnnoyingWayThatThisDamnCustome rSpecificallyRequested(the
Number)
Dim sResult
Dim iPlaces
iPlaces = 0
If CLng(theNumber) <> CDbl(theNumber) Then iPlaces = 2
sResult = FormatNumber(theNumber, iPlaces)
sResult = "£" & sResult
FormatCurrencyInThisAnnoyingWayThatThisDamnCustome rSpecificallyRequested
= sResult
End Function

Ray at work

"Richard Davies" <ri*****@mediahq.co.uk> wrote in message
news:4C*********************@stones.force9.net...

Hi all

I've just finished a site for a client and am just sorting out some of the
finer elements of the site.

The client wants prices formatted like

£8

£11
rather than £8.00 or £11.00. If the price is £8.50 then it has to show
£8.50.

Could anyone advise on the syntax for formatting the price in this way? I
haven't got a reference book with this in, and haven't had much luck
searching the archive.

Regards and thanks

Richard