Avatar billede ingeman Seniormester
16. maj 2003 - 11:53 Der er 13 kommentarer og
1 løsning

Function som ligger 3 % til prisen

Function PrisDC(DC,DCPris)
    PrisDC=DCPris
    If Len(DC)>0 Then
        PrisDC=DCPris * ((DC+100) / 100)
    end if
end function

Response.write(PrisDC("03 %","4,50"))

Resultat skal være 4,63  (afrundet til 2 decimaler)
Avatar billede eagleeye Praktikant
16. maj 2003 - 11:57 #1
Du kan gange med 1.03 så ligger du 3% til:

Hvis du runde det så bruge  Round(tal,2)


Response.write round(PrisDC("03 %","4,50"))
Avatar billede ingeman Seniormester
16. maj 2003 - 12:02 #2
Min browser melder fejl ?
Avatar billede ingeman Seniormester
16. maj 2003 - 12:04 #3
Prøv at køre koden - browseren melder fejl ?
Avatar billede eagleeye Praktikant
16. maj 2003 - 12:04 #4
med round eller i functionen?
Avatar billede ingeman Seniormester
16. maj 2003 - 12:05 #5
Functionen ?
Avatar billede eagleeye Praktikant
16. maj 2003 - 12:07 #6
Ja den melder fejl, i DC i functionen. Functionen er den som hedder prisDC

Prøv at slå denne fra i IE, så skulle du gerne få en bedre fejl kode/beskrivelse:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"
Avatar billede eagleeye Praktikant
16. maj 2003 - 12:10 #7
Prøv at lave hele koden om til dette og så i stedet for at overføre "03 %" så overfør 3 for 3 procent.:


<%
Function PrisDC(DC,DCPris)
    PrisDC=DCPris
    PrisDC = DCPris + (DCPris * DC/100)
end function


Response.write round((PrisDC(3,"4,50")),2)
Avatar billede ingeman Seniormester
16. maj 2003 - 12:15 #8
Fejl stadig - type miscmatch
Avatar billede eagleeye Praktikant
16. maj 2003 - 12:17 #9
Har du prøvet helt som jeg har vist ? 
Men 3 i stedet for "03 %"
Avatar billede ingeman Seniormester
16. maj 2003 - 12:20 #10
Ja det giver det samme resultat.
Den bliver kaldt som følger:

tFile.WriteLine "FIELD: PR1"&Cstr(J)&" " & Trim(PrisDC(3,Request("Pris"&Cstr(J))))
Avatar billede eagleeye Praktikant
16. maj 2003 - 12:23 #11
Ok så det kan være dne ikke altid får overført et tal fra Request("pris"&Cstr(J))

Så prøv at lave functionen sådan her:

Function PrisDC(DC,DCPris)
    if DCPris <> "" then PrisDC = DCPris + (DCPris * DC/100)
end function
Avatar billede ingeman Seniormester
16. maj 2003 - 12:51 #12
Ja se det virker - nu mangler der jo bare at udregning ikke
bliver rigtigt med komma - jeg må gå udfra at komma skal erstattes med
punktum.
Jeg har forsøgt med replace(DCPris,",",".") men det vil den ikke aksepterer.
Avatar billede eagleeye Praktikant
16. maj 2003 - 13:15 #13
Prøv at tilføje

<% Session.LCID = 1030 %>

i toppen af din kode så skulle den tolke , rigtig (DK format)
Avatar billede ingeman Seniormester
16. maj 2003 - 21:29 #14
Så virker den - tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester