[Resolvido] Função formatmumber

[kania 0]

Olá pessoal,

estou tentando criar uma função que faça o seguinte.

 

Tenho o valor: 2355,5 - com apenas uma casa decimal

Estou convertendo ela para: 2.355,50 - com o formatmumber

Porem o cartão de cre´dito mastercard solicita que ue envie o valor no formato 2355.50 - com somente 2 casa decimais e com um ponto apenas

 

Pesnei em não usar o formtnumber e sim o Replace direto no valor 2355,5 trocando a virgula po ponto, porem ai ele continuara com um casa decimal apenas.

Pensei em usar o Right e Left, porem não da certo porque posso ter varios tamanho de valores (2355,5 - 155,2 - 1248,34) e assim por diante.

Procurei uma função no asp que leçe toda a string e verificasse o primeiro ponto, ai eu quebraria a string em dua partes

 

ex.

 

parte 1 = 2

paret 2 = 355.50

junto a parte 1 e parte 2 = 2355.50

 

mas não achei nenhuma função que leçe a string e me quebrasse em partes a string

 

aqui no froum também pesquisei algo, mas não achei da forma que eu queria.

 

Alguém sabe se tem como fazer isto?

[kania 0]

Ai pessoal, acabei conseguindo montar função

 

se alguém precisar

 

'========================================
	'FUNÇÃO PARA TIRAR A VIRGULA E ARRUMAR
	'O FORMATO PARA O CARTÃO MASTER E DINERS
	'========================================
'session que traz o total da compra, já com o frete
session("total_final") = (total + frete)

'crio o formato para trabalhar ele depois
total_cartao = formatnumber(session("total_final"),2)

'inicio a função que vai verificar os zeros tirar os pontos e mudar a virgula por ponto	
Function FormataValor(total_cartao)

	total_str = cstr(total_cartao)
	virgula_pos = Instr(total_str,",")

	If virgula_pos <> 0 Then
		zero_num = Len(total_str) - virgula_pos
		If (zero_num < 2) Then
			total_str = total_str & String(zero_num, "0")
		End If
	Else
		total_str = total_str & ",00"
	End If

	'Tira virgula de quantidade
	total = replace(total_str, ".", "")

	FormataValor = replace(total, ",",".")

End Function

'crio a sesion para utilizar posteriomente na tela do redecard
Session("Cartao_Valor") = FormataValor(total_cartao)

[Ted k' 126]

boa! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif