Konvertera valuta och liknande.....

Exempel:

function HKtoKW(HK)
HKtoKW = HK * 0.74570
end function

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

Tackar

* = gånger

e då / = delat med??

------------------
----------------------
Varje dag är en ny lektion ;)

Exakt... ;)

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

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

------------------
----------------------
Varje dag är en ny lektion ;)

Function: http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp_14.asp#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)

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

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 ;)

------------------
----------------------
Varje dag är en ny lektion ;)

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. :)

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

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)%><br><br><%=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

------------------
----------------------
Varje dag är en ny lektion ;)

Ja.

function HKtoKW(strHK)
HKtoKW = round(HK * 0.74570,4)
end function

t.ex.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctround.asp

------------------
essentitia preter non sans multiplicandum

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 :)

------------------
Varför bråka när man kan kramas?

[Redigerat av jorgen den 11 okt 2001]

Men varför vill min If-sats inte fungera då???

------------------
----------------------
Varje dag är en ny lektion ;)

Hej!

Prova:

If Cstr(Request.Form("FormHK")) = "hk" Then

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

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????

------------------
----------
Varje dag är en ny lektion ;)

Hej!

Vad får du om du skriver:

<%=KWtoHK(formatCurrency("intEffekt"),-1)%>

Prova labba mellan -1, 0 och -2.

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

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å ;)

------------------
----------
Varje dag är en ny lektion ;)

[Redigerat av LearningASP den 11 okt 2001]

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: http://www.devguru.com/Technologies/vbscript/quickref/formatcurrency.html

Code:
<% =FormatCurrency(31567, 2) %> 
 
Output:
$31,567.00 

vill ha:

31.567

nu var jag väldigt jobbig ;)

------------------
Varje dag är en ny lektion ;)

Borde fungera om du ändrar till svensk teckenuppsättning:

Session.LCID = 1053

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

ok, danke skall prova så fort jag kommer hem ;)

------------------
Varje dag är en ny lektion ;)

går det att bli av med sek som blir med formatCurrency?

------------------
Varje dag är en ny lektion ;)