come posso risolvere il seguente problema :
Devo inviare un importo in ?uro senza virgole ad un pos virtuale
Es: dato 100,10 da inviare in forma 10010 Letto dal pos 100.10
in pratica il pos legge il n° inviato considerando le ultime due cifre come decimali.
Purtroppo ogni tanto l'importo inserito è un intero tipo (? 20) senza virgola e decimali ed il pos lo considera come ? 0.20
Come si può risolvere ???? ( ma si può risolvere ??? )

Numero="100,10"
temp=split(numero,",")
intero=temp(0)

coda=right(numero,3)
sel1=mid(coda,1,1)
sel2=mid(coda,2,1)

if sel1="," then
decimale = right(coda,2)
elseif sel2="," then
decimale = mid(coda,3,1) & "0"
else
decimale = "00"
end if

NumeroCorretto= intero & decimale


la funzione split divide la stringa Numero(es. 100,10) in due pezzi spezzandola nei punti dove c'e il carattere ","
il primo pezzo, temp(0) ,è la parte intera(100).
Metto nella var Coda gli ultimi tre caratteri del numero e controllo dove è la virgola.
Se è al terz'ultimo posto uso come decimale gli ultimi due caratteri,
se è al pen'ultimo posto uso come decimale l' ultimo carattere e aggiungo uno zero.
Se non c'e la virgola pogo decimale a "00".