converting a String to a value that could be manipulated 1

[tedb13]

I need to find a way to take, $4,500.00(String) and convert it to 4500. MyValue=MyTerminal.GetString 14, 18.

Is there an easy way to do this? I have already created the hard, long way. My code can sometimes be long-winded like my brother-in-law. I have tried to wrap my head around it, but my code consists of determining the size of the amount, then taking it apart piece by piece, then putting it back together.

 

[SkipVought]

hi,

I don't know if Extra VB has the CCur() function to convert to currency. Even CDbl() would work.

    Dim s As String, c As Currency
    s = "$45,000.24"
    c = CCur(s)
[code]


Skip,
[sub]
[glasses]Just traded in my old subtlety...
[b]for a NUANCE![/b][tongue][/sub]

 

[tedb13]

Hi Skip,

I believe I had tried something similar in the past. I have not tried the currency call though, and I will try on monday or tuesday and get back to you. I gave up when it kept coming back with 0.

 

[tedb13]

Hi Skip,

I tried it, this is what I ran.

Sub main

dim c As Currency, S As String, d As Double

s="$45,000.00"

c=CCur(s)

d=CDbl(c)

msgbox c & " " & d

End Sub

bot c and d returned 45
so I tried s="$45,454.00"
same result.

ccur does not like the ","(comma)or the"."(period)

removing the comma gave, 45454

any other thoughts you might have?

 

[SkipVought]

That must be a limitation of Extra BASIC.

I have no such issues in Microsoft applications VBA.

So try this...

Sub main

dim c As Currency, S As String, d As Double

s="$45,000.00"

s = left(s, instr(s,",")-1) & right(s, len(s)-instr(s,","))

c=CCur(s)

d=CDbl(c)

msgbox c & " " & d

End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[tedb13]

Hey Skip,

Your suggestion did the trick. Your code is a lot clearer, in just one line the I could do in 5 or 6. I think I am am finally learning here. The help files are great, but its nice to know there's a place I could go that makes things seem that much clearer. Eurika!

Thanks again, Skip:0)

Ted,