un string 1.435.844,86 a val me da 1.435000000

Board index FiveWin para Harbour/xHarbour un string 1.435.844,86 a val me da 1.435000000

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

un string 1.435.844,86 a val me da 1.435000000
Posted: Mon Apr 04, 2011 02:55 PM

hola
tengo este codigo:

xDato:= "jkq kjqwh jkeqhwejk 1.435.844,86"
xDato:= AllTrim(SubStr(xDato, 19))
xDato1:=transform(xDato,"9999999999999.99")

y el valor de xdato1 me devuelve 1.4350000000 Porque? yo necesito pasar esa cadena
"1.435.844,86" al valor numerico 1.435.844,86

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Lautaro

Posts: 337

Joined: Fri Oct 07, 2005 02:44 PM

Re: un string 1.435.844,86 a val me da 1.435000000
Posted: Mon Apr 04, 2011 03:18 PM

Goosfancito,

Haz esto :

xDato:= "jkq kjqwh jkeqhwejk 1.435.844,86"
xDato:= strtran(strtran(AllTrim(SubStr(xDato, 19)),".",""),",",".")
xDato1:=transform(xDato,"9999999999999.99")

Es un problema con el separador de decimales y miles.

atte.,

Lautaro Moreira

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: un string 1.435.844,86 a val me da 1.435000000
Posted: Mon Apr 04, 2011 03:29 PM

pruebo.
gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: un string 1.435.844,86 a val me da 1.435000000
Posted: Tue Apr 05, 2011 03:14 PM

Aqui tienes otra forma

Code (fw): Select all Collapse

#include "fivewin.ch"

                Function Main()


Local i
Local xDato  := "jkq kjqwh jkeqhwejk 1.435.844,86"
Local xDato1 := ""

For i := 1 To Len( xDato )
   If( IsDigit( xDato[ i ] ) .or. xDato[ i ] == "," )
      If( xDato[ i ] == "," )
         xDato1 += "."
      Else
         xDato1 += xDato[ i ]
      End
   End
Next i
? Val( xDato1 )
Return 0

Salu2

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: un string 1.435.844,86 a val me da 1.435000000
Posted: Tue Apr 05, 2011 08:11 PM

los dos funcionaron bien.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion