CONVERTER STRING EM DOUBLE
Pessoal, não é simplesmente converter, tentei diversas formas e nao consegui.
Tenho uma label da seguinte maneira:
lblTotalGeral.caption = [Ô]R$ 10,00[Ô]
para verificar se esse valor é maior que zero eu fazia assim:
if ccur(lblTotalGeral) > 0 then
porem, se meu computador nao tiver configurado nas configuracoes regionais com SIMBOLO DA UNIDADE MONETARIA do TIPO R$ ele da um erro 13....
alguem sabe como solucionar esse problema?
Tenho uma label da seguinte maneira:
lblTotalGeral.caption = [Ô]R$ 10,00[Ô]
para verificar se esse valor é maior que zero eu fazia assim:
if ccur(lblTotalGeral) > 0 then
porem, se meu computador nao tiver configurado nas configuracoes regionais com SIMBOLO DA UNIDADE MONETARIA do TIPO R$ ele da um erro 13....
alguem sabe como solucionar esse problema?
Tente assim:
Dim temp As String
lblTotalGeral.Caption = [Ô]R$ 10,00[Ô]
temp = lblTotalGeral
temp = Replace(Replace(temp, [Ô]R$ [Ô], [Ô][Ô]), [Ô],[Ô], [Ô].[Ô])
If CCur(temp) > 0 Then
MsgBox [Ô]Maior que zero[Ô]
End If
Tópico encerrado , respostas não são mais permitidas