08-10-2007, 10:34
|
#3
|
|
Senior Member
Iscritto dal: Feb 2003
Messaggi: 2817
|
Ok
Quote:
Originariamente inviato da okay
quello preso dalla text sono stringhe che poi con val tramuta in numeri ma se c'è la virgola è un casino.
La textbox lavora con il punto nell'estrazione della val.
Se un utente inserisce la virgola e fai "val(textbox)" non hai il risultato giusto allora invece di "Val" devi usare "CSng" od anche "CDbl".
io per esempio uso il punto perchè mi piace di +.
io faccio così:
Faccio inserire solo numeri e il punto oppure tramuto la virgola in punto a runtime e poi eseguo una val sulla text.
Un'altra soluzione che adotto e controllare ciò che ha digitato:
a=11,23
bx$="":for i=1 to len(textbox)
if mid(textbox,i,1)="," then
bx$=bx$+"."
else
bx$=mid(textbox,i,1)
endif
next i
a=val(b$) 'a=11.23
ciao
Edit: per il NET fai le dovute modifiche
|
A me che piace la virgola farò l'opposto
a=11,23
bx$="":for i=1 to len(textbox)
if mid(textbox,i,1)= "." then
bx$=bx$+ ","
else
bx$=mid(textbox,i,1)
endif
next i
a=val(b$) 'a=11.23
Giusto?????
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
|
|
|