Thema Datum  Von Nutzer Rating
Antwort
06.05.2016 22:31:26 David
NotSolved
Blau Kurszeitreihenanalyse von Bitcoins
09.05.2016 09:50:09 Gast26310
NotSolved
09.05.2016 10:53:06 David
NotSolved
09.05.2016 14:59:44 Gast47416
NotSolved
09.05.2016 15:27:39 David
NotSolved
09.05.2016 20:03:50 Gast79172
NotSolved
09.05.2016 21:45:15 David
NotSolved
10.05.2016 07:48:17 Gast22592
NotSolved
10.05.2016 22:12:36 David
NotSolved
11.05.2016 10:49:01 Gast91729
NotSolved
16.05.2016 14:04:12 David
NotSolved
17.05.2016 07:35:07 SJ
NotSolved
17.05.2016 10:02:37 David
NotSolved
17.05.2016 11:00:44 SJ
NotSolved
17.05.2016 21:28:18 David
NotSolved
18.05.2016 07:56:42 SJ
NotSolved
18.05.2016 19:59:04 Gast63961
NotSolved

Ansicht des Beitrags:
Von:
Gast26310
Datum:
09.05.2016 09:50:09
Views:
1198
Rating: Antwort:
  Ja
Thema:
Kurszeitreihenanalyse von Bitcoins

Hallo,

auch wenn ich eigentlich nicht davon halte die Hausaufgaben von anderen zu machen - hatte ich gerade ein wenig langeweile.

Mit etwas suchen im Internet eigentlich kein Problem:

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
 
Dim Wert As Double
 
Private Declare Function URLDownloadToFile Lib "urlmon" _
  Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) As Long
   
Public Sub main()
    If download_file <> 0 Then
        MsgBox "Problem beim herunterladen.", vbExclamation
        Exit Sub
    End If
     
    Wert = 0
    Call einlesen_und_durchschnitt
     
    MsgBox "Der Durchschnittswert liegt bei " & Round(Wert / 21, 6), vbInformation
End Sub
 
Private Function download_file() As Long
    Dim strURL As String
    Dim strLocalFile As String
     
    'Link zum Donwload
     
    'Pfad für den Speicherort
    strLocalFile = ThisWorkbook.Path & "\Bitcoin_" & Format(Date, "YYYYMMDD") & ".csv"
     
    'Datei herunterladen und Status zurückgeben
    download_file = URLDownloadToFile(0, strURL, strLocalFile, 0, 0)
End Function
 
Private Sub einlesen_und_durchschnitt()
    Dim fso As Object
    Dim txtStream As Object
    Dim i As Integer: i = 0
    Dim strPfad As String
    Dim strDaten() As String
     
    strPfad = ThisWorkbook.Path & "\Bitcoin_" & Format(Date, "YYYYMMDD") & ".csv"
    Set fso = CreateObject("Scripting.FilesystemObject")
    Set txtStream = fso.OpenTextfile(strPfad)
     
    Do While Not txtStream.AtEndOfStream And i < 22
        'Header überspringen
        If i = 0 Then
            txtStream.SkipLine
        Else
            strDaten() = Split(txtStream.ReadLine, ",")
            'Wert aus Array lesen:
            '0, 1, 2, ...
            'Date,Open,High,Low,Close,Volume (BTC),Volume (Currency),Weighted Price
            Wert = Wert + CDbl(Replace(strDaten(4), ".", ","))
        End If
        i = i + 1
    Loop
     
    txtStream.Close
    Set txtStream = Nothing
    Set fso = Nothing
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.05.2016 22:31:26 David
NotSolved
Blau Kurszeitreihenanalyse von Bitcoins
09.05.2016 09:50:09 Gast26310
NotSolved
09.05.2016 10:53:06 David
NotSolved
09.05.2016 14:59:44 Gast47416
NotSolved
09.05.2016 15:27:39 David
NotSolved
09.05.2016 20:03:50 Gast79172
NotSolved
09.05.2016 21:45:15 David
NotSolved
10.05.2016 07:48:17 Gast22592
NotSolved
10.05.2016 22:12:36 David
NotSolved
11.05.2016 10:49:01 Gast91729
NotSolved
16.05.2016 14:04:12 David
NotSolved
17.05.2016 07:35:07 SJ
NotSolved
17.05.2016 10:02:37 David
NotSolved
17.05.2016 11:00:44 SJ
NotSolved
17.05.2016 21:28:18 David
NotSolved
18.05.2016 07:56:42 SJ
NotSolved
18.05.2016 19:59:04 Gast63961
NotSolved