Solved

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

Posted on 2008-11-01
6
326 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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:Tony McCreath
Tony McCreath 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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Just a quick little trick I learned recently.  Now that I'm using jQuery with abandon in my asp.net applications, I have grown tired of the following syntax:      (CODE) I suppose it just offends my sense of decency to put inline VBScript on a…
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…
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …
Are you ready to implement Active Directory best practices without reading 300+ pages? You're in luck. In this webinar hosted by Skyport Systems, you gain insight into Microsoft's latest comprehensive guide, with tips on the best and easiest way…

756 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