Solved

Format a string which is in the form of $10,000 to double

Posted on 2008-11-01
6
318 Views
Last Modified: 2010-04-14
Hi!

I have the following code, I'm passing a strings of the format $12,000. I need to convert them to double,
using CDBL  function is not giving me the desired result.
I need to convert sLineAmt and sCrLineamt to double and then divide sLIneAmt/sCrLineAmt and multiply the result by 100 and then convert the entire result back to string and append a "%" .

Please help em to get the result.
It's extremely urgent. I have  adeadline to meet in another 2 hrs.
Thanks a million in advance.

Private Function Get_Cash_Line_Option_Set_Desc_Percent(ByVal sLineOptSet As String, ByVal sLineAmt As String, ByVal sCrLineAmt As String) As String

        Dim osqlAdapter As New SqlDataAdapter
        Dim oDs As New DataSet
        Dim sDesc As String = String.Empty
        Dim dCreditLineAmt As Double = 0
        Dim dCashLineAmt As Double = 0
        'Dim sOptSet As String() = Nothing
        'Dim strOptSet As String = String.Empty


        Try

            oDs = XML.getxml()
            If Not oDs Is Nothing Then
                If oDs.Tables(0).Rows.Count > 0 Then
                    For Each odr As DataRow In oDs.Tables(0).Rows
                        If Not sCashLineOptSet Is Nothing Then
                            If sCashLineOptSet.Length > 1 Then
                                If (odr("OPTION_SET") = sOptSet) Then
                                    'sDesc = odr("option_set_desc")
                                    If (odr("OPTION_SET") <> "n/a" And odr("OPTION_SET").Contains("/")) Then
                                                               
                                                                               sDesc = (CDbl(sLineAmt) / CDbl(sCrLineAmt)).ToString
                                       
                                        sDesc = sDesc & "%"
                                    Else
                                        sDesc = odr("option_set_desc")

                                    End If

                                End If
                            End If
                        End If


                    Next
                End If

            Else
                sDesc = "n/a"
            End If

                           Return sDesc
        Catch ex As Exception
            Throw ex
        Finally
        End Try
    End Function
0
Comment
Question by:amukta
  • 2
6 Comments
 
LVL 8

Accepted Solution

by:
rpkhare earned 250 total points
ID: 22857997
Try:

doubleVal = System.Convert.ToDouble(stringVal)
0
 
LVL 8

Expert Comment

by:rpkhare
ID: 22858030
I also think that you need to first strip off the $ sign before converting to Double.
0
 
LVL 13

Expert Comment

by:TechTiger007
ID: 22858128
You should be doing something like

dim sValue as string = "$ 48,000"
dim sModifiedValue as string= sValue.Replace("$","").Replace(",","").Trim()
dim dblValue as double = Convert.ToDouble(sModifiedValue)


0
 
LVL 23

Assisted Solution

by:Tiggerito
Tiggerito earned 250 total points
ID: 22920334
This should work.

I've converted it from C# so I might have not got the syntax perfect.
dim newPrice as double = 0.0

dim valid as bool =  Double.TryParse("$12,000",System.Globalization.NumberStyles.Currency,null,out newPrice)

Open in new window

0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Suggested Solutions

A quick way to get a menu to work on our website, is using the Menu control and assign it to a web.sitemap using SiteMapDataSource. Example of web.sitemap file: (CODE) Sample code to add to the page menu: (CODE) Running the application, we wi…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now