EWERTON
|
DIVINÓPOLIS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/08/2006 10:50 hs
Tenho uma variavél assim 1.521,50 e preciso que ele fica assim 152150 como faço isso obrigado |
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/08/2006 16:09 hs
Dim sVAR AS String Dim I As Integer VARIAVEL = 1.521,50 sVAR = "" For I = 1 To Len(VARIAVEL) If Mid(VARIAVEL, I, 1) <> "," and Mid(VARIAVEL, I, 1) <> "." Then sVAR = sVAR & Mid(VARIAVEL, I , 1) End If Next Voce pode testar também com outros caracteres, e usar o Chr(). vlu// |
|
|
|
|
|
Postada em 13/08/2006 02:21 hs
Dim sTxt as String sTxt = "1.521,50" sTxt = Replace(Replace(sTxt,".",""),",","") t+ :) |
|
|
|
|
