Solved

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

Posted on 2008-11-01
6
325 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

VMware Disaster Recovery and Data Protection

In this expert guide, you’ll learn about the components of a Modern Data Center. You will use cases for the value-added capabilities of Veeam®, including combining backup and replication for VMware disaster recovery and using replication for data center migration.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction This article shows how to use the open source plupload control to upload multiple images. The images are resized on the client side before uploading and the upload is done in chunks. Background I had to provide a way for user…
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…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

770 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