Caros colegas.. estou tentando colocar um formato de numero para o seguinte numero.

000000-2,40

não estou conseguindo fazer um formato onde ele reconheça o sinal negativo..

por favor se alguem saber.. favor me da um help.

não estou entendendo... q formato é este? Pq tantos zeros antes do sinal? Poderia esclarecer melhor a sua dúvida por favor?

 

obrigado

Trabalho com Dados Variados, portanto esse numero vem de um arquivo gerado de um de nossos clientes, portanto eu tenho que pegar esse numero e formata-lo como moeda, so que não esta dando certo pq alguns são numeros negativos.

para entender melhor o cliente me manda um arquivo texto com todas as informações dele de boletas, so que cada informação esta numa certa posição e quantidade de caracteres. esse é o valor total, que começa em uma posição X com tamanho Y então uma hora ou outra esse numero onde tem esse monte de zeros a esquerda pode ser um valor por exemplo.. 000000-2,40 / 001350,20 / 00000000,50

ou seja.. -2,40 / 1.350,20 / 0,50 Entendeu ?

Caso saiba como fazer um formato para pegar o numero negativo me de um help

Bom, primeiro, quando gerar os números no teu cliente, o idela seria gerar assim:

Assim seria possível a conversão, mas se dá pra fazer sim uma gambiarra:

dim numero as string

numero = 0000000-2,40

for i% = 1 to len(numero)

     if mid(numero,i%,1) <> 0 then

        numero = mid(numero,i%)

     end if

next i%

 

o valor de numero vai conter "-2,40", e desse jeito você vai poder converter para currency.

falow

    Dim sValor As String
    Dim sValorTemp As String
    sValor = "000000-2,40 "
   
    sValor = Replace(sValor, ",", ".")
   
    sValorTemp = Replace(sValor, "-", "")
   
    If sValorTemp = sValor Then
        MsgBox Format(CDbl(sValorTemp), "Standard")
    Else
        sValor = CDbl(sValorTemp) * -1
        MsgBox Format(sValor, "Standard")
    End If

eu num sei se da certo mas vale tentar, tente o masKedit, va em components e procure microsoft maskeditbox , e faça tipo uma txt de depois va em mask, na propriedade e coloque assim ######-#,##  nao se enqueça da propriedade promptInclude de colocar False