FORMATAR PARA MOEDA
Boa tarde alguém saberia me informar aonde esta o erro no código abaixo, é que estou tentando formata-lo para moeda..
If Len(txtrendabruta) = 3 Then
txtdatacompra = txtdatacompra & ","
txtdatacompra.SelStart = 5
End If
If Len(txtrendabruta) =8 Then
txtrendabruta = Format(txtrendabruta, "R$ #.###,##")
End If
If Len(txtrendabruta) = 3 Then
txtdatacompra = txtdatacompra & ","
txtdatacompra.SelStart = 5
End If
If Len(txtrendabruta) =8 Then
txtrendabruta = Format(txtrendabruta, "R$ #.###,##")
End If
txtrendabruta = Format(txtrendabruta, "#,##0.00")
agora com o simbolo creio que seja:
txtrendabruta = Format(txtrendabruta, " R$ #,##0.00")
perceba que a virgula esta invertida com o sinal de ponto, mas é assim mesmo.
agora com o simbolo creio que seja:
txtrendabruta = Format(txtrendabruta, " R$ #,##0.00")
perceba que a virgula esta invertida com o sinal de ponto, mas é assim mesmo.
Tópico encerrado , respostas não são mais permitidas