PDA

View Full Version : Conversione euro in VBSCRIPT

damar3
01-02-2002, 10:12
Sto provando a fare la conversione in lire tramte uno script VBSCRIPT. Qualcuno mi potrebbe dire dove sbaglio?


<html>
<head>
<title>SecondaProvaVBScript</title></head>
<body>
€
<form name="form1">
<input type="Text" name="eur" size="40"><BR><BR>
<input type="Text" name="lir" size="40"><BR><BR>
<input type="Submit" name="submit" value="Clikka qui per la conversione"
</form>

<script language="VBScript">
<!--
function submit_onclick
dim form
set form=document.form1
euro = form.eur.value
l=conv(euro)
lir.value=l
end function
-->
</script>

<script language="VBScript">
<!--
function conv(euro)
l=euro*1936,27
end function
-->

</script>
</body>
</html>
cionci
01-02-2002, 10:51
Io ho fatto così...

Function convEuro(prezzo)
pr = Int(prezzo/1936.27)

fr = CInt((prezzo/1936.27 - pr)*100)

convEuro=""
if(fr >= 10) Then
convEuro = CStr(pr) & "." & CStr(fr)
else
convEuro = CStr(pr) & ".0" & CStr(fr)
end if
End Function

Così ti viene con solo due cifre decimali...ricordati che però è un testo...quindi se lo vuoi sommare lo devi riconvertire in double...
damar3
01-02-2002, 10:57
Credo che ho sbagliato quando faccio

l=conv(euro)
lir.value=l

per prendere il valore che mi restituisce la funzione e metterlo nel TextBox! Ho sostituito il tuo codice al mio nella funzione di conversione ma nemmeno funziona
cionci
01-02-2002, 11:02
Scusa, pensavo fosse un problema sulla conversione, l'HTML non l'ho neppure guardato ;)
damar3
01-02-2002, 11:05
Bè non direi nell'HTML bensì nel primo script quello che chiama la seconda funzione. Ora che lo hai guardato cosa ne pensi?
cionci
01-02-2002, 11:18
Non avevo notato che era un convertitore da euro a lire...la mia funzione fa la cosa inversa ;)

<html>
<head>
<title>SecondaProvaVBScript</title></head>
<body>
€
<form action="#" name="form1" id="form1">
<input type="Text" name="eur" size="40"><BR><BR>
<input type="Text" name="lir" size="40"><BR><BR>
<input type="Button" Name="Submit" value="Clikka qui per la conversione"> <!-- qui ho messo Button altrimenti ti inviava la form e si resettevano i campi -->
</form>

<script language="VBScript">
<!--
Function submit_onclick
dim form
set form=document.form1
euro = CDbl(form.eur.value) 'qui ho convertito in double per
'trasformare da testo a numero
l=conv(euro)
form.lir.value=l 'qui mancava il "form" davanti
end Function
-->
</script>

<script language="VBScript">
<!--
Function conv(euro)
conv = euro * 1936.27
conv = Int(conv) 'qui ho convertito a intero
End Function
-->

</script>
</body>
</html>
damar3
01-02-2002, 11:31
Grazie mille per l'aiuto!!!