Funtion til udregning af "psykologisk" pris

Jeg er ikke sikker på jeg forstår dit spørgsmål, hvis prisen der bliver udregnet giver 333,75 hvorfor skal den så vises som 329,00 - det giver da ingen mening ?

/Goose

PyckoPris = Round (1.0 * Pris / 100, 0) * 100 - 1

PsykoPris = Round(1.0 * Pris / 10, 0) * 10 - 1

346,73 -> 34,673 -> 35,0 -> 350,0 -> 349,0

333,75 -> 33,373 -> 33,0 -> 330,0 -> 329,0

Men du skal nok have en special regel til når du er nede omkring de 10-15 kr (eller dollars eller hvad du bruger).

Had du fået kigget på det?

Hej Nielle

Tak for dit svar! Nu har jeg endelig fået kigget på det :-)

Jeg får følgende fejl:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Round'


Jeg har skrevet det på denne måde:

<%
PsykPris = Round(1.0 * 377,22 / 10, 0) * 10 - 1
response.wite PsykPris
%>

> PsykPris = Round(1.0 * 377,22 / 10, 0) * 10 - 1

Det dur jo heller ikke. ASP ser nemlig ikke kommaet i 377,22 på samme måde som vi danskere. Decimaltal i ASP skal være opgivet med engelsk notation: 377.22.

I dette tilfælde fortolker ASP det simpelthen som om at du har tre argumenter inde i din Round, og det kan den ikke lide - "Wrong number of arguments".

Løsningen er at konvertere danske decimal-kommaer til engelske decimal-punktummer først. Og så den anden vej bagefter:

GlPrisDk = "377,22"
GlPrisUs = Replace(GlPrisDk, ",", ".")
NyPsykoPrisUs = Round(1.0 * GlPrisUs / 10, 0) * 10 - 1
NyPsykoPrisDk = Replace(NyPsykoPrisUs, ".", ",")

Det giver mig dette tal : 37719

Hvad?! Prøv lige at poste din kode. Der er da et eller andet helt mysisk der.

<%
GlPrisDk = "377,22"
GlPrisUs = Replace(GlPrisDk, ",", ".")
NyPsykoPrisUs = Round(1.0 * GlPrisUs / 10, 0) * 10 - 1
NyPsykoPrisDk = Replace(NyPsykoPrisUs, ".", ",")
response.write NyPsykoPrisDk
%>

Prøv lige at udskrive mellemresultatet:

1.0 * GlPrisUs / 10

Hej, igen

Det lader til at dit site er sat op til dansk, f.eks. med en linje i stil med:

<%
Session.LCID = 1030
%>

- et eller andet sted i din kode (eller i global.asa).

Det er skam fint nok, men det betyder ikke at ASP ikke internt regner med decimalt-punktum, og det er det som giver problemerne. Det grundlæggende regnestykke er dog i orden, og ser sådan her ud:

<%
GlPris = "377,22"
NyPsykoPris = Round(1.0 * GlPris / 10, 0) * 10 - 1
Response.Write FormatCurrency(NyPsykoPris, 2)
Response.Write "<br>"
Response.Write FormatNumber(NyPsykoPris, 2)
%>

Du bestemmer selv om det så er "FormatCurrency" eller "FormatNumber" du efterfølgende vil bruge.

Y E S !!! Det virker.. Det var bare fedt! 1000 tak. Du snakkede noget om at man burde lave en funktion når prisen var nede omkring de 15-25 kr. Hvad skal der til for at man kunne lave en funktion som runder op til nærmeste kr. når prisen er under 30 kr??? - Husk lige at smide et svar :-)

Noget i denne her stil:

GlPris = "377,22"

if GlPris<30 then
    NyPris = Round(1.0 * GlPris, 0)
else
    NyPris = Round(1.0 * GlPris / 10, 0) * 10 - 1
end if

Response.Write FormatCurrency(NyPris, 2)
Response.Write "<br>"
Response.Write FormatNumber(NyPris, 2)

...og et svar :^)

Tusind tak Nielle :-) det var fedt *SS