CONVERTER FORMATO DE CASA DECIMAL
Boa tarde...
Uso o VB6 e a porta serial para comunicar o PC com um microcontrolador. Atravéz disso obtenho um determinado valor no formato decimal usando o ponto no lugar da vÃrgula ex: 32.5 mas como a configuração do computador é para o português brasileiro, o VB entende o ponto como separador de milhares e não decimal, agora gostaria de saber se existe uma função para fazer essa conversão automaticamente.
Criei o seguinte código, mas como o micro é extremamente antigo, está atrazando a execução do programa e lendo valores errados. vai o código:
For ggI = 1 To Len(Text1.Text)
If Mid(Text1.Text, ggI, 1) = [Ô].[Ô] Then
Text1.Text = Mid(Text1.Text, 1, ggI - 1) & [Ô],[Ô] & Mid(Text1.Text, ggI + 1, 1)
End If
Next ggI
[ô]Text1.text é a caixa onde obtem-se a entrada dos valores.
Obrigado.
Uso o VB6 e a porta serial para comunicar o PC com um microcontrolador. Atravéz disso obtenho um determinado valor no formato decimal usando o ponto no lugar da vÃrgula ex: 32.5 mas como a configuração do computador é para o português brasileiro, o VB entende o ponto como separador de milhares e não decimal, agora gostaria de saber se existe uma função para fazer essa conversão automaticamente.
Criei o seguinte código, mas como o micro é extremamente antigo, está atrazando a execução do programa e lendo valores errados. vai o código:
For ggI = 1 To Len(Text1.Text)
If Mid(Text1.Text, ggI, 1) = [Ô].[Ô] Then
Text1.Text = Mid(Text1.Text, 1, ggI - 1) & [Ô],[Ô] & Mid(Text1.Text, ggI + 1, 1)
End If
Next ggI
[ô]Text1.text é a caixa onde obtem-se a entrada dos valores.
Obrigado.
CEDAHMER vc ja tentou usar o Replace?
Isso seria uma saÃda
Replace(text1.text,[Ô].[Ô],[Ô],[Ô]), só que com ele o que ele achar de ponto vai transformar em vÃrgula
Da uma olhadinha no link http://www.macoratti.net/strings.htm e acho que vc consegue usar o right com o replace
Isso seria uma saÃda
Replace(text1.text,[Ô].[Ô],[Ô],[Ô]), só que com ele o que ele achar de ponto vai transformar em vÃrgula
Da uma olhadinha no link http://www.macoratti.net/strings.htm e acho que vc consegue usar o right com o replace
Tópico encerrado , respostas não são mais permitidas