Formatera pris

Hur formaterar man ett tal från en databas så att det ser ut så här

1 100 kr
12 233 kr

Med formatNumer och formatCurrency får ma decimaler. Jag har för mig att det ska gå att ta bort dem på något sätt.

------------------
Adde

pris = 10100023
strPris = formatCurrency(pris)
strpris = Replace(strPris,","," ")
strpris = Replace(strPris,"."," ")
Response.Write strPris

Det ska väl funka :)

------------------
I like ¼ £ whith cheese

Om det ser ut så här då
<%=RS( "produkt_pris" )%>

Kan man inte göra en egen funktion "formateraPris" som man sedan kan använda.

<%=formateraPris(RS( "produkt_pris" ))%>

------------------
Adde

Jag försökte gjorde en funktion efter icaaq förslag. men den tar inte bort decimalerna

Alltså
3 490,00 kr
ska se ut på detta sätt
3 490 kr

Function Valuta(strPris)
  strPris = formatNumber(Trim(strPris))
  strpris = Replace(strPris,","," ")
  strpris = Replace(strPris,"."," ")
  Valuta = strpris
End Function

------------------
Adde

[Redigerat av Addeladde den 15 jul 2001]

Jag lyckades lösa det så här

Function Valuta(strPris)
  strPris = formatNumber(strPris,0)
  strpris = Replace(strPris,","," ")
  strpris = Replace(strPris,"."," ")
  Valuta = strpris
End Function

------------------
Adde

Function Valuta(strPris)
  strPris = formatCurrency(Trim(strPris))
  strpris = Replace(strPris,","," ")
  strpris = Replace(strPris,"."," ")
  Valuta = strpris
End Function

Response.Write Valuta(strPris)

eller så här :)

------------------
I like ¼ £ whith cheese

[Redigerat av icaaq den 15 jul 2001]

1. Skaffa VBScript-dokumentationen
2. Läs om formatcurrency
3. Skriv <%=formatCurrency(RS( "produkt_pris" ),0)%>

Men, med:

formatNumber(strPris,0)

får man aldrig några decimaler, dvs. man behöver aldrig ersätta . eller ,
[emission var före...]

/T

------------------
WRITE_PORT_ULONG(devExt->Mymessage,SMART_WRITE_ACK);

[Redigerat av Toonster den 15 jul 2001]