FORMATACAO DE VALORES

ANDSARAGIOTTO 15/08/2009 15:38:45
#319932
PESSOAL, COMO EU FAÇO PARA FORMATAR UM VALOR DA SEGUINTE MANEIRA:
NO LUGAR DE 800,00 EU PRECISO Q APAREÇA 800.00 OU SEJA PONTO NO LUGAR DA VIRGULA.
OBRIGADO
X16X 15/08/2009 16:07:31
#319934
ANDSARAGIOTTO,

Se a rotina for simples da forma que voce quer, voce pode usar a funcao replace
Ex:

replace(string,str_procura,str_substitui)

dim valor as string
dim novovalor as string

valor = 800,00
novovalor = replace(valor,[Ô],[Ô],[Ô].[Ô])

debug.print novovalor


Obs: Substitui virgula(,) por ponto(.)

Ou voce pode ate mesmo formatar esse campo utilizando o evento Keypress do seu textbox.
IPSOFTWARE 15/08/2009 16:55:10
#319938
Criei esta função que me ajuda muito com o banco mysql
De uma olhada se isso pode te ajudar, espero que sim rsss
Pelo mesnos para mim ajudou muito

Public Function Ponto_duas_Casas(frmt As String) As String
Dim I As Integer
frmt = FormatNumber(frmt, 2)
frmt = Replace(frmt, [Ô].[Ô], [Ô][Ô])
For I = 1 To Len(frmt)
If Mid(frmt, I, 1) = [Ô],[Ô] Then
Mid(frmt, I, 1) = [Ô].[Ô]
End If
Next I
PontoMoney = frmt
End Function
ALEXLUGON 15/08/2009 19:36:54
#319940
Veja isso é Bem Legal

Espero q te ajude.
WILLVIDAL 15/08/2009 20:48:24
#319941
Function CONVERTEDECIMAL(VALOR As Double)
Dim Ret As String
Ret = Format(VALOR)
If InStr(Ret, [Ô],[Ô]) <> 0 Then
Ret = Replace(Ret, [Ô],[Ô], [Ô].[Ô])
End If
CONVERTEDECIMAL = Ret
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar