Tasa dolar Paralelo en Venezuela

Tasa dolar Paralelo en Venezuela

Postby JoseAlvarez » Sat Nov 30, 2024 11:26 pm

Saludos amigos,

Alguien de Venezuela ha encontrado la manera de obtener desde código FW la tasa del dólar paralelo?

He hecho el intento con varias API pero unas están caídas, otras ya son de pago y para sumarle algo, soy nulo en la materia de esto de las API.

Alguna Ayuda?

Agradecido de antemano.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 805
Joined: Sun Nov 09, 2014 5:01 pm

Re: Tasa dolar Paralelo en Venezuela

Postby albeiroval » Mon Dec 02, 2024 3:32 am

Hola jose, yo uso este codigo
Code: Select all  Expand view  RUN

function Tasa_Bcv( nTipo, lShow )
    Local cText, cCur
  Local aRates := {}
  Local ntasa  := 0
   
  DEFAULT nTipo := 1
  DEFAULT lShow := .F.

  cText := WebPageContents( "https://www.bcv.org.ve/" )
 
  for each cCur in { "EUR", "CNY", "TRY", "RUB", "USD" }
     AAdd( aRates, GetRate( cCur, cText ) )
  next
 
  if lShow
    // XBROWSER aRates SETUP oBrw:aCols[ 2 ]:cEditPicture := "999.999999"
    ? "EUR : " + Str(aRates[1,2],6,2),;
        "CNY : " + Str(aRates[2,2],6,2),;
      "TRY : " + Str(aRates[3,2],6,2),;
      "RUB : " + Str(aRates[4,2],6,2),;
      "USD : " + Str(aRates[5,2],6,2)
  endif

  if nTipo == 1
    nTasa := aRates[5,2]
  else
    nTasa := aRates[1,2]
  endif    

return nTasa

//-------------------------------------------------

static function GetRate( ccur, cText )
    local aRate  := { cCur, 0 }
  local c, n

  if ( n := At( cCur, cText ) ) > 0
     c     := SubStr( cText, n, 200 )
     c     := AllTrim( AfterAtNum( "<strong>", BeforAtNum( "</strong>", c, 1 ) ) )
     c     := CharRepl( ",", c, "." )
     aRate[ 2 ]  := Val( c )
  endif

return aRate

 
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
User avatar
albeiroval
 
Posts: 383
Joined: Tue Oct 16, 2007 5:51 pm
Location: Barquisimeto - Venezuela

Re: Tasa dolar Paralelo en Venezuela

Postby JoseAlvarez » Mon Dec 02, 2024 11:53 am

albeiroval wrote:Hola jose, yo uso este codigo
Code: Select all  Expand view  RUN

function Tasa_Bcv( nTipo, lShow )
    Local cText, cCur
  Local aRates := {}
  Local ntasa  := 0
   
  DEFAULT nTipo := 1
  DEFAULT lShow := .F.

  cText := WebPageContents( "https://www.bcv.org.ve/" )
 
  for each cCur in { "EUR", "CNY", "TRY", "RUB", "USD" }
     AAdd( aRates, GetRate( cCur, cText ) )
  next
 
  if lShow
    // XBROWSER aRates SETUP oBrw:aCols[ 2 ]:cEditPicture := "999.999999"
    ? "EUR : " + Str(aRates[1,2],6,2),;
        "CNY : " + Str(aRates[2,2],6,2),;
      "TRY : " + Str(aRates[3,2],6,2),;
      "RUB : " + Str(aRates[4,2],6,2),;
      "USD : " + Str(aRates[5,2],6,2)
  endif

  if nTipo == 1
    nTasa := aRates[5,2]
  else
    nTasa := aRates[1,2]
  endif    

return nTasa

//-------------------------------------------------

static function GetRate( ccur, cText )
    local aRate  := { cCur, 0 }
  local c, n

  if ( n := At( cCur, cText ) ) > 0
     c     := SubStr( cText, n, 200 )
     c     := AllTrim( AfterAtNum( "<strong>", BeforAtNum( "</strong>", c, 1 ) ) )
     c     := CharRepl( ",", c, "." )
     aRate[ 2 ]  := Val( c )
  endif

return aRate

 



Hola albeiro, saludos...
gracias por el aporte,

ese codigo ya lo tengo, sacado de aqui mismo del grupo, pero me da las tasas del BCV, necesito la tasa paralela tambien,

Agradecido por la ayuda amigo!
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 805
Joined: Sun Nov 09, 2014 5:01 pm

Re: Tasa dolar Paralelo en Venezuela

Postby karinha » Mon Dec 02, 2024 1:43 pm

Buenos días José, creo que es casi imposible que lo consigas. Por ejemplo, es prácticamente imposible acceder a páginas de la querida Venezuela, ya que el dictador Maduro se encuentra en "guerra" declarada contra el presidente de Brasil: "Lula". Probablemente Maduro ordenó bloquear el acceso a Internet.

Suerte,

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Tasa dolar Paralelo en Venezuela

Postby JoseAlvarez » Mon Dec 02, 2024 5:34 pm

karinha wrote:Buenos días José, creo que es casi imposible que lo consigas. Por ejemplo, es prácticamente imposible acceder a páginas de la querida Venezuela, ya que el dictador Maduro se encuentra en "guerra" declarada contra el presidente de Brasil: "Lula". Probablemente Maduro ordenó bloquear el acceso a Internet.

Suerte,

Regards, saludos.


Saludos estimado amigo joao, como estas?

Son muchos los obstaculos que debemos sortear a diario en nuestro amado pais.

¡ Hemos aprendido a luchar con ellos !

Por los momentos todavía disponemos de internet desde aca adentro, con algunas limitaciones claro.

¡Aquí seguimos!

¡Gracias por tu apoyo !
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 805
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 106 guests