Decimal.Parse and Decimal.ToStrin g Methods

[Mythran]

Dim value As Decimal = 1234.56
Dim format As String = _
"Positive $#,##0.00;Negat ive $#,##0.00;"

Dim s As String = value.ToString( format)
Dim d As Decimal = Decimal.Parse(s )

The last line above throws an exception because it can't parse "Positive
$1,234.56". It can convert to that format, but how can one go about parsing
it using the same format that was used to format it as a string? Is there
an easy way w/o too much work?

Thanks,
Mythran

[Kerry Moorman]

Mythran,

There is probably a more elegant way, but this might work for you:

Dim value As Decimal = 1234.56
Dim s As String = value.ToString( "Negative $#,##0.00;Negat ive
$#,##0.00;")
Dim s2 As String
Dim d As Decimal

s2 = s.Replace("Posi tive ", "")
s2 = s2.Replace("Neg ative ", "-")
d = Decimal.Parse(s 2, System.Globaliz ation.NumberSty les.Currency)

MsgBox(s)
MsgBox(d)

Kerry Moorman
"Mythran" wrote:

Dim value As Decimal = 1234.56
Dim format As String = _
"Positive $#,##0.00;Negat ive $#,##0.00;"

Dim s As String = value.ToString( format)
Dim d As Decimal = Decimal.Parse(s )

The last line above throws an exception because it can't parse "Positive
$1,234.56". It can convert to that format, but how can one go about parsing
it using the same format that was used to format it as a string? Is there
an easy way w/o too much work?

Thanks,
Mythran