Datastream API (REST_POST): Returned equity prices are off by a factor of 100 to 10000

I have downloaded the „Excel VBA Sample” (v1.2, 24 Jul 2020) file from the Datastream product website (http://product.datastream.com/DswsClient/Docs/Downloads.aspx).

I have made some minor changes on the “DatastreamRequests” tab (shown in red in the screenshot) and clicked on the “Get Data Bundle (REST_POST)” button.

The returned equity prices as shown in red in the screenshot of the tab “DatastreamResponses” are off by a factor of 100 to 10000.

My environment is Windows 10, Office 365.

Find more posts tagged with

dsws-api

Accepted answers

Jirapongse

@IoannisG

I used this example on this website to check a decimal character.

If it is ',', I replace a dot character with a comma character before converting a string to a double.

 If ValueType = "DoubleArray" And ValueText <> "NaN" Then
    If GetInfo(LOCALE_SDECIMAL) = "," Then
       ValueText = Replace(ValueText, ".", ",")
    End If
    Values(CounterValue, 1) = CDbl(ValueText)
 Else
   Values(CounterValue, 1) = ValueText
 End If

Then, use the GetInfo function when converting a string to a double.

There are two places of this code in the InterpretDataResponse function.

All comments

Jirapongse

@IoannisG

I am unable to replicate this issue.

My output looks like this.

It looks like that your output doesn' have decimal characters (.).

Please check if other outputs have decimal characters (.).

IoannisG

Thanks for your reply, I have checked and there are indeed no decimal characteres in any of the output.

My Windows 10 and MS Office 365 locale is German, where the decimal separator is the ',' character, and the thousands separator is the '.' character. Could this be the problem? If so, what do I need to change in the VBA code of the „Excel VBA Sample” file to address this?

Jirapongse

@IoannisG

I used this example on this website to check a decimal character.

If it is ',', I replace a dot character with a comma character before converting a string to a double.

 If ValueType = "DoubleArray" And ValueText <> "NaN" Then
    If GetInfo(LOCALE_SDECIMAL) = "," Then
       ValueText = Replace(ValueText, ".", ",")
    End If
    Values(CounterValue, 1) = CDbl(ValueText)
 Else
   Values(CounterValue, 1) = ValueText
 End If

Then, use the GetInfo function when converting a string to a double.

There are two places of this code in the InterpretDataResponse function.

Jirapongse

The output looks like this:

IoannisG

Many thanks, this seems to work.

Instead of the GetInfo(LOCALE_SDECIMAL) function I used the alternative:

Public Function GetDecimalSeparator()
GetDecimalSeparator = Mid(Format(1000, "#,##0.00"), 6, 1)
End Function

and the output is now correctly shown for my locale.

EXPLORE OUR SITES