FormatCurrency

[lezão 0]

Ola galera boa tarde!

 

galera estou precisando de um codigo q ao invés fazer isso

<%=FormatCurrency(rs("00001"))%>

R$ 00001

gostaria q ficasse assim 00001 ???????

[xanburzum 169]

tem uma função que poseti que vc pode inserir uma determinada quantidade de zeros a esquerda

[lezão 0]

vc tem o link do seu post ?????

[Ronaldo Bueno 23]

Tira o R$ com replace

 

Teste = replace(teste,“r$ ”,“”)

[lezão 0]

eu ja tinha visto uma desse

<%=FormatCurrency(rs("id"))%>

mas mudava nessa parti (FormatCurrency).

e no final tinha algo assim, 2,) creio q seja a qntdade de numeros...

[xanburzum 169]

a sintaxe é essa:

 

FormatCurrency(expressão[,numeroCasaDecimais][,zeroAesquerda][,parentesesParaNegativos)

 

Parametro

Descrição

expressão Expressão a formatar numeroCasaDecimais Opcional.
Indica quantas casas decimais deve retornar. Default è –1 (usa configurações regionais do computador) zeroAesquerda Opcional.
Indica se um zero à esquerda é exibido:
-2 = usa configurações regionais
-1 = visualiza
0 = não visualiza parentesesParaNegativos Opcional.
Indica se deve ou não usar valores negativos entre parênteses:
-2 = usa configurações regionais
-1 = visualiza
0 = não visualiza

 

 

mas é exibido para valores fracionários:. O certo seria usar uma função para adicionar zeros a esquerda e concatenar o R$

[lezão 0]

Xanburzum, pelo oq eu entendi foi assim

<%=FormatNumber(rs("id_cliente"),3)%>

mas agora aparece assim 11,000

Tinha q ser ao contrario 00.011

[xanburzum 169]

ele exibi apenas para valores fracionários, use a função para adicionar zeros a esquerda e concatene o R$

[lezão 0]

COMO ASSIM XAN!!!!!!!!!!!

 

 

XAN, fiz uma assim q quase deu certo.

<%=Left("0.00"&"id_produto",5)%>

só q fica assim

 0.00iesse i é da expressão id_produto

veja como ficou...http://www.dedetinseto.com.br/site/painel/Produtos/teste.asp

[xanburzum 169]

tenta assim:

 

Function ZeroEsquerda(Var_String, Quantidade)
ZeroEsquerda = Var_String
If Quantidade < Len(Var_String) Then
While Len(ZeroEsquerda) < (Quantidade + Len(Var_String))
ZeroEsquerda = "0"& ZeroEsquerda
Wend
End If
End Function

[lezão 0]

fiz assim e naun rodou!

<%
Function = ZeroEsquerda(id_Produto, 3)
ZeroEsquerda = id_Produto
If Quantidade < Len(id_Produto) Then
While Len(ZeroEsquerda) < (3 + Len(id_Produto))
ZeroEsquerda = "0"& ZeroEsquerda
Wend
End If
End Function
%>

?????????

[xanburzum 169]

você também pode usar uma máscara em jquery apenas para exibição. Ou também direto na SQL usando o replicate

select escid,                 replicate('0', 6 - len(salario )) + cast (salario as varchar) as salariofrom   esc;  

[lezão 0]

eu fiz assim !!!

sql = "select escid, replicate('0', 6 - len(id_Produto )) + cast (id_Produto as varchar) FROM Produtos Order By Produto"

e deu o seguinte erro!!!

error '80004005'
/public_html/dedetinseto/site/painel/Produtos/form_excluir.asp, line 23

meu codigo!!!

<% registros = 13
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("Database11.mdb")
conexao.open 
 
Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros  
 
sql = "select escid, replicate('0', 6 - len(id_Produto )) + cast (id_Produto as varchar) FROM Produtos Order By Produto"


'SELECT * FROM Produtos Order By Produto"

rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"


'Else
'rs.AbsolutePage = pagina

%>