--- title: "Konvertera valuta och liknande....." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12072-konvertera-valuta-och-liknande" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "LearningASP" published: "2001-10-11T08:05:00.000Z" updated: "2001-10-13T11:46:00.000Z" replies: 27 views: 606 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12072-konvertera-valuta-och-liknande" --- # Konvertera valuta och liknande..... _Sida 1 av 2._ ## #1 — LearningASP, 2001-10-11T08:05Z Jag har sökt runt på forumet och hittat ganska lite om konvertering, av den anledningen startar jag ett nytt ämne för jag förstod inte riktigt hur man skulle göra. Frågor 1\.Konvertera SEK \<-\> EUR 2 Konvertera HK \<-\> KW 1 Hk = 0.74570 Kw Hur utformar man koderna för detta? JAg har följande i ett formulär\_ ett textfält för priset och ett för hk/kw antalet och en dropdown meny där man väljer vad SEK eller EUR för priset och en för hk/kw antalet där man väljer hk eller kw Tack på förhand MVH, LearningASP Permalänk: https://www.webforum.nu/p/12072 ## #2 — Vide, 2001-10-11T08:14Z Exempel: ``` function HKtoKW(HK) HKtoKW = HK * 0.74570 end function ``` Permalänk: https://www.webforum.nu/p/291950 ## #3 — LearningASP, 2001-10-11T08:48Z Tackar \* = gånger e då / = delat med?? Permalänk: https://www.webforum.nu/p/291951 ## #4 — Vide, 2001-10-11T08:49Z Exakt... ;) Permalänk: https://www.webforum.nu/p/291952 ## #5 — LearningASP, 2001-10-11T09:13Z Kan du förklara lite hur en function fungerar. Det bästa är väl att spara det pris och antal hk i databasen och sen förändrar man till de värdena man vill ha på presentationssidan? function HKtoKW(HK) HKtoKW = HK \* 0.74570 end function HKtoKW är det de som blir variabeln? vad gör (HK) dvs det inom parantestecknen? det är lite lättare att förstå och lära sig om man får en lite förklaring ;) tack på förhand Permalänk: https://www.webforum.nu/p/291953 ## #6 — Vide, 2001-10-11T11:17Z Function: Du anropar och lägger det i en varibel (eller använder direkt) såhär, säg att vi viill konvertera 105 HK till KW: ``` variabel = HKtoKW(105) ``` Permalänk: https://www.webforum.nu/p/291954 ## #7 — LearningASP, 2001-10-11T12:35Z Bara för att se om jag fattar ett ex ``` 'hämtar textfältets värde strHK = Request.Form("FormHK") function HKtoKW(strHK) HKtoKW = HK * 0.74570 end function 'där man vill skriva ut funktionen <%=HKtoKW%> ``` har jag fattat??? Kan inne hålla fel skrev det på en bensträkar paus i skolan ;) Permalänk: https://www.webforum.nu/p/291955 ## #8 — Vide, 2001-10-11T13:08Z Nej, du måste anropa funktionen med ett värde som argument: ``` function HKtoKW(strHK) HKtoKW = HK * 0.74570 end function 'hämtar textfältets värde strHK = Request.Form("FormHK") 'där man vill skriva ut funktionen <%=HKtoKW(strHK)%> ``` Sedan måste strHK vara numersikt, så variabeln borde heta intHK. :) Permalänk: https://www.webforum.nu/p/291956 ## #9 — LearningASP, 2001-10-11T16:41Z Konverteringen funkar utnärkt ;) men om jag vill ha en if-sats, jag har nämligen en dropdown där man väljer antingen hk eller kw och ett text fält där man skriver hk. textfältet heter FormEffekt dropdownen heter FormHK ``` If Request.Form("FormHK")="hk" Then intEffekt = Request.Form("FormEffekt") function HKtoKW(intEffekt) HKtoKW = intEffekt * 0.74570 end function Else intEffekt = Request.Form("FormEffekt") function KWtoHK(intEffekt) KWtoHK = intEffekt * 1.34102 end function End If ``` så jag har nu så får båda funktionerna värden ``` <%=HKtoKW(intEffekt)%>

<%=KWtoHK(intEffekt)%> ``` nu blir det massa decimaler hur blir jag av med dom? Finns det nåt sätt att avrunda? Tack på förhand Permalänk: https://www.webforum.nu/p/291957 ## #10 — LarsG, 2001-10-11T16:45Z Ja. ``` function HKtoKW(strHK) HKtoKW = round(HK * 0.74570,4) end function ``` t.ex. Permalänk: https://www.webforum.nu/p/291958 ## #11 — jorgen, 2001-10-11T16:51Z Hej! Som LarsG skrev kan du använda **ROUND** för att avrunda. Men du kan också välja antal decimaler med **formatnumber** tex: ``` intVariabel = formatnumber(intVariabel,3) ``` ger 3 decimaler. Byt siffran till höger mot antalet decimaler du vill ha. Kan vara bra om du vill låta alla decimaler vara kvar i funktionen och precentera olika antal på olika ställen. mvh Jörgen :) Permalänk: https://www.webforum.nu/p/291959 ## #12 — LearningASP, 2001-10-11T16:55Z Men varför vill min If-sats inte fungera då??? Permalänk: https://www.webforum.nu/p/291960 ## #13 — jorgen, 2001-10-11T17:02Z Hej! Prova: ``` If Cstr(Request.Form("FormHK")) = "hk" Then ``` mvh Jörgen :) Permalänk: https://www.webforum.nu/p/291961 ## #14 — LearningASP, 2001-10-11T20:10Z Finns det något sätt att få . tex om jag skriver 100.000 så i översättningen till EUR så blir det 10395,01 vill gärna ha 10.395,01 går detta att lös på något sätt???? Permalänk: https://www.webforum.nu/p/291962 ## #15 — jorgen, 2001-10-11T20:50Z Hej! Vad får du om du skriver: ``` <%=KWtoHK(formatCurrency("intEffekt"),-1)%> ``` Prova labba mellan -1, 0 och -2. mvh Jörgen :) Permalänk: https://www.webforum.nu/p/291963 ## #16 — LearningASP, 2001-10-11T21:00Z jag har denna kod hur skall jag "baka" in din kod snutt i detta?? ``` function SEKtoEUR(intPris) SEKtoEUR = round(intPris / currEUR,0) end function function EURtoSEK(intPris) EURtoSEK = round(intPris * currSEK,0) end function ``` så här ser present. koden ut ``` If Cstr(Request.Form("FormPris")) = "" Then Response.Write"" ElseIf Cstr(Request.Form("FormValuta")) = "SEK" Then Response.Write""&strPris&" SEK ("& SEKtoEUR(intPris) &" EUR)" ElseIf Cstr(Request.Form("FormValuta")) = "EUR" Then Response.Write""&EURtoSEK(intPris)&" SEK ("& strPris &" EUR)" End if%> ``` jag ville inte ha decimaler ändå ;) Permalänk: https://www.webforum.nu/p/291964 ## #17 — LearningASP, 2001-10-12T06:41Z Jag måste fråga om detta är rätt (sitter inte hemma så att jag kan testa :() ``` function SEKtoEUR(intPris) SEKtoEUR = formatCurrency(intPris / currEUR,0, -1) end function function EURtoSEK(intPris) EURtoSEK = formatCurrency(intPris * currSEK,0, -1) end function ``` jag läste lite om formatCurrency och det blir comma men går det att få punkt? men går det inte att lösa så e det inte mycket att göra ex: källa: ``` Code: <% =FormatCurrency(31567, 2) %> Output: $31,567.00 vill ha: 31.567 ``` nu var jag väldigt jobbig ;) Permalänk: https://www.webforum.nu/p/291965 ## #18 — Vide, 2001-10-12T06:43Z Borde fungera om du ändrar till svensk teckenuppsättning: ``` Session.LCID = 1053 ``` Permalänk: https://www.webforum.nu/p/291966 ## #19 — LearningASP, 2001-10-12T06:46Z ok, danke skall prova så fort jag kommer hem ;) Permalänk: https://www.webforum.nu/p/291967 ## #20 — LearningASP, 2001-10-12T11:54Z går det att bli av med sek som blir med formatCurrency? Permalänk: https://www.webforum.nu/p/291968 --- Tråden på webben: https://www.webforum.nu/amne/asp/12072-konvertera-valuta-och-liknande Nästa sida: https://www.webforum.nu/amne/asp/12072-konvertera-valuta-och-liknande/page2.md