Avatar billede domingo Nybegynder
26. april 2005 - 12:37 Der er 8 kommentarer

oprund decimaltal

Er ved at lave en netbutik, og er kommet til den engelske version, hvor prisen skal opgives i euro. Jeg dividere dermed alle priserne med en variabel, hviket giver prisen i euro. Problemet er blot at der er forbandet mange decimaler på, og vil gerne have det oprundet til kun 3 decimaler.

et eksempel fra mit site:

<%=(valgtvare.Fields.Item("pris").Value)/(euro.Fields.Item("kurs").Value)%>

håber der er nogen der kan hjælpe
Avatar billede hiks Nybegynder
26. april 2005 - 12:39 #1
<%
dinPris = valgtvare.Fields.Item("pris").Value / euro.Fields.Item("kurs").Value
dinPris = FormatNumber(dinPris, 3)
response.write dinPris
%>

/hiks
Avatar billede hiks Nybegynder
26. april 2005 - 12:42 #2
og du kan lave en funktion til det også således at du kan styre intervaller evt.:

<%
Function Euro(beloeb)
        Select Case Right(beloeb, 3)
            Case 0 To 125
                beloeb = Left(beloeb, Len(beloeb) - 3) & "00"
            Case 126 To 375
                beloeb = Left(beloeb, Len(beloeb) - 3) & "25"
            Case 376 To 625
                beloeb = Left(beloeb, Len(beloeb) - 3) & "50"
            Case 626 To 875
                beloeb = Left(beloeb, Len(beloeb) - 3) & "75"
            Case 876 To 999
                beloeb = Left(beloeb, Len(beloeb) - 3) & "00"
            Case Else
                beloeb = 0
        End Select
End Function

dinPris = valgtvare.Fields.Item("pris").Value / euro.Fields.Item("kurs").Value
dinPris = Euro(FormatNumber(dinPris, 3))
response.write dinPris

%>

/hiks
Avatar billede domingo Nybegynder
26. april 2005 - 13:14 #3
jamen det ser godt ud, og virker skam også, så tak. Et spørsmål på faldrebet, når nu jeg skal sende mailen ud til kunden, sender jeg den som html, et sted hvor jeg skriver prisen ser sådan ud:

strOrdre = strOrdre & "<td><div align=""right"">"&CCcart_LineTotal/(kurs.Fields.Item("kurs").Value)&"</div></td>" &vbCtrl

Hvordan skal den i så fald se ud for at fungere? Har prøvet lidt af hvert, men det fungere ikke. har prøvet med :

strOrdre = strOrdre & "<td><div align=""right"">"& dinPris = CCcart_LineTotal/kurs.Fields.Item("kurs").Value & dinPris = FormatNumber(dinPris, 3) & response.write(dinPris) &"</div></td>" &vbCtrl

men der skriver den "fail" i mailen, og skriver kun hvad der står efter overstående linie...
Avatar billede hiks Nybegynder
26. april 2005 - 13:19 #4
strOrdre = strOrdre & "<td><div align=""right"">" & FormatNumber(CCcart_LineTotal/(kurs.Fields.Item("kurs").Value), 3) & "</div></td>" &vbCtrl

/hiks
Avatar billede ldanielsen Nybegynder
26. april 2005 - 13:34 #5
vbCtrl, hvad er det for noget?
Avatar billede hiks Nybegynder
26. april 2005 - 13:39 #6
ja det er et godt spørgsmål - det kan jo være en konstant der er et dobbelt linieskift (<br><br>). :o) bare et gæt...

/hiks
Avatar billede domingo Nybegynder
26. april 2005 - 15:58 #7
mange tak. Det virker jo fortriffentligt...(?)
Avatar billede hiks Nybegynder
26. april 2005 - 21:08 #8
np - skal vi lukke? :)

/hiks
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
Kurser inden for grundlæggende programmering

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