[Resolvido] Calcular entre labels

[vascoc]

Boas, eu tenho um form que calcula os preços, a questão é, o preço da noite no quarto multiplica pelo numero de noites, mas gostava que fica-se com ",00" á frente também quando o valor não tem casas décimais... por exemplo nesta caso ficaria "1600,00"

http://img708.imageshack.us/img708/1056/ddddhp.png

' TIMER PREÇOS
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim extra1 As Integer
Dim pensao As Integer

'Dias
If dias_Reserva.Text = "" Then
Else
Data_SaídaDateTimePicker.Visible = True
Data_SaídaDateTimePicker.Value = Data_EntradaDateTimePicker.Value.AddDays(dias_Reserva.Text)
Precodormida.Text = dias_Reserva.Text * Preco_Tipo_QuartoLabel1.Text
End If

'Pensao
If Tipo_PensaoComboBox.Text = "" Then
Else
pensao = Double.Parse(lblprecopensao.Text)
lbltotal.Text = Precodormida.Text + pensao
End If
Data_SaídaDateTimePicker.Update()

'Extras
If Cod_ExtrasComboBox.Text = "" Then 'Extra1
Else
extra1 = Integer.Parse(lblextra1.Text)
pensao = Double.Parse(lblprecopensao.Text)
lbltotal.Text = Precodormida.Text + extra1 + pensao
Preco_ExtrasLabel1.Text = extra1
lbltotal.Text = Precodormida.Text
End If

End Sub

Edited June 19, 2012 at 09:36 PM by Caça
GeSHi

[jlpcalado]

Vê a função FormatNumber

[vascoc]

Vê a função FormatNumber

Já testei com estes e não cheguei nada, mas de certeza que tenho algo mal...

lbltotal.Text = FormatCurrency("00")
Round(lbltotal.Caption, 2)
Format(lbltotal.Caption, "#.00")
lbltotal.Text = Format(lbltotal.Text , "Currency")

Edited June 19, 2012 at 09:36 PM by Caça
GeSHi

[Andrepereira9]

Boas

Experimenta assim

Label1.Text = FormatNumber(1600, 2) 'Onde 1600 é a variavel que tem o preço, e o 2 é a quantidade de 0 a seguir à virgula

[vascoc]

Obrigado, resolvido ! 😄