Breadcrumbs

[Dummy1912]

hello,

does anyone know how i can convert a double without a negative ()

it seems i get (£50.00) - this is a negative value

but i like to have it as -£50.00

i use:

Code: Select all

Dim l As Double
l = cDAL.VarToDbl(Label6.Text + Amount1) 'amount1 is a double
lblrunning.Text =  Format(l, "c")

cDAL:

Code: Select all

Public Shared Function VarToDbl(ByVal o As Object) As Decimal

        Try
            Return Decimal.Parse(o.ToString)
        Catch
            Return 0
        End Try

    End Function

thanks

[smashapps]

I don't know if I completely understood what you meant or not.

Code: Select all

Dim doub As Double = 10.0R

        Label1.Text = doub + TextBox1.Text

If the number is negative it will still display as -something instead of something

[Dummy1912]

hello #smashapps

do you know a other way as well?
because it seems i can't use a R after my double values
because

amount += amount & "R" don't work

if i remove this part then it works fine but then we don't get the £ before the value

Code: Select all

lblrunning.Text =  Format(l, "c")

this part shows the value with £
but then if value is - then it shows like
(£50.00) instead of -£50.00

Code: Select all

lblrunning.Text =  Format(l, "c")

[XTechVB]

What's "Label6.Text"? what value does it hold?

[Dummy1912]

hello #XTechVB

that contains just a amount like for example 50.00