CASAS DECIMAIS EM LABEL

MILTONSILVA94 29/03/2016 13:38:10
#460080
Montei a rotina para soma de valores de uma coluna no listview, por exemplo tem 2 registros: [ô]50,00[ô] + [ô]26,60[ô] era para mostrar [ô]R$ 76,60[ô] porém aparece [ô]76,6[ô].
Qual código uso para que apareça as duas casas decimais depois da vírgula, se for nº quebrado ele mostra, só não mostra quando termina com [ô]0[ô]...
A rotina que monta isto é:

Private Sub RotinaSomarRsAgendamentos()
Dim i As Long
Dim valor As Double

For i = 1 To Me.lvwLista.ListItems.Count
valor = valor + CDbl(Me.lvwLista.ListItems(i).ListSubItems(7))
Next i

lblSomaRsAgendamentos.Caption = [Ô]R$ [Ô] & valor
End Sub

Alguma sugestão?
KURTGU 29/03/2016 14:08:50
#460081
PERCIFILHO 29/03/2016 14:10:21
#460082
Experimente usar:

lblSomaRsAgendamentos.Caption = [Ô]R$ [Ô] & Format(CDbl(valor, [Ô]##0.00[Ô]))



NILSONTRES 29/03/2016 14:12:43
#460083
Resposta escolhida
lblSomaRsAgendamentos.Caption =FormatNumber(valor,2)
MILTONSILVA94 29/03/2016 14:28:12
#460084
A dica do PERCIFILHO deu erro conforme o anexo.
A dica do KURTGU não adaptei pois é um campo label.
Deu certo com a dica do NILSONTRES.
Muito obrigado pessoal.
Tópico encerrado , respostas não são mais permitidas