Hier im Forum gab es ja schon das Beispiel wie man die Währungskurse bei der EZB abfragen kann.
Das habe ich genommen und muss das nun erweitern, dass ich in der Liste die Kurse der letzten 90 Tage habe.
Hierzu gibt es folgende Klasse:
Der Aufruf mit der WebAdresse findet dann so statt:
Die xml der EZB sieht wie folgt aus:
Leider schlägt das ganze mit einem Objektverweis fehl und weiss nicht warum.
Das habe ich genommen und muss das nun erweitern, dass ich in der Liste die Kurse der letzten 90 Tage habe.
Hierzu gibt es folgende Klasse:
VB.NET-Quellcode
- Imports System.Globalization
- ' ECB Struktur
- Public Structure ECBType
- Public ECBCurrency As String
- Public ECBRate As String
- Public DisplayName As String
- Public ECBDate As Date
- End Structure
- Public Class ECBExchanges
- Public Function getECBCurrencyExchanges90(ByVal WebAddress As String) _
- As List(Of ECBType)
- Try
- Dim xr As XElement = XElement.Load(WebAddress)
- Dim xn As XNamespace = xr.Attribute("xmlns").Value
- Dim xECBs = From k1 In xr.Descendants(xn + "Cube")
- From k2 In k1.Elements()
- Select New ECBType With {
- .ECBCurrency = k2.Attribute("currency").Value,
- .ECBRate = k2.Attribute("rate").Value,
- .DisplayName = CurrencyName(.ECBCurrency),
- .ECBDate = DateTime.Parse(k1.Attribute("time").Value)}
- Return xECBs.ToList
- Catch ex As Exception
- Throw ex
- End Try
- End Function
- Private Function CurrencyName(ByVal isoCode As String) As String
- Dim cultures As CultureInfo() = CultureInfo.GetCultures( _
- CultureTypes.SpecificCultures)
- For Each ci As CultureInfo In cultures
- Dim ri As New RegionInfo(ci.LCID)
- If ri.ISOCurrencySymbol = isoCode Then
- Return ci.DisplayName
- End If
- Next
- Return String.Empty
- End Function
- End Class
Der Aufruf mit der WebAdresse findet dann so statt:
Die xml der EZB sieht wie folgt aus:
Leider schlägt das ganze mit einem Objektverweis fehl und weiss nicht warum.
