sostituire la terzultima lettera

[dany81b]

Salve ragazzi.. ho un problema...

ho un campo per l'immissione di un campo prezzo (in euro)

100,00

Ma alcuni clienti purtroppo mettono

100.00

perchè usano il tastierino numerico... come posso fare per sostituire l'ultimo . in virgiola?? se lascio il punto mi succede un casino nel db

[Sypher]

Replace

[dany81b]

si ok lo sapevo ma come fare il replace della terzultima lettera??

[Sypher]

Originariamente inviato da dany81b
si ok lo sapevo ma come fare il replace della terzultima lettera??

fregatene...della posizione...sostituisci in qualunque posizione è...

Replace(stringa, ".",",")

[dany81b]

ed è qui che sbagli....

1.510.00

mi darebbe
1,510,00

e non voglio che sia cosi...devo modificare l'ultimo punto non il primo

[Sypher]

Originariamente inviato da dany81b
ed è qui che sbagli....

1.510.00

mi darebbe
1,510,00

e non voglio che sia cosi...devo modificare l'ultimo punto non il primo

e c'avrei messo la mano sul fuoco

se controlli la presenza della virgola puoi fare così

Lstringa = Left(stringa, InStrRev(stringa, ",") - 1)
Rstringa = Right(stringa, 2)
stringa = Lstringa & "." & Rstringa

o anche...con il controllo

arrstringa = Split(stringa, ",")
If UBound(arrstringa) > 0 Then
stringa = arrstringa(0) & "." & arrstringa(1)
End If

[dany81b]

ecco la funzione corretta...se serve a qualcuno

function replace_prezzo(variabile)
if variabile<>"" then
arrstringa = Split(variabile, ".")
If UBound(arrstringa) > 1 Then
replace_prezzo = arrstringa(0) & "." & arrstringa(1)&","&arrstringa(2)
else
replace_prezzo=FormatNumber(variabile, 1)
end if
end if
end function

funziona alla grande... ci mettiamo in società? ehe

[maxmalici]

guarda che anche se Sypher è purtroppo Romanista.....

devo dire che utilizza una soluzione piu' pulita.....

perche' quella indicata da te funziona solo per numeri

nel formato x.xxx.xx

ma se l'utente inserisce xxxx.xx oppure x.xx x.xxx.xxx.xx
non funziona

è molto piu' comodo ricercare con InStrRev(stringa, ",")

credimi....

ciao max

[dany81b]

Ho provato e funziona anche con x.xx e xxxx.xx perchè in quel caso esegue il
FormatNumber(variabile, 1)

e ci pensa lui....

se uno inserisce
x.xx x.xxx.xxx.xx

è idiota lui e non c'è funzione che corregga la sua idiozia! hehe

[Sypher]

Originariamente inviato da dany81b
ecco la funzione corretta...se serve a qualcuno

function replace_prezzo(variabile)
if variabile<>"" then
arrstringa = Split(variabile, ".")
If UBound(arrstringa) > 1 Then
replace_prezzo = arrstringa(0) & "." & arrstringa(1)&","&arrstringa(2)
else
replace_prezzo=FormatNumber(variabile, 1)
end if
end if
end function

funziona alla grande... ci mettiamo in società? ehe

no no quale società...è mejo la mia