FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Tasa dolar Paralelo en Venezuela
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Tasa dolar Paralelo en Venezuela

Posted: 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.
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM

Re: Tasa dolar Paralelo en Venezuela

Posted: Mon Dec 02, 2024 03:32 AM
Hola jose, yo uso este codigo
Code (fw): Select all Collapse
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
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Tasa dolar Paralelo en Venezuela

Posted: Mon Dec 02, 2024 11:53 AM
albeiroval wrote:Hola jose, yo uso este codigo
Code (fw): Select all Collapse
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.
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Tasa dolar Paralelo en Venezuela

Posted: Mon Dec 02, 2024 01: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
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Tasa dolar Paralelo en Venezuela

Posted: Mon Dec 02, 2024 05: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.

Continue the discussion