I am specifying AUS races but I get an no response/errror. I spoke to betfair about this and they advised me "It looks like the time you’re passing in is UTC; not local time. If you change to that; you’ll get runners.
Therefore, I have been trying to change the time...
Is this what you're after...?
Private Sub ListMarketCatalogue()
Dim requestList As New List(Of MarketCatalogueRequest)
Dim request As New MarketCatalogueRequest
Dim params As New Params
Dim eventTypeIds As New List(Of String)
eventTypeIds.Add("7")
params.filter.eventTypeIds = eventTypeIds
Dim marketCountries As New List(Of String)
marketCountries.Add("AU")
params.filter.marketCountries = marketCountries
Dim marketProjection As New List(Of String)
marketProjection.Add("MARKET_START_TIME")
marketProjection.Add("RUNNER_DESCRIPTION")
marketProjection.Add("EVENT")
params.marketProjection = marketProjection
Dim marketTypeCodes As New List(Of String)
marketTypeCodes.Add("WIN")
params.filter.marketTypeCodes = marketTypeCodes
Dim marketStartTime As New StartTime
If Today.IsDaylightSavingTime() Then
marketStartTime.from = Format(Date.Now, "yyyy-MM-dd") & "T" & Format(Now.AddHours(-1), "HH:mm") & "Z"
Else
marketStartTime.from = Format(Date.Now, "yyyy-MM-dd") & "T" & Format(Now.AddHours(-6), "HH:mm") & "Z"
End If
marketStartTime.to = Today.ToString("u").Replace(" ", "T").Replace("00:00", "23:00")
params.filter.marketStartTime = marketStartTime
request.params = params
requestList.Add(request)
Therefore, I have been trying to change the time...
Is this what you're after...?
Private Sub ListMarketCatalogue()
Dim requestList As New List(Of MarketCatalogueRequest)
Dim request As New MarketCatalogueRequest
Dim params As New Params
Dim eventTypeIds As New List(Of String)
eventTypeIds.Add("7")
params.filter.eventTypeIds = eventTypeIds
Dim marketCountries As New List(Of String)
marketCountries.Add("AU")
params.filter.marketCountries = marketCountries
Dim marketProjection As New List(Of String)
marketProjection.Add("MARKET_START_TIME")
marketProjection.Add("RUNNER_DESCRIPTION")
marketProjection.Add("EVENT")
params.marketProjection = marketProjection
Dim marketTypeCodes As New List(Of String)
marketTypeCodes.Add("WIN")
params.filter.marketTypeCodes = marketTypeCodes
Dim marketStartTime As New StartTime
If Today.IsDaylightSavingTime() Then
marketStartTime.from = Format(Date.Now, "yyyy-MM-dd") & "T" & Format(Now.AddHours(-1), "HH:mm") & "Z"
Else
marketStartTime.from = Format(Date.Now, "yyyy-MM-dd") & "T" & Format(Now.AddHours(-6), "HH:mm") & "Z"
End If
marketStartTime.to = Today.ToString("u").Replace(" ", "T").Replace("00:00", "23:00")
params.filter.marketStartTime = marketStartTime
request.params = params
requestList.Add(request)


Comment