Ato forex taxas diárias

Conversão de renda no exterior.
Índice.
Receita da fonte estrangeira.
Se você é um residente australiano que recebeu renda do exterior, você deve mostrar seu rendimento estrangeiro avaliável em sua declaração de imposto - mesmo que o imposto fosse retirado no outro país.
O rendimento estrangeiro que está isento do imposto australiano ainda pode ser levado em consideração para determinar o valor do imposto que você tem que pagar em seus outros rendimentos. Talvez seja necessário incluir esta receita na sua declaração de imposto.
Certos rendimentos de emprego estrangeiros estão isentos de impostos na Austrália, mas devem ser incluídos na sua declaração de imposto. Considerando que algum outro rendimento de emprego estrangeiro está isento de imposto na Austrália e não precisa ser incluído na sua declaração de imposto. Para mais informações ato. gov. au/exemptforeignemployment e quantidades não incluídas.
Se você recebeu um pagamento fixo na rescisão do seu emprego estrangeiro ou de um fundo de aposentadoria estrangeiro, telefone 13 10 20 entre 8:00 e 18:00 horas, de segunda a sexta-feira.
Informações sobre tributação de renda de origem estrangeira.
Esta aplicação traduz os montantes de renda de origem estrangeira em dólares australianos. Este arquivo 'Ajuda' fornece informações sobre a tradução de renda estrangeira para dólares australianos. Para informações sobre a tributação do telefone de renda estrangeira:
Taxas de câmbio em moeda estrangeira.
Sua renda estrangeira é convertida em dólares australianos dividindo seu valor de renda estrangeira pela taxa de câmbio aplicável em moeda estrangeira:
Valor da renda estrangeira / taxa de câmbio = valor do rendimento estrangeiro em dólares australianos.
A taxa de câmbio é a moeda estrangeira equivalente a um dólar australiano.
Esta calculadora destina-se a aceitar as taxas de câmbio fornecidas por uma série de fontes, incluindo instituições bancárias que operam na Austrália, o Reserve Bank of Australia ou outras fontes de taxas de câmbio publicadas. Esta calculadora não é adequada para o uso de taxas de câmbio reais com mais de quatro casas decimais.
As taxas de câmbio média diária, mensal e anual das moedas estrangeiras são publicadas na página web de taxas de câmbio da ATO.
Se precisar de ajuda com o seu telefone de conversão de moeda estrangeira:
Taxas de câmbio aplicáveis ​​no momento em que o rendimento foi recebido ou derivado.
De um modo geral, se a sua receita estrangeira foi obtida em ou após 1 de julho de 2003, você deve usar uma taxa de câmbio real em moeda estrangeira. Ou seja, você deve usar a taxa que prevaleceu quando sua receita foi derivada por você (por exemplo, quando a renda de juros é creditada) ou recebida - o que aconteceu anteriormente. Em muitas circunstâncias, porém, os contribuintes têm o direito de converter seus rendimentos estrangeiros usando uma taxa de câmbio média (veja abaixo). As taxas de câmbio média diária, mensal e anual das moedas estrangeiras são publicadas na página web de taxas de câmbio da ATO.
Você pode usar taxas médias onde esta seria uma aproximação razoável das taxas de câmbio que teria aplicado se você tivesse usado taxas reais de câmbio no momento em que sua receita foi recebida ou derivada. Por exemplo, uma taxa de câmbio média anual pode razoavelmente se aproximar das taxas reais que, de outra forma, teriam sido usadas para converter seu rendimento denominado em moeda estrangeira em dólares australianos, onde você obteve a renda em moeda estrangeira regularmente em todo o ano de renda.
Exclusões da utilização desta calculadora.
Receita externa de atividades comerciais.
Se você recebeu renda estrangeira de atividades comerciais, você deve converter seu rendimento estrangeiro na taxa de câmbio aplicável no momento em que é derivado ou pago para você (o que for mais antigo) a menos que você tenha a opção de usar taxas de câmbio médias e optar por usar essa taxa média para converter valores estrangeiros. Consulte Forex - a regra de tradução geral para obter informações sobre a taxa de câmbio aplicável. Esta publicação também explica a taxa de câmbio aplicável a usar para converter suas despesas externas e outros valores estrangeiros em dólares australianos. Para obter informações sobre as taxas médias, consulte Forex - Informações gerais sobre as taxas médias. Para obter informações mais gerais em relação às medidas de ganhos e perdas cambiais, consulte a publicação Foreign Exchange (Forex) - Visão geral.
Banco ou instituição financeira similar.
As medidas forex (incluindo a regra geral de tradução) se aplicam a todos os contribuintes.
Os bancos e instituições financeiras similares foram excluídos das medidas até a data de inscrição da Lei sobre a Legislação Tributária (Fiscalidade de Arranjos Financeiros) de 2009 (para a maioria das entidades afetadas, que é 1 de julho de 2010).
Imposto sobre ganhos de capital (CGT)
O cálculo do ganho ou perda de capital na alienação de um ativo da CGT implica subtrair a base de custo do ativo do produto de capital recebido. Quando a base de custo e / ou o produto do capital estiverem em moeda estrangeira, eles devem ser convertidos para o equivalente em dólares australianos antes de calcular o ganho ou perda de capital. A base de custo deve ser convertida à taxa de câmbio aplicada no dia em que os custos foram incorridos. Os recursos do capital devem ser convertidos à taxa de câmbio aplicada no dia da ocorrência do evento CGT.
Tradução (conversão) de despesas.
Você deve converter as despesas estrangeiras utilizando as taxas de câmbio aplicadas quando a despesa foi paga, ou quando se tornou dedutível - o que aconteceu anteriormente. Se você pagou a despesa em dólares australianos, e tornou-se dedutível nisso ou em um momento posterior, geralmente não precisa converter a despesa em dólares australianos. Isso ocorre porque o valor pago em dólares australianos normalmente será igual ao valor da despesa convertida usando as regras. Alternativamente, em muitos casos, você pode usar uma taxa média de câmbio para converter as despesas externas. Consulte Forex - Informações gerais sobre taxas médias para obter mais informações.
Tradução (conversão) de imposto estrangeiro pago.
Você deve converter o imposto estrangeiro pago à taxa de câmbio aplicada no momento em que o imposto foi pago. Consulte "Guia para regras de compensação de imposto de renda 2013 - 14".
Para continuar seu cálculo, selecione o botão Voltar no seu navegador.

Tabelas Ato Forex.
A subdivisão D da ITAA permite que determinadas entidades façam uma eleição para usar uma moeda funcional aplicável à moeda estrangeira para contabilizar suas transações. As medidas geralmente se aplicam prospectivamente à realização de ativos, direitos e obrigações adquiridos ou assumidos em ou após a data de início aplicável. Subdivisão C As medidas forex estabelecem regras para expressar os valores monetários australianos de valores que são denominados em moeda estrangeira e explicam como calcular ganhos e perdas que são atribuíveis a flutuações da taxa de câmbio. Sob as medidas forex: Fim do exemplo Como as regras de tradução se aplicam a valores específicos?
Vídeo por tema:
Como funciona a bolsa de valores (para Dummies)
4 pensamentos sobre & ldquo; Ato forex tables & rdquo;
SUPER CLEAN CANADIAN VEHICLE BLUE SOBRE O INTERIOR PRETO, TODO O PODER.
O papel de uma empresa quando atua como.
Melhor corretor na Europa Oriental 2013.
Comparação lado-a-lado dos corretores de estoque Sharekhan e Angel Broking na Índia.

AusFinance.
158 & # 32; пользователей находятся здесь.
МОДЕРАТОРЫ.
fauziozi Maverrix99 Master Investor herpderpherpderp The Cleaner fraudster See You Próximo terça-feira, tipo de cara, Jackimatic FA, о команде модераторов & raquo;
Bem-vindo ao Reddit,
a primeira página da internet.
e inscreva-se em uma das milhares de comunidades.
Это архивированный пост. Você está interessado em иолосовать или комментировать.
Quer adicionar à discussão?
помощь правила сайта центр поддержки вики реддикет mod guidelines связаться с нами.
приложенияи инструменты Reddit para iPhone Reddit para o site móvel Android кнопки.
Использование данного сайта означает, что вы принимаете & # 32; пользовательского соглашения & # 32; и & # 32; Политика конфиденциальности. &cópia de; 2018 reddit инкорпорейтед. Все права защищены.
REDDIT e o logotipo ALIEN são marcas registradas da reddit inc.
& pi; Renderizado pelo PID 88718 em & # 32; app-137 & # 32; em 2018-02-09 04: 52: 17.185375 + 00: 00 executando 0aaf02f código do país: UA.

Ato forex taxas diariamente
Seu carrinho de compras está vazio.
Início Falta taxas de câmbio diárias - o ATO responde.
Faltam taxas de câmbio diárias - o ATO responde.
Em 2015 TAXVINE No 11 (2 de abril de 2015) O Membro 62 escreveu:
"Desde 1 de julho de 2003, são necessárias taxas de câmbio diárias para converter moeda estrangeira em dólares australianos. Desapontadamente, o ATO agora só fornece links para três anos fiscais de 2012-13 a 2014-15 em ato. gov. au/Rates/Foreign-exchange-rates/?anchor=Dailyrates#Dailyrates.
Não consigo encontrar taxas de câmbio para qualquer ano fiscal anterior. Não sei por que essa decisão foi tomada; É uma decisão ruim.
Taxas de câmbio diárias históricas são muito necessárias para fins de imposto sobre ganhos de capital para converter o custo de um ativo na data da sua compra.
ATO, forneça um link para todos os anos fiscais desde 2002-03; eles são muito necessários e economizarão muito tempo buscando uma taxa de câmbio alternativa ".
O ATO AGORA RESPONDA:
"Obrigado pelo seu feedback. Ao fazer melhorias em nosso site, simplificamos e, em alguns casos, o conteúdo removido que as estatísticas indicam raramente foi usado. Como o membro identificou, isso inclui a remoção de taxas de câmbio diárias para os anos anteriores a 2012.
No entanto, você pode continuar acessando as seguintes taxas de câmbio do nosso site:
Taxas diárias para os dois exercícios atuais e anteriores. Taxas mensais para os quatro exercícios atuais e anteriores. Taxas anuais anteriores a 2003.
Se você precisar de outras taxas de câmbio históricas, você pode obtê-las do Banco de Reserva da Austrália ou do seu banco ".

Data histórica.
Esta página lista séries temporais mais longas de tabelas estatísticas selecionadas.
Nesta página.
Banco de reserva da Austrália.
Ativos e Passivos.
Site da Autoridade de Regulação Prudencial Australiana (APRA).
Taxas de câmbio.
Finanças Governamentais.
Taxa de juros.
& ndash; Annual & ndash; macroeconômico e bancário e ndash; originalmente publicado em.
Documento ocasional nº 8.
Valores de 1976 a 1993 & ndash; originalmente publicado em Ocasional Paper No. 10.
Valores 1993 a 1996 & ndash; atualização para o documento ocasional nº 10.

Função de taxa de câmbio no Excel.
Esta planilha do Excel possui uma função VBA (UDF) que estimula as taxas de câmbio ao vivo do Yahoo Finance. Leia mais para a planilha gratuita do Excel e VBA.
A função Excel é perfeita para sempre que você precisa de uma conversão de moeda. Eu uso isso para acompanhar o valor da libra britânica de uma conta bancária dos EUA e do dólar canadense.
As taxas são recuperadas do Yahoo Finance, e são em tempo real (mas atrasadas em 15 ou 20 minutos).
A UDF é simples de usar. Aqui está a sintaxe.
Este é um exemplo de como usar o FXRate () no Excel para uma conversão de moeda entre GBP e USD.
Os dois primeiros argumentos são a moeda que você está convertendo e a moeda na qual você está convertendo. Estes são códigos de moeda de três letras (por exemplo, GBP para libras esterlinas ou CAD para dólares canadenses) inseridos como cordas. O terceiro argumento é um do & # 8220; close & # 8221 ;, & # 8220; open & # 8221 ;, & # 8220; lance & # 8221; ou & # 8220; pergunte & # 8221; (novamente como uma string). O preço de fechamento é o fechamento anterior.
O link para a planilha do Excel está na parte inferior desta postagem, mas aqui é o VBA.
Opção Função explícita FXRate (currency1 As String, currency2 As String, rateType As String) Como Double Dim str Como String Dim temp Como String Dim bidStart Como Long Dim BidEnd Como Long Dim askStart Como Long Dim askEnd Como Long Dim openStart Como Long Dim openEnd Como Dim Dim CloseStart As Long Dim closeEnd Como Long Dim lances como Double Dim ask As Double Dim ropen Como Double Dim rclose As Double str = & quot; finance. yahoo/q? S = & quot; & amp; currency1 & amp; currency2 & amp; & quot; X & quot; temp = ExecuteWebRequest (str) bidStart = InStr (temp, & quot; Bid: & quot;) bidEnd = InStr (bidStart, temp, & quot; & quot;) bid = Mid (temp, bidStart + 65, bidEnd - bidStart - 72) askStart = InStr (temp, & quot; Ask: & quot;) askEnd = InStr (askStart, temp & quot; & quot;) ask = Mid (temp, askStart + 65, askEnd - askStart - 72) openStart = InStr (temp, & quot; Open: "openEnd = InStr (openStart, temp," quot; "ropen = Mid (temp, openStart + 38, openEnd - openStart - 38) closeStart = InStr (temp, & quot; Close Close: & quot;) closeEnd = InStr ( closeStart, temp, "quot;") rclose = Mid (temp, closeStart + 44, closeEnd - closeStart - 44) Se rateType = "perguntar & quot; Então FXRate = peça ElseIf rateType = & quot; lance & quot; Então FXRate = lance ElseIf rateType = & quot; open & quot; Então FXRate = ropen ElseIf rateType = & quot; close & quot; Então FXRate = rclose End If End Function Função ExecuteWebRequest (ByVal url As String) Como String Dim oXHTTP como objeto Se InStr (1, url, "quot ;," 1) & lt; & gt; 0 Então url = url & amp; & quot; & amp; cb = & quot; & amp; Timer () * 100 Else url = url & amp; "cb =" & amp; Timer () * 100 End If Set oXHTTP = CreateObject ("MSXML2.XMLHTTP") oXHTTP. Open "GET", url, Falso oXHTTP. send ExecuteWebRequest = oXHTTP. responseText Defina oXHTTP = Nothing End Function.
ExecuteWebRequest () foi copiado e modificado a partir daqui. ExecuteWebRequest () recupera o HTML de uma página da Web, enquanto o FXRate () processa o HTML para extrair as taxas de câmbio.
Tenha em mente que FXRate () raspa os dados do Yahoo Finance com algum processamento de string simples. Então, se a estrutura dos dados no Yahoo Finance for alterada, essa função pode não funcionar mais. Deixe-me saber se isso acontece, e eu atualizarei o VBA para que ele funcione novamente.
Se você quer taxas de conversão de moeda histórica durante um período, verifique esta planilha. Você também pode usar um QueryTable para extrair as taxas de câmbio.
Deixe um comentário se tiver dúvidas ou comentários.
27 pensamentos sobre & ldquo; Função de taxa de câmbio no Excel & rdquo;
Obrigado por este modelo acessível. Achei muito útil, mas parece que há um problema com a conversão de dólares de Hong Kong.
Eu verifiquei que a abreviatura de dólares de Hong Kong no Yahoo Finance é HKD.
Aprecio se você pode me informar se consertar isso.
Não tenho certeza exatamente o que você está fazendo, mas a seguinte conversão de USD para HKD funciona para mim (HKD é reconhecida como uma abreviatura)
Parece que este modelo não está funcionando mais. Eu usei na semana passada e funcionou perfeitamente (e foi uma ótima ferramenta UDF, graças!).
Algum por que o yahoo mudaria sua codificação?
Apenas tentei a planilha e ainda funciona.
A função quebra quando as localizações das buscas de substring excedem o valor máximo 32767 para o tipo de dados Integer. Se você alterar as declarações para bidStart, bidEnd, etc. para Long em vez de Integer, a função funcionará de forma confiável quando o comprimento da variável Temp for extremamente grande. Para uma página retornada hoje, o comprimento da variável Temp foi 76104 com o bidStart igual a 33422. As declarações longas permitem que a função funcione novamente conforme o esperado.
Obrigado! I & # 8217; mudou o tipo de dados para Long na VBA e na planilha eletrônica. Muito apreciado!
Obrigado pelo código acima. Estou tendo problemas com a posição das taxas fx na fonte HTML.
Estou tentando recuperar a taxa FPS GBPSGD.
Abaixo estão as posições para o & # 8220; lance & # 8221; (o primeiro preço que o código procura na fonte html)
bidStart + 65 = 31245.
bidEnd & # 8211; bidStart & # 8211; 72 = -72.
Então, porque o bidStart e o BidEnd são os mesmos, a função Mid pode encontrar a taxa de lance.
Por que você faz a posição bidEnd procurando por & # 8220; & # 8221; ?
Acabei de tentar usar a função FXRate () na planilha para aproveitar a taxa de câmbio GBPSGD com.
Parece que funciona bem # 8211; A UDF corretamente arranca o preço da oferta da Yahoo Finance.
> Então, porque o bidStart e o BidEnd são os mesmos, a função Mid não consegue encontrar a taxa de lances.
Parece encontrar a taxa de lance para mim.
Oi Samir, se eu estivesse faltando o motivo óbvio por que você definiu a posição do bidEnd & # 8217; s na fonte usando & # 8220; & # 8221; você pode me dar um ponteiro? 🙂
Este ótimo modelo tinha funcionado para mim até algumas semanas atrás. Eu não mudei nada recentemente, mas agora apenas relata & # 8220; #VALUE! & # 8221; na célula e o mouse sobre o pequeno ícone de erro diz & # 8220; Um valor usado na fórmula é do tipo de dados incorreto & # 8221 ;. Alguma sugestão sobre como resolver isso? obrigado.
Algo mudou na estrutura do Yahoo.
Mas eu concordo que começando com bidStart e terminando com CloseEnd, eles deveriam ser muito melhores.
Além disso, isso pode funcionar melhor:
bid = Mid (temp, bidStart + 65, bidEnd & # 8211; bidStart & # 8211; 72)
ask = Mid (temp, askStart + 65, askEnd & # 8211; askStart & # 8211; 72)
openEnd = InStr (openStart, temp, & # 8220; & # 8221;)
ropen = Mid (temp, openStart + 38, openEnd & # 8211; openStart & # 8211; 38)
closeStart = InStr (temp, & # 8220; Close Anterior: & # 8221;)
closeEnd = InStr (closeStart, temp, & # 8220; & # 8221;)
rclose = Mid (temp, closeStart + 44, closeEnd & # 8211; closeStart & # 8211; 44)
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim url As String.
Resposta Dim como String.
FXRate = GetValue (resposta, & # 8220; Ask: & # 8221;)
ElseIf rateType = & # 8220; lance & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Bid: & # 8221;)
ElseIf rateType = & # 8220; abrir & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Abrir: & # 8221;)
ElseIf rateType = & # 8220; fechar & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Close Anterior: & # 8221;)
Função GetValue (ByVal temp As String, ByVal label As String) As Double.
Dim strStart As Long.
Dim strand como longo.
strStart = InStr (temp, & # 8220; Close Anterior: & # 8221;)
GetValue = Mid (temp, strStart + 2, strEnd & # 8211; strStart & # 8211; 2)
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Existe uma maneira de obter um único valor (diga & # 8220; lance & # 8221;) em uma célula definida? Eu só preciso do comércio mais recente para ser empurrado para uma célula.
Isso não funciona para mim. Ou o código original ou a atualização de anônimos em 22 de janeiro de 2014.
Eu tentei usar essa conversão, mas já não está funcionando ou não deixando mais um valor de resultado.
Eu usei antes de uma função semelhante: (veja abaixo), mas quando eu uso o abaixo e convertei de IDR para EUR, dê uma conversão de 5 euros em vez de 3.5Euro (o que eu recebo quando eu entrar em linha com o conversor do Yahoo)
Então eu procurei uma solução melhor e veio do seu lado, no entanto, nenhum resultado é dado:
Função YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, Opcional ByVal strResultType = & # 8220; Valor & # 8221;)
Em Erro Ir para ErrorHandler.
Dim strURL As String.
Dim objXMLHttp As Object.
Dim stres como String, dblRes As Double.
Defina objXMLHttp = CreateObject (& # 8220; MSXML2.ServerXMLHTTP & # 8221;)
& # 8216; strURL = & # 8220; finance. yahoo/d/quotes. csv? E =.csv & amp; f = c4l1 & amp; s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8220; = X & # 8221;
strURL = & # 8220; finance. yahoo/q? s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8221; = X & # 8221;
& # 8216; Enviar solicitação XML.
.setRequestHeader & # 8220; Content-Type & # 8221 ;, & # 8220; aplicação / x-www-form-URLEncoded & # 8221;
Selecione Case strResultType.
Case & # 8220; Value & # 8221 ;: YahooCurrencyConverter = dblRes.
Case Else: YahooCurrencyConverter = & # 8220; 1 & # 8221; & amp; strFromCurrency & amp; & # 8221; = & # 8221; & amp; dblRes & amp; & # 8221; & # 8221; & amp; strToCurrency.
Defina objXMLHttp = Nothing.
Por favor alguém pode me ajudar?
Preciso de uma planilha de excel para mostrar as taxas de câmbio em uma data específica.
Exemplos: taxa de câmbio de USD para GBP em 10 de outubro de 2014.
Taxa de câmbio de USD para BRL em 10 de outubro de 2014.
Eu acho que poderia ser uma função, por exemplo:
Isso é possível?
O outro é que ele deve funcionar com o meu laptop excel do Brasil, que usa, como separador decimal (International Units System)
Desde já, obrigado!
Junto com a taxa de câmbio aberta (que é a única parte que estou usando), eu também gostaria de extrair a data de troca em uma célula.
Você pode sugerir algo?
Isso ainda funciona? Porque não parece estar funcionando quando eu uso isso?
Caro todos, funcionou bem até o final de dezembro de 2016. Parece que o Yahoo mudou algo em seu site. Alguém poderia analisar o código e dar uma solução sobre o que precisa ser alterado, obrigado.
Este código ajustado parece funcionar. Eu não testei com todos os combos possíveis, mas funcionou para os poucos que eu testei!
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim str As String.
Dim temp As String.
Dim bidStart As Long.
Dim bidEnd As Long.
Dim askStart As Long.
Dim askEnd As Long.
Dim openStart As Long.
Dim openEnd As Long.
Dim closeStart As Long.
Dim closeEnd As Long.
Dim lance As Double.
Dim ask As Double.
Dim ropen As Double.
Dim rclose As Double.
Dim i As Long, i1 As Long, i2 As Long.
Dim myArray () como variante.
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
bidEnd = InStr (bidStart + 1, temp, & # 8220; & # 8221;) + 4.
askEnd = InStr (askStart + 1, temp, & # 8220; & # 8221;) + 7.
openEnd = InStr (openStart + 1, temp, & # 8220; & # 8221;) + 7.
closeEnd = InStr (closeStart + 1, temp, & # 8220; & lt; ")
lance = Mid (temp, bidStart, bidEnd & # 8211; bidStart)
ask = Mid (temp, askStart, askEnd & # 8211; askStart)
ropen = Mid (temp, openStart, openEnd & # 8211; openStart)
rclose = Mid (temp, closeStart, closeEnd & # 8211; closeStart)
Se rateType = & quot; ask & quot; Então.
ElseIf rateType = & quot; lance & quot; Então.
ElseIf rateType = & quot; open & quot; Então.
ElseIf rateType = & quot; close & quot; Então.
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Oops & # 8211; deixado em algum código de depuração. Você pode excluir essas coisas:
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
i1 = (i - 1) * 500 + 1.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
Grrr! Moderador & # 8211; elimine os comentários acima. O corte e a pasta não funcionaram corretamente e deixaram algum código. Espero que o que está abaixo seja completo e correto. Obrigado!
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim str As String.
Dim temp As String.
Dim bidStart As Long.
Dim bidEnd As Long.
Dim askStart As Long.
Dim askEnd As Long.
Dim openStart As Long.
Dim openEnd As Long.
Dim closeStart As Long.
Dim closeEnd As Long.
Dim lance As Double.
Dim ask As Double.
Dim ropen As Double.
Dim rclose As Double.
Dim i As Long, i1 As Long, i2 As Long.
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
bidEnd = InStr (bidStart + 1, temp, & # 8220; & # 8221;) + 4.
askEnd = InStr (askStart + 1, temp, & # 8220; & # 8221;) + 7.
openEnd = InStr (openStart + 1, temp, & # 8220; & # 8221;) + 7.
closeEnd = InStr (closeStart + 1, temp, & # 8220; & lt; ")
lance = Mid (temp, bidStart, bidEnd & # 8211; bidStart)
ask = Mid (temp, askStart, askEnd & # 8211; askStart)
ropen = Mid (temp, openStart, openEnd & # 8211; openStart)
rclose = Mid (temp, closeStart, closeEnd & # 8211; closeStart)
Se rateType = & quot; ask & quot; Então.
ElseIf rateType = & quot; lance & quot; Então.
ElseIf rateType = & quot; open & quot; Então.
ElseIf rateType = & quot; close & quot; Então.
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Eu apenas tentei o novo código, mas ele pára com um erro de compilação na linha:
i1 = (i - 1) * 500 + 1.
Não tenho certeza por que essa macro não está funcionando mais.
Talvez haja uma mudança na estrutura dos dados do Yahoo.
Você se importaria de atualizá-lo por favor?
com certeza, está na minha lista de tarefas.
Espero que você possa encontrar a correção em breve. Seu código é incrível e super útil. Eu tenho usado isso há quase 4 anos e gostaria de continuar usando isso.
Seu código é ótimo, quando você acha que irá corrigi-lo?